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1.0  INTRODUCTION 

NASA  is  currently  using  a set  of  applications  called  the  Display  Builder  and  Display  Man- 
ager. These  applications  allow  users  to  build  and  drive  real-time  data  displays.  The  two  applica- 
tions currently  run  on  Concurrent  systems  and  are  heavily  dependent  on  the  Graphic  Kernel  System 
(GKS).  When  these  applications  were  designed,  GKS  was  the  best  choice  for  a graphics  base  due 
to  portability  concerns.  At  this  time  however,  these  two  applications  would  more  appropriately  be 
developed  in  X Windows.  This  is  true  for  the  following  reasons: 

• GKS  is  primarily  designed  for  drawing  2-dimensional  primitives  such  as  lines,  poly- 
gons, and  stroke  text  (GKS  is  not  a bitmapped  graphics  systems).  GKS  also  supports 
transformations,  in  which  the  user’s  coordinate  system  is  transformed  to  the  device  co- 
ordinate system.  This  simplifies  operations  such  as  scaling  and  viewing.  Unfortunately, 
GKS  carries  a large  amount  of  overhead  for  support  of  transformations  and  in  drawing 
of  simple  primitives:  The  result  is  that  simple  operations  such  as  drawing  of  text  are  in- 
efficient. 

• GKS  does  not  include  any  high-level  functions  which  simplify  user  interface  develop- 
ment. Developing  a user  interface  in  GKS  is  difficult  because  GKS  only  supports  basic 
primitives  such  as  lines,  polygons,  and  text  Development  of  user  interface  objects  such 
as  fields,  push  buttons,  and  scrolling  lists  must  be  done  from  scratch. 

• GKS,  especially  when  integrated  with  X Windows,  is  not  totally  portable.  There  is  no 
standard  for  the  function  calls  which  are  required  to  interact  with  the  surrounding  X 
Windows  system.  In  this  case,  GKS  applications  are  not  truly  portable. 

At  the  current  time,  the  most  appropriate  graphics  base  for  applications  such  as  the  Display 
Builder  and  Display  Manager  is  X Windows,  in  which  a low  level  X is  used  for  all  actual  text  and 
graphics  display  and  a standard  widget  set  (such  as  Motif)  is  used  for  the  user  interface.  Use  of  X 
Windows  will  increase  performance,  improve  the  user  interface,  enhance  portability,  and  improve 
reliability. 

To  demonstrate  the  viability  of  using  X Windows  and  Motif  for  this  type  of  application, 
SwRI  developed  an  X Windows/Motif-based  prototype  of  the  existing  Display  Manager  applica- 
tion. Note  that  only  the  Display  Manager  was  prototyped,  rather  than  both  the  Display  Builder  and 
Manager.  This  is  true  for  the  following  reasons: 

• The  Display  Manager  represents  a critical  operational  requirement  and  therefore  de- 
mands maximum  performance  and  reliability.  Performance  is  less  of  a concern  for  the 
Display  Builder,  which  is  only  used  during  development 

• While  the  Display  Manager  is  large  (about  100,000  lines  of  code),  it  is  a manageable 
application  for  this  research  effort  The  Display  Builder  is  much  larger  and  complex  and 
would  be  too  difficult  to  convert  in  the  available  time. 

2.0  RESEARCH  GOALS 

Prototype  an  X Window/Motif-based  Display  Manager  which  provides  the  following  advan- 
tages over  a GKS-based  application: 

• Improved  performance  - by  using  low-level  X Windows,  display  of  graphic  and  text 
will  be  more  efficient  (faster  and  less  resource-intensive). 

• Improved  user  interface  - by  using  Motif,  the  prototype  will  be  easier  to  use. 
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• Improved  portability  - the  prototype  will  execute  on  both  Concurrent  and  Sun  worksta- 
tions. 

• Improved  reliability  - use  of  only  X Windows/Motif  (as  opposed  to  X and  GKS)  will 
improve  reliability. 

3.0  RESEARCH  DETAILS 

The  goal  of  this  research  effort  was  to  take  the  existing  Display  Manager  application  and  con- 
vert all  user  interface  and  graphic  display  functionality  to  X Windows  and  Motif.  The  goal  was  not 
to  redesign  the  Display  Manager  nor  to  add  any  new  major  functions.  SwRI  did  not  make  any  major 
changes  to  the  Display  Manager  data  structures,  to  shared  memory,  or  in  the  area  of  available  func- 
tionality. With  the  exception  of  one  major  change  (explained  below),  the  updates  were  focused 
upon  the  user  interface  and  the  display  of  data. 

The  original  Display  Manager  application  consisted  of  three  separate  processes.  These  pro- 
cesses and  their  responsibilities  are: 

• Data  Handler  - Retrieves  data  from  the  data  acquisition  process  and  makes  the  data 
available  for  display.  Only  one  copy  of  the  Data  Handler  executes  on  each  workstation. 

• Display  Manager  - Provides  the  user  interface  for  a control  of  a single  display.  A sepa- 
rate copy  of  the  Display  Manager  is  required  for  each  display. 

• Data  Displayer  - Performs  the  actual  data  display.  A separate  copy  of  the  Data  Display- 
er  is  required  for  each  display. 

The  prototype  merged  the  functionality  of  the  Display  Manager  and  Data  Displayer  processes 
into  one  process.  This  approach  was  selected  due  to  the  large  size  of  each  program  once  the  Motif 
library  is  loaded.  The  prototype  uses  one  Data  Handler  process  for  a workstation  and  one  Display 
Manager  process  for  each  display  (with  the  Data  Displayer  functionality  built  into  the  Display 
Manager).  SwRI  began  making  changes  that  would  allow  one  Display  Manager  process  to  support 
multiple  displays.  Much  of  the  code  to  support  this  functionality  exists  at  this  point. 

One  problem  with  which  SwRI  was  faced  was  that  it  was  impossible  to  recreate  the  actual 
environment  present  at  NASA.  Although  SwRI  was  supplied  with  a Concurrent  system,  it  was  not 
possible  to  configure  all  the  necessary  hardware  and  software  needed  to  run  the  LAN  support  soft- 
ware, WEX,  and  data  acquisition.  This  was  especially  true  on  the  Sun,  which  as  indicated  was  a 
target  system.  This  prevented  SwRI  from  creating  a valid  flow  of  real-time  data,  which  is  necessary 
for  testing  of  the  prototype.  Therefore,  it  was  decided  that  a stubbed  version  of  the  Data  Handler 
would  be  developed.  SwRI  developed  stubbed  versions  of  the  ds_connect,  dsJUsconnect , and  ds_- 
getkeys,  and  ds_getparm  functions  which  are  used  by  the  Data  Handler  to  retrieve  data  from  the 
data  acquisition  process.  The  stubbed  versions  supplied  all  the  simulated  data  needed  to  test  the 
converted  functions. 

The  majority  of  the  functions  within  the  original  Display  Manager/Data  Displayer  processes 
which  did  not  use  GKS  were  not  modified.  The  functions  which  did  use  GKS  were  converted  to  X 
and/or  Motif  one  by  one.  All  functionality  within  the  original  Display  Manager  process  was  con- 
verted (all  the  user  interface).  The  majority  of  the  functions  within  the  original  Data  Displayer  pro- 
cess were  converted.  The  major  functions  which  were  not  converted  are  those  Healing  with  fore- 
ground graphics  (clocks,  meters,  etc.).  In  addition,  the  zooming  feature  which  is  available  in  the 
prototype  only  affects  plots.  No  scaling  of  normal  background  or  foreground  text  is  available. 
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The  flow  of  control  in  the  prototype  is  similar  to  the  original.  The  major  modifications  which 
were  made  include  the  following: 

• The  user  interface  has  been  changed  significantly.  The  prototype  uses  a single  “control 
panel”  window  which  provides  access  to  all  functions.  When  a display  is  created,  a new 
independent  window  with  horizontal  and  vertical  scrollbars  will  appear.  All  forms,  help 
text,  and  messages  appear  as  popup  windows.  All  functions  which  involve  enabling  or 
disabling  a feature  are  controlled  through  toggle  menu  items  which  change  to  indicate 
the  current  state  of  the  feature. 

• The  flow  of  events  and  control  was  changed  to  support  X and  Motif.  In  the  new  flow, 
the  following  events  occur: 

Menu  item/selection  of  a function  key  - this  type  of  event  causes  a callback  which  in  turn  calls 

the  command  function,  which  in  turn  calls  the  appropriate  function. 

Tuner  events  - a cyclic  timer  event  is  used  to  trigger  update  of  the  display  at  a regular  interval. 

Expose  events  - an  expose  event  occurs  if  the  display  window  is  scrolled  or  otherwise  exposed. 

Input  events  - an  input  event  (selection  of  a button)  occur  when  a PBI  is  selected. 

• The  help  text  for  each  function  is  now  stored  in  individual  files.  This  eliminates  the 
need  for  a separate  function  for  each  help  screen. 

• Because  the  two  applications  were  merged,  a number  of  redundant  functions  were  elim- 
inated. 

• The  original  Display  Manager  used  a number  of  functions  for  presentation  of  temporary 
menus.  Because  all  menus  are  in  the  control  panel  window,  these  functions  were  elim- 
inated. 

• Because  the  user  interface  and  display  functions  are  now  in  one  process,  there  is  no 
need  to  communicate  via  flags  through  shared  memory. 

• Several  new  functions  were  added  to  the  user  interface: 

A color  editor  - allows  the  colors  used  by  the  prototype  to  be  interactively  edited. 

Enable/Disable  messages  - all  messages  generate  an  advisory.  This  feature  controls  whether  or  not 

messages  are  also  displayed  in  the  form  of  a popup  window. 

Pause  display  • this  function  allows  the  display  to  be  paused  and  later  restarted. 

• For  fields  which  allow  entry  of  any  of  a display-specific  set  of  values  (such  as  MSIDs), 
a list  of  the  valid  values  appears. 

• The  function  which  displayed  the  user-defined  function  keys  is  now  built  into  the  main 
control  panel. 

• Because  so  much  code  was  changed,  the  original  comment  headers  were  removed.  This 
was  necessary  because  the  time  required  to  update  the  pseudocode  was  too  great. 

• Limited  comment  headers  and  in-line  comments  were  added  to  all  new  and  modified 
source  files. 

The  prototype  executes  properly  on  both  Concurrent  and  Sun  systems.  Most  of  the  develop- 
ment was  performed  on  the  Sun,  with  specific  performance  tuning  occurring  on  the  Concurrent. 

The  following  sections  provide  illustrations  of  the  different  windows  presented  by  the  proto- 
type. Note  that  many  of  the  original  functions  are  built  into  the  control  panel  menus  in  the  form  of 
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toggle  menus  which  do  not  require  a separate  window.  These  menus  are  not  presented  in  this  doc- 
ument because  noutility  was  available  to  capture  a transient  menu. 

3.1  Main  Control  Window 

This  is  the  main  control  panel  window  for  the  Display  Manager  prototype.  All  functions  may 
be  accessed  from  this  window. 


File  Display  Util it las  Hist/Table  Limits  Plots  Zoom  Kays  Help 


The  pulldown  menus  and  functions  which  are  available  from  this  window  include  the  follow- 
ing (the  functions  followed  by  “...”  involve  display  of  an  additional  window): 

• File: 

Enable  Messages 
Set  Flight/Data... 

Screen  Dump 
Edit  Colon... 

Exit 

• Display: 

Select  Display... 

Remove  Display 
Freeze  Display 

• Utilities: 

Change  Update  Rate... 

Unlatch  DDD  MSID... 

Unlatch  ALL  DDD’s 
Change  GDR... 

Enable  Alarms 
Enable  PBIs 
Enable  Logging 
Enable  All  Logging 

• Hist/Table: 

History  Tables... 

• Limits: 

List  Limits... 

Change  Limits... 

• Plots: 

List  Plots... 

Display  Overlay... 
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Save  Overlay... 

Define  Universal  Plot.. 

• Zoom: 

Zoom 

Reset  Zoom 
Change  Zoom  Factor... 

• Keys  (List  of  available  user-defined  function  keys) 

• Help  (specific  help  is  also  available  from  popup  windows): 

Enable/Disable  Messages 
Set  Flight  ID/Datatype 
Screen  Dump 
Edit  Colors 
Exit 

Select  Display 

Remove  Display 

Freeze  Display 

Change  Update  Rate 

Unlatch  DDD  MSID 

Unlatch  All  DDD’s 

Change  GDR 

History  Tables 

Enable/Disable  Alarms 

Enable/Disable  PBI’s 

Enable/Disable  Logging 

Enable/Disable  All  Logging 

List  Limits 

Change  Limits 

List  Plots 

Display  Overlay 

Save  Overlay 

Define  Universal  Plot 

Zoom 

Reset  Zoom  Factor 
Set  Zoom  Factor 
Show  PF  Keys 


■ 
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3.2  Set  Flight/Data  Type  Window 

This  window  allows  the  user  to  select  the  current  flight  and  data  type. 


3.3  Color  Editor  Window 

This  window  allows  the  user  to  edit  the  colors  used  in  the  display. 


OK 


Cancel 


Help 


Display  Manager  Conversion RESEARCHJDETAILS 

3.4  Select  Display  Window 

This  window  is  used  to  select  a new  display. 


3.5  Change  Update  Rate  Window 

This  window  is  used  to  change  the  update  rate. 
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3.8  History  Tables  Window 

This  window  allows  display  of  History  Table  information. 


rnrw.wamn 


Limit  Files 


O'HOJ  1 


1 Selection  | 

0930J1 

i 

nn 

Cancel  ||  Help^ 

L 

3.9  List  Limit  Files  Window 

This  window  allows  the  user  to  enable  or  disable  a limit  group  for  the  display. 


TsFTTSnETTTe 


Limit  Files 


0930J1 

INACTIVE 

T* 

107 1J1 

INACTIVE 

1072J1  : 

INACTIVE 

111011 

INACTIVE 

111211 

INACTIVE 

1 1 III.  1 

INACTIVE  I 

1118G1 

INACTIVE 

1122H1 

INACTIVE 

c 

Selection 

1114L1 

INACTIVE 

— 

START  | 

STOP  ||Cancel||  Help  | 

L 
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3.10  Change  Limits  Window 

This  window^ is  used  to  alter  characteristics  of  active  limits. 
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3.11  List  Plot  Files  Window 

This  window  allows  the  user  to  enable  or  disable  any  plot  present  in  the  display. 


3.12  Save  Overlay  Window 

This  window  allows  the  user  to  save  a plot  data  file  as  an  overlay. 


Plots  In  Display  Data  Files 
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3.13  Plot  Overlay  Window 

This  window  allows  the  user  to  display  an  overlay  which  was  previously  saved  with  the  Save 
Overlay  function. 
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3.15  Change  Zoom  Factor  Window 

This  window  is  used  to  change  the  zoom  factor. 


Display  Manager  Conversion  RESEARCH  DETAILS 

3.16  Help  Window 

This  window  shows  an  example  of  a help  display.  This  window  is  independent  of  other  win- 
dows and  will  remain  displayed  until  removed. 


Usplay  Manager  Hell 


EDIT  COLORS 

This  function  presents  a grid  which  represents  the  color 
nap  used  by  the  Display  Manager. 

The  user  can  both  review  the  colors  used  and  make  changes 
if  desired.  The  changes  will  only  affect  the  colors  within 
the  Display  Manager.  The  changes  will  not  affect  other 
cl ients . 

To  change  a color,  first  select  the  appropriate  rectangle 
in  the  grid  of  colors.  The  Red/Green/Blue  scales  at  the 
hottest  of  the  window  will  change  to  reflect  the  makeup 
of  the  color.  Next  adjust  the  color  by  positioning  the 
scales  to  the  left  or  to  the  right.  Moving  the  scales  to 
the  left  reduces  the  intensity  of  the  Red/Green/Blue 
component  in  the  color;  moving  the  scales  to  the  right 
increases  the  intensity. 

To  save  changes  use  the  OK  button.  To  cancel  changes, 
select  CANCEL.  The  RESTORE  button  can  be  used  to  restore 
the  color  map  without  exiting  from  the  window. 


Done 
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3.17  Sample  Display  1 
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3.18  Sample  Display  2 


jcin MJizzi 


3.19  Sample  Display  3 
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4.0  RESEARCH  CONCLUSIONS 

Several  important  conclusions  were  drawn  from  this  research  effort  These  conclusions  in- 
clude the  following: 

• Use  of  X Windows/Motif  for  an  application  such  as  the  Display  Manager  can  result  in 
an  application  which  offers  high  performance,  an  improved  user  interface,  high  reliabil- 
ity, and  increased  portability. 

• Additional  effort  is  required  to  convert  remaining  functionality.  Additional  effort  is 
also  required  for  more  performance  tuning,  elimination  of  unused  data  structures  (a  re- 
sult of  merging  processes),  and  generation  of  internal  documentation. 

• A relatively  small  amount  of  effort  is  required  to  implement  several  new  features,  such 
as  support  of  multiple  displays  with  one  Display  Manager  process. 

5.0  ATTACHMENTS 

The  following  pages  contain  the  actual  code  for  the  converted  Display  Manager.  The  code 
and  related  files  which  are  present  include: 

• User  interface  library  Makefile  and  code. 

• Data  Handler  stub  code. 

• Data  Manager  code. 

• Utility  programs. 


Southwest  Research  Institute  Page  18 


Workstation  Executives 


Display  Manager  Conversion 


ATTACHMENTS 


ATTACHMENT  1 - User 
Interface  Library 
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Makefile 


#*##*#######*######*##*#########**############################**, 4*, *###*##* 

# Makefile  for  the  Display  Manager  user  interface  library. 


# 

# Define  the  target  which  this  file  is  to  create. 

* 


TARGET  - libtui.a 


# 

# Initialize  master,  binary,  library,  and  include  directories. 

# 

MASTER  - /home/pro ject/2 984 /db 
BINDIR  - $ (MASTER) 

INCDIR  - . ./include 
INCDIRS  - -I.  -1$ (INCDIR) 

LIBDIR  - . 

# 

# Define  the  compiler  and  linker  flags. 

# 


CFLAGS  - -g  $ (INCDIRS)  $ (FLAGS) 

LD FLAGS  - -g 

# 

# Define  all  objects  which  make  up  this  target. 


OBJS  -\ 

tui_cr_as  .o\ 
tui_cr_cas  .o\ 
tui_cr_form.  o\ 
tui_cr_label . o\ 
tui_cr_pb.o\ 
tui_cr_rb.  o\ 
tui_cr_sel  .o\ 
tui_cr_sep.o\ 
tui_cr_scale . o\ 
tui_cr_text  .o\ 
tui_cr_tog.o\ 
tui_cr_ts  .o\ 
tui_  list .o\ 
tui_msg.o\ 
tui_prompt . o\ 
tui__ques  .o\ 
tui  wait.o 


# 

# Define  all  header  files  required. 

# 

HDRS  -\ 

$ ( INCDIR) /user_inter . h 

# 

# Make  the  target . 

# 

all:  $ (TARGET) 


$ (TARGET):  $(OBJS) 


Makefile 


ar  rv  $(LIBDIR)/$0  $(OBJS) 
ranlib  $<LIBDIR)/$0 


$ (OBJS) : 


$ (HDRS) 


Makefile.sun 


*******#»*****»*#**#**#*******#***#***#******#*«*»*****#**#***###««#«#***####### 


# Makefile  for  the  Display  Manager  user  interface  library. 

#*##*###»#########^4##############################*############################# 


# 

# Define  the  target  which  this  file  is  to  create. 

# 

TARGET  - libtui . so . 1 . 1 


* 

# Initialize  master,  binary,  library,  and  include  directories. 

♦ 

MASTER  - /home/pro ject/2 984/db 

BINDIR  - $ (MASTER) 

INCDIR  - . ./include 

INCDIRS  - -I.  -1$ (INCDIR) 

LIBDIR  - . 

# 

# Define  the  compiler  and  linker  flags. 

# 

C FLAGS  - -g  -pic  $ (INCDIRS)  $ (FLAGS) 

LD FLAGS  - -g 

# 

# Define  all  objects  which  make  up  this  target. 

# 

OBJS  -\ 

tui_cr_as  .o\ 
tui.cr_ca3.o\ 
t ui_c  reform . o \ 
tui_c  relabel . o\ 
tui_cr_j>b.o\ 
tui_cr_rb.o\ 
tui_cr_sel.o\ 
tui_cr_sep.o\ 
tui_cr_scale . o\ 
tui_cr_text  .o\ 
tui_cr_tog . o\ 
tui_cr_ts  ,o\ 
tui_list .o\ 
tui_msg.o\ 
tui_prompt .o\ 
tui_wait .o\ 
tui_ques .o 


# 

# Define  all  header  files  required. 

# 

HDRS  -\ 

$ ( INCDIR) / user_inter . h 

# 

# Make  the  target . 

# 

all:  $ (TARGET) 


$ (TARGET):  $(OBJS) 


Id  -o  $ (LIBDIR) /$8 


Makefile.sun 

assert  pure-text  $(OBJS) 


$ (OBJS) 


$ (HDRS) — 


/ *********************** ******************************************************* 

* MODULE  NAME:  ( tui_create_app_ shell  ) 

★ — - 

* This  function  creates  an  application  shell  widget  which  is  used  to  create 

* an  indepedent  window.  Windows  rooted  with  application  shells  may  be  iconi- 

* fied  independently  from  other  windows  and  do  not  have  their  input  auto- 

* matically  disabled  when  a popup  is  displayed. 

it 

it 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

it 

* Mark  D . Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

A***************************************************************************** 


♦include  <stdio.h> 

♦include  <X11/ Intrinsic . h> 
♦include  <X11/Shell . h> 
♦include  <Xm/Xm.h> 

♦include  <Xm/mwm.h> 


extern  Widget  Top;  /*  The  top  level  widget  which  is  the  parent 

* of  transient  shells. 

*/ 


Widget  tui_create_app_shell  ( name,  colormap,  arg_list,  num_args  ) 


char 

♦name; 

/*  The  name  of  the  widget. 
* appear  in  the  title  bar 
*/ 

This  string  will 
of  the  shell. 

Colormap 

colormap; 

/*  The  colormap  to  associate  with  the  appli 
* cation  shell. 

*/ 

Arg 

arg_list [] ; 

/*  List  of  arguments  to  be 
* instance  of  the  widget. 
*/ 

used  in  this 

int 

num_args; 

/ * The  number  of  arguments 
* list; 

*/ 

in  the  argument 

register  int 

i r 

count  - 0; 

Arg 

args [10] ; 

Widget 

widget; 

/* 

* Set  up  at  most  five  arguments  from  arg_list. 


if  ( num_args  > 5 ) 
num_args  "5; 

for  ( i - 0;  i <-  num_args-l;  i++  ) { 

args [i]  - arg_list[i]; 


* Initialize  the  colormap  argument  and  create  the  application  shell  widget. 

* The  colormap  argument  forces  all  child  widgets  to  use  the  new  colormap  in- 

* stead  of  the  default  root  colormap. 

*/ 


XtSetArg  ( args [count],  XmNcolormap,  colormap  );  count++; 
widget  - XtAppCreateShell  { name,  "Display  Manager", 

applicationShellWidgetClass,  XtDisplay  ( Top  ) , 
args,  count  ) ; 


* Specify  the  functions  which  will  be  available  in  the  Motif  window  manager 

* menu  area.  Note  that  the  CLOSE  function  is  absent.  Note  also  that  this 

* is  done  after  creation,  because  this  argument  appears  to  be  ignored  at  creation 

* time. 

*/ 


count  " 0; 

XtSetArg  < args (count],  XmNmwmFunctions, 
MWM_FUNC_MOVE  I MWM_FUNC_RESIZE  | 

MWM_FUNC_MINIMIZE  I MWM_FUNC_MAXIMIZE  ) ; COunt++; 
XtSetValues  ( widget,  args,  count  ); 


/* 

* Return  the  created  application  shell  widget. 
*/ 


return  ( widget  ) ; 

} 


tui_cr_cas.c 


/a***************************************** *********************************A^^^^ 
* MODULE  NAME:  tui  create  cascade 


* — - - - 

* This  function  creates  a MOTIF  cascade  button  gadget.  A sub  menu  ID  is  passed  in 

* and  the  cascade  gadget  is  attached  to  it. 

* 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

********★★**★******★******★********★******<(*♦***★***★*****************★*************/ 


♦include  <X11/Intrinsic . h> 
♦include  <Xm/CascadeB.h> 


Widget  tui_create_cascade  ( parent , name,  submenu,  arg_list,  num_args  ) 


Widget 

parent. 

/*  The  parent  widget  which  this  cascade  widget 
* will  be  attached. 

*/ 

submenu; 

/*  The  menu  which  will  be  activated  when  this 
* function  is  invoked. 

*/ 

char 

♦name; 

/*  The  string  which  will  be  displayed  on  the  menu 
* / 

Arg 

arg_list [ ] ; 

/*  A list  of  arguments  for  expandability. 
* / 

int 

num__args; 

/*  Number  of  valid  arguments  in  the  arg  list. 
♦ Currently  there  are  no  valid  arguments. 

*/ 

register  int 

count  - 0, 
i; 

Arg 

args [10] ; 

Widget 

widget ; 

/* 

it 

*/ 


Set  up  at  most  five  arguments  from  the  argument  list. 


if  ( num_args  > 5 ) 
num_args  * 5; 

for  ( i - 0;  i <-  num_args-l;  i++  ) { 
args [i]  - arg_list[i]; 
count++; 

) 

/* 

* Set  argument  which  associates  it  with  the  pulldown  menu  which  is  to  be  activated 

* when  the  cascade  is  selected. 

*/ 


tui_cr_cas.c 


XtSetArg  ( args [count],  XmNaubMenuId,  submenu  );  count++; 


* Create  the  cascade  widget  and  return  the  widget  pointer  to  calling  function. 

*/ 

XtManageChild  ( widget  - XmCreateCascadeButton  ( parent,  name,  args,  count  ) ) 


} 


return  ( widget  ) ; 


tui_cr_form.c 


* MODULE  NAME:  tui_create_f orm 

★ - 


* This  function  creates  a MOTIF  form  widget.  If  requested,  a frame  will  be  drawn 

* around  the  form.  This  is  normally  only  done  for  top  level  forms. 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 


Mark  D.  Collier  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


finclude  <X11/Intrinsic . h> 
♦include  <Xm/Form.h> 
♦include  <Xm/ Frame  . h> 


tui create_f orm  ( parent/  name , frame flag/  arg__list/  num  args  ) 

Widget  parent;  /*  The  parent  widget  to  which  the  form  widget  will 

* be  attached. 

*/ 


*name;  /*  The  name  of  the  widget.  It  uniquely 

* defines  the  widget. 

*/ 


Arg 


int 


{ 

Widget 


ar9_list[];  /*  Optional  argument  list  passed  to  the 
* createform  widget. 

*/ 

frame^flag,  /*  If  TRUE,  draw  a frame  around  the  form 
*/ 

num^args;  /*  Number  of  arguments  in  the  arg  list. 
*/ 

widget ; 


/* 

* If  requested/ 
V 


draw  a frame  around  the  form  widget. 


if  ( frame_flag  ) 

XtManageChild  ( parent  - XmCreateFrame  ( parent/  name/  NULL/  0 ) ) ; 

/* 

* Create  and  manage  the  form  widget . Return  the  widget  pointer  to  the 

* calling  function. 

V 


XtManageChild  ( widget  - XmCreateForm  ( parent,  name,  arg_list,  num_args  ) ) 
return  ( widget  ) ; 


> 


tui_cr_label.c 


/A********************************************************************************** 

* MODULE  NAME:  tui_create_label 

* - 

★ This  function  creates  a MOTIF  label  gadget.  The  label  string  is  passed  in  as  a 

★ separate  argument  rather  than  being  taken  from  the  name. 

★ 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

★ Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
*****************★******************************************************************/ 


♦include  <X11/Intrinsic .h> 
♦include  <Xm/LabelG .h> 


Widget  tui_create_label  ( parent , name , label,  arg_list,  num^args  ) 


Widget 

parent ; 

/*  The  parent  widget  to  which  the  label  widget  will 
* be  attached. 

*/ 

char 

*name. 

/*  The  name  of  the  widget.  It  uniquely 
* defines  the  widget. 

*/ 

*label; 

/*  The  string  which  this  label  widget  will  display. 
*/ 

Arg 

arg_list  [] ; 

/*  List  of  arguments. 
*/ 

int 

num_args; 

/*  Number  of  arguments  in  arg  list. 
*/ 

register  int 

count  - 0, 
i; 

Arg 

args [10] ; 

Widget 

widget ; 

XmString 

string; 

/* 

* Set  up  at  most  five  arguments  from  arg_list . 

V 

if  ( num_args  > 5 ) 
num_args  - 5; 

for  ( i - 0;  i <*  num_args-l;  i++  ) { 

argsfi]  - arg__list  [i]  ; 
count ++; 

) 

/* 

* 

*/ 


Initialize  a compound  string  and  set  in  the  argument  list. 


tui_cr_label.c 

string  - XmStringLtoRCreate  ( label,  XmSTRING_DEFAULT_CHARSET  ) ; 

XtSetArg  ( argsicount] , XmNlabelType,  XmSTRING  );  count++; 
XtSetArg  ( args [count],  XmNlabelString,  string  );  count++; 


/* 

* Create  and  manage  the  widget.  Free  the  space  allocated  for  the  compound  string. 

* Return  the  widget  pointer  to  the  calling  function. 

*/ 


XtManageChild  { widget  - XmCreateLabelGadget  ( parent,  name,  args,  count  ) ) ; 
XmStringFree  ( string  ) ; 

return  ( widget  ) ; 

> 


tui_cr_pb.c 


* MOUDLE  NAME:  tui_create_pushbutton 


★ 

* This  function  is  called  to  create  a MOTIF  Pushbutton  gadget.  The  callback  and 

* closure  values  for  the  button  callback  are  provided  as  arguments. 


★ 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

★ Data  Systems  Department 

* Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 

★★a*********************************************************************************/ 


♦include  <Xll/Intrinsic ,h> 
♦include  <Xm/PushBG . h> 


Widget  tu^create^pushbutton  ( parent,  name,  callback,  pointer,  arg_list,  num_args  ) 

Widget  parent;  /*  The  parent  widget  which  this  pushbutton  widget 

* will  be  attached. 

*/ 

char  *name;  /*  The  instance  of  this  widget.  This  uniquely 

* defines  the  widget. 

*/ 


XtCallbackProc  callback;  /*  Specifies  an  array  containing  the  list  of  func- 

* tions  called  upon  command  callback.  It  may  be 

* NULL  if  no  functions  are  present. 

*/ 


{ 


caddr_t 

pointer; 

Arg 

arg^list  [] ; 

int 

num__args; 

register  int 

count  *0, 
i; 

Arg 

args [10] ; 

Widget 

widget ; 

/*  Pointer  to  the  parameter  passed  to  the  callback. 
*/ 

/*  A list  of  arguments  for  expandability. 

*/ 

/*  Number  of  arguments  in  the  arg_list. 

*/ 


/* 

* Set  up  at  most  5 arguments  from  arg_list. 
*/ 


if  ( num_ args  > 5 ) 
num_args  - 5; 

for  ( i - 0;  i <«  num_args-l;  i++  ) { 

argsfi]  * arg_list[i]; 
count ++; 

} 


/* 

* 


Create  and  manage  the  widget . 


tui_cr_pb.c 


*/ 

xtManageChild  -(-widget  - XmCreatePushButtonGadget  ( parent,  name,  args,  count 

/* 

* If  the  command  has  a callback,  add  it  to  the  widget. 

*/ 

if  ( callback  ) 

XtAddCallback  ( widget,  XmNactivateCallback,  callback,  pointer  ) ; 

/* 

* Return  the  widget . 

*/ 


return  ( widget  ) ; 


tui_cr_rb.c 


* MODULE  NAME:  tui_create_toggle 


★ ' 

* This  function  creates  a radio  box  widget  and  initializes  it  with  a set  of 

* toggle  button  gadgets. 

* 


★ 

★ EXTERNAL  FUNCTIONS: 

★ 

* o tui_  radio_get_value 

★ 

* 

* o tui_  radioes et_value 

* 

* 

★ 

* INTERNAL  FUNCTIONS: 

* 

* o cb_radio 

* 

* 

★ 


This  function  returns  the  current  value  (which 
toggle  is  selected)  from  a selected  radio  box. 

This  function  sets  the  current  value  (which 
toggle  is  set)  for  a selected  radio  box. 


This  function  is  called  when  a toggle  is  to 
be  destroyed.  This  function  cleans  up  all 
radio  box  resources. 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
*********************  *★★*★★***** ********************* ****************★*******/ 


♦include  <X11/Intrinsic . h> 
♦include  <Xm/RowColumn.h> 
♦include  <Xm/ToggleBG.h> 


extern  Widget  tui_create_toggle  (); 


struct  radioes tr  { 

Widget  r_rb ; 
int  r_num_labe  Is; 

Widget  r_toggles ( 10 ] ; 
char  *r_labels [10]  ; 

} radios [10]; 

static  num  radios  * 0; 


Widget  tui_create_rb  ( parent,  name,  labels,  num_labels,  def,  arg_list,  num_args  ) 

Widget  parent;  /*  The  parent  widget  to  which  the  label 

* widget  will  be  attached. 

V 


char  *name,  /*  The  name  of  the  widget.  It  uniquely 

* defines  the  widget. 

*/ 

*labels[],  /*  The  strings  which  this  widget  will  display. 

*/ 

/*  This  string  which  is  set  (the  toggle  is  enabled) 
*/ 


*def ; 


tui_cr_rb.c 


int 

num_labels; 

/*  The  number  of  labels  to  display. 
*/ 

Arg 

arg_list  [ ] ; 

/*  List  of  arguments. 
*/ 

int 

num_args; 

/*  Number  of  arguments  in  arg  list. 
*/ 

register  int 

count  - 0, 
i; 

Arg 

args [10] ; 

Widget 

widget, 
widget 1 ; 

XmString 

string; 

XtCallbackProc 

cb_ radio  ( ) ; 

int 

flag; 

/* 

* If  the  maximum  number  of  managed  radio  boxes  has  been  reached,  output  an  error 

* and  return.  Otherwise  if  the  number  of  labels  is  > 10,  set  number  to  10.  MDC  - 

* fix  to  use  a list. 

*/ 


if  < num_radios  — 10  ) { 

printf  ( "ERROR  - Maximum  number  of  managed  radio  boxes  has  been  reached\n"  ) ; 
return  ( NULL  ) ; 

} else  if  ( num_labels  > 10  ) 
num_labels  - 10; 

num  radios ++; 


/* 

* Set  up  at  most  five  arguments  from  arg  list. 
*/ 

if  ( num_args  > 5 ) 
num_args  - 5; 

for  ( i - 0;  i <-  num_args-l;  i++  ) { 
args[i]  - arg_list[i]; 
count ++; 

) 


/* 

★ 


*/ 


Create  and  manage  the  radio  box  widget  and  add  the  callback  to  the  destroy 
function  to  insure  that  resources  are  cleaned  up  when  the  widget  is  destroyed. 


XtManageChild  ( widget  - XmCreateRadioBox  ( parent,  name,  args,  count  ) ) ; 


radios [num_radios-l] .r_rb  - widget; 

XtAddCallback  < widget,  XmNdestroyCallback,  cb_radio,  0 ); 


/* 


* 

*/ 


Create  each  of  the  toggle  widgets  to  be  placed  in  the  radio  box  widget, 
the  widget  is  the  one  set,  then  enable  the  toggle. 


If 


radios [num_radios-l] . r num  labels  - 


num  labels; 


tui_cr_rb.c 

count  * 0; 

for  ( i - 0;  i— < mim_labels ; i++  ) { 

flag  ■ ( atrcmp  ( labels [i],  def  ) ■—  0 ) ? 1 : 0; 

widgetl  - tui_create_toggle  ( widget,  labels[i],  flag,  NULL,  0,  args,  count  ); 

radios [num_radios-l] .r_toggles [i]  - widgetl; 
radios [num_radios-l] . r_labels  [i]  — labels [i]; 

} 

/* 

* Return  radio  box  widget. 

*/ 

return  < widget  ) ; 

} 


/A**************************************  **★★**★★★★★★***★★★★**★★**★**★★*★★★*★*** 

* MODULE  NAME:  tu±3_radio_get_value 

★ 

* This  function  returns  the  current  value  of  the  specified  radio  box  widget. 

* The  selected  widget  must  have  been  created  by  the  (tui_create_radio  box) 

* function . ” “ 


char  *tui_radio_get_value  ( widget  ) 


Widget 


widget ; 


{ 

register  int 


if 

r; 


/*  The  radio  box  from  which  to  get  a value. 
*/ 


/* 

* Search  the  array  of  radio  boxes  for  a match  with  the  specified  widget.  If 

* no  match  is  found,  return  an  error. 

*/ 


for  ( r - 0/  r < num_radios;  r++  ) 
if  ( radios [r] . r_rb  " widget  ) 
break; 

if  ( r “ nura_radios  ) 

return  ( (char  *)-l  ); 


/* 

* Scan  each  toggle  in  the  radio  box  and  if  one  is  selected,  return  a pointer 

* to  the  label  corresponding  to  the  toggle.  Note  that  this  pointer  is  only 

* valid  as  long  as  the  widget  is  created. 

*/ 


for  ( i - 0;  i < radios [r] . r_num_labels;  i++  ) 

if  ( XmToggleButtonGadgetGetState  ( radios [r] .r_toggles [i]  ) ) 
return  ( radios [r] . relabels [i]  ); 


/* 

* Return  NULL  if  no  toggle  is  selected. 
*/ 


) 


return  ( (char  *) NULL  ); 


/*********** ********************************** ********************************* 

* MODULE  NAME:  tul_radio_set_value 

* 

* This  function  sets  the  value  of  the  specified  radio  box  widget. 

* The  selected  widget  must  have  been  created  by  the  (tui_create_radio_box) 

* function. 

a****************************************************************************' 


int  tui  radio  set  value  ( widget,  value  ) 


Widget 

char 

register  int 


widget ; 
* value; 


r; 


/*  The  radio  box  to  set  the  value  on. 


/*  The  value  to  set. 
*/ 


/* 

★ Search  the  array  of  radio  boxes  for  a match  with  the  specified  widget.  If 

* no  match  is  found,  return  an  error. 

*/ 


for  ( r * 0;  r < nuinjradios;  r++  ) 
if  ( radios [r] .r_rb  — widget  ) 
break; 


if  ( r — num_radios  ) 
return  ( -1  ) ; 


/* 

* Scan  the  array  of  labels  for  the  radio  box  for  a match  with  the  passed  string. 

* If  a match  is  found,  set  the  state  to  TRUE.  For  each  label  not  matched,  set  the 

* state  to  FALSE.  This  is  necessary  because  the  radio  box  behavior  is  only  enforced 

* for  interactive  selection. 

*/ 


for  ( i - 0;  i < radios [r] , r_ num_labels ; i++  ) 

if  ( strcmp  ( radios [ r] . relabels [i] , value  ) — 0 ) 

XmToggleButtonGadgetSetState  ( radios [r] ,r_toggles [i] , TRUE  ); 

else 

XmToggleButtonGadgetSetState  ( radios [r] .r_toggles [i] , FALSE  ); 


} 


return  < 0 ) ; 


/****************************************************************************** 

* MODULE  NAME:  cb^radio 

* 

* This  callback  function  is  called  when  one  of  the  created  radio  widgets  is 

* destroyed.  It  is  responsible  for  removal  of  the  widget  resources. 
*****************************************************************************^ 

static  XtCallbackProc  cb_radio  ( w,  closuref  calldata  ) 

Widget  w;  /*  Set  to  the  widget  which  initiated  this 

* callback  function. 

V 

caddr_t  closure,  /*  Callback  specific  data.  This  parameter 

* is  set  to  button  selected. 

*/ 

*calldata; 

/*  Specifies  any  callback-specific  data  the 

* widget  needs  to  pass  to  the  client . 

*/ 

{ 

register  int  i; 


/* 

* Decrement  the  number  of  radio  structures.  If  the  one  removed  was  the  last, 

* exit  from  this  function.  Note  that  there  is  no  need  to  destroy  the  widget 

* because  it  is  already  being  destroyed. 

*/ 


nura_radios — ; 

if  ( num_radios  --  0 ) 
return; 


/* 

* Otherwise  there  is  more  than  radio  widget,  so  find  the  one  which  is  being 

* destroyed  and  then  copy  the  last  structure  on  top  of  it. 

*/ 


for  ( i - 0;  i < num_radios;  i++  ) 
if  ( radios [i] .r_rb  — w ) 

memcpy  ( (char  *) & radios [i] , (char  *) & radios [num_radios] , 
sizeof  ( struct  radio_str  ) ) ; 


/* 

* Normal  return. 

V 


> 


return; 


/★a**************************************************************************** 

* MODULE  NAME:  tui_create_scale 

★ 

★ This  function  creates  a MOTIF  scale  widget.  This  function  creates  a scale 

★ with  a set  of  low  and  high  limits  and  corresponding  labels. 

★ 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
*★★******★**★******★★**★★****************************************************/ 


♦include  <X11/Intrinsic .h> 
♦include  <Xm/Scale.h> 


Widget  tui_create_scale  ( parent,  name,  min,  max,  def,  labels,  num_labels, 

arg_list,  num_args  ) 


Widget 


char 


parent;  /*  The  parent  widget  to  which  the  scale  widget  will 

* be  attached, 

*/ 

*name,  /*  The  name  of  the  widget.  It  uniquely  defines  the 

* widget . 

*/ 

** labels;  /*  The  list  of  labels  to  place  in  the  scale. 

*/ 


int 


min. 


/*  The  minimum  value  of  the  scale  bar. 
*/ 


max. 


/*  The  maximum  value  of  the  scale  bar. 
*/ 


def,  /*  The  default  (or  current)  value  of  the  scale  bar. 

*/ 

num_labels;  /*  The  number  of  labels  to  place  inside  the  scale. 
*/ 


Arg 

int 


arg_list[];  /*  List  of  arguments. 

*/ 

num_args;  /*  Number  of  arguments  in  arg_list. 
*/ 


register  int  count  - 0, 
i; 


Arg 

Widget 


/* 


args [10] ; 
widget; 


* Set  up  at  most  five  arguments  from  arg_list . 
*/ 


if  ( num_args  > 5 ) 
num_args  » 5; 

for  ( i - 0;  i <-  num_args-l;  i++  ) { 


args[i]  “ arg_list[i]; 
count++; 


/* 

* Set  the  arguments  for  the  minimum,  maximum,  and  default  values . 
*/ 


XtSetArg  ( args [count],  XmNminimum,  min  );  count++; 
XtSetArg  ( args [count],  XmNmaximum,  max  );  count++; 
XtSetArg  ( args [count],  XmNvalue,  def  );  count++; 


/* 

* Create  and  manage  the  scale  widget. 
*/ 


XtManageChild  ( widget  - XmCreateScale  { parent,  name,  args,  count  ) ) 

/* 

* Add  all  labels  to  the  scale  widget. 

*/ 

for  < i - 0;  i < num_labels;  i++  ) 

tui_create_label  ( widget,  *(labels+i),  args,  0 ); 

/* 

* Return  the  widget  pointer. 

*/ 

return  ( widget  ) ; 

} 


* This  function  creates  a selection  list  for  use  in  a form.  This  function  creates 

* the  list  with  a set  of  selections  and  the  text  widget  which  may  be  used  to 

* directly  enter  a selection. 


* 

★ 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
***********************************************************************************/ 


# include  <X11/Intrinsic.h> 
# include  <Xm/Xm.h> 

♦include  <Xm/mwm.h> 
♦include  <Xm/SelectioB .h> 


Widget  tui_create_sel  ( parent,  name,  list,  num_items,  label,  arg_list,  num_args  ) 

Widget  parent;  /*  The  parent  widget  which  will  contain  the  selection 

* widget . 

*/ 


Arg 


arg_list[];  /*  List  of  arguments  to  widget. 
*/ 


{ 


char 

*name, 
**list , 
* label; 

/*  The  name  to  give  the  widget.  The  name  uniquely 

* identifies  the  widget. 

*/ 

/*  List  of  items  (character  strings)  to  put  into 

* the  list. 

*/ 

/*  The  label  to  place  above  the  list. 

*/ 

int 

num__i  terns, 
num_args; 

/*  The 

*/ 

/*  The 
V 

number  of  items  in  the  list, 
number  of  arguments  in  arg_list . 

register  int 

if 

count  - 0; 

Arg 

args [101; 

Widget 

widget , 
wlist ; 

XmString 

stringl, 
string2 ; 

/* 

* Set  up  at  most  five  arguments  from  arg_list. 
*/ 

if  ( num_args  > 5 ) 
num_args  - 5; 

for  ( i - 0;  i <-  num_args-l;  i++  ) { 


args[i]  • arg_list[i]; 
count ++; 


Set  up  all  resource  values.  Prevent  the  popup  from  disappearing  when  a button 
is  selected  and  initialize  message  title  string. 


XtSetArg  ( args [count],  XmNautoUnmanage,  FALSE  );  count ++; 

stringl  - XmStringLtoRCreate  ( label,  XmSTRINGJDEFAULT_CHARSET  ) ; 
XtSetArg  ( args [count],  XmNlistLabelString,  stringl  );  count++; 


Create  the  selection  list  widget. 


widget  - XmCreateSelectionBox  { parent,  name,  args,  count  ); 


Unmanage  all  unneeded  buttons. 


XtUnmanageChild  ( XmSelectionBoxGetChild 
XtUnmanageChild  { XmSelectionBoxGetChild 
XtUnmanageChild  ( XmSelectionBoxGetChild 
XtUnmanageChild  < XmSelectionBoxGetChild 
XtUnmanageChild  ( XmSelectionBoxGetChild 
XtUnmanageChild  ( XmSelectionBoxGetChild 


< 

widget. 

XmDIALOG 

_CANCEL_BUTTON 

) 

) 

< 

widget , 

XmDIALOG” 

~OK_BUTTON 

) 

) 

( 

widget. 

XmDIALOG" 

"help_button 

) 

) 

( 

widget , 

XmDIALOG" 

’apply_button 

) 

) 

( 

widget , 

XmDIALOG" 

’SELECTION_LABEL 

) 

) 

( 

widget. 

XmDIALOG" 

'separator 

) 

) 

Retrieve  the  actual  list  widget  from  the  selection  list  and  add  each  item  to 
be  displayed  in  the  list. 


wlist  * XmSelectionBoxGetChild  ( widget,  XmD I ALOG_L 1ST  ); 

for  ( count  - 0;  count  < num_items;  count ++  ) { 

string2  - XmStringCreateLtoR  ( * (list+count) , XmSTRINGJDEFAULT_CHARSET  )/ 
XmListAddltem  ( wlist,  string2,  0 ) ; 

XmStringFree  { string2  ) ; 


Manage  the  widget  and  free  the  string  used  for  the  label. 

XtManageChild  ( widget  ) ; 

XmStringFree  ( stringl  ) ; 

Return  the  text  widget  (as  opposed  to  the  selection  list),  so  that  the  calling 
function  can  easily  get  the  selection. 


return  ( XmSelectionBoxGetChild  ( widget,  XmD I ALOG_TEXT  ) ) ; 


/A***************************************************************************** 

* MODULE  NAME:  ( tui_create_separator  ) 

* — - - 

* This  function  is  used  to  create  a MOTIF  separator  gadget.  Separators  are 

* used  in  forms  to  separate  logical  areas  of  control  and  data  entry. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

★ Mark  D.  Collier  - Software  Engineering  Section 

★ Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 

★a****************************************************************************/ 


# include  <X11/Intrinsic .h> 

♦include  <Xm/SeparatoG.h> 

Widget  tui_create_separator  ( parent/  name,  arg_ list/  num_args  ) 


char 

*name; 

/*  The  instance  name  of  the  widget.  It  uniquely 
* defines  the  widget. 

*/ 

Widget 

parent; 

/*  The  parent  widget  to  which  the  separator 
* widget  will  be  attached. 

*/ 

Arg 

arg_list  [] ; 

/*  A list  of  arguments  to  be  used  for  this 
* instance  of  the  widget . 

*/ 

int 

num_args ; 

/*  The  number  of  args  in  arg_list. 
*/ 

int 

count  - 0/ 
i; 

Arg 

args [10] ; 

Widget 

widget ; 

/* 

* Set  up  at  most  the  first  five  arguments  of  arg_list. 

*/ 

if  ( num_args  > 5 ) 
num_args  - 5; 

for  ( i - 0;  i < num_ args;  i++  ) { 

args[i]  - arg_list[i]; 
count ++; 

} 

/* 

* Create  the  separator  widget  and  return  widget  pointer. 

*/ 

XtManageChild  ( widget  - XmCreateSeparatorGadget  { parent/  namer  args,  count  ) ) 
return  ( widget  ) ; 

} 


tui_cr_text.c 


* MODULE  NAME:  tui_create_text 

★ _ 


* This  function  creates  a MOTIF  text  widget.  The  text  widget  created  can  be  a 

* single  or  multi-line  field,  and  can  be  editable  or  read-only. 

* 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

a*********************#*************************************************************/ 


♦include  <X11/Intrinsic .h> 
♦include  <Xm/Text.h> 


Widget  tui_create_text  ( parent,  name,  text,  max_length,  mode,  edit_flag, 

arg_list,  num_args  ) 


Widget 

parent; 

char 

*name. 

*text ; 

int 

max_length. 

mode. 

edit_f lag; 

Arg 

arg_list [] ; 

int 

num_args; 

register  int 

count  - 0, 
i; 

Arg 

args [10]  ; 

widget 

widget; 

/*  The  parent  widget  to  which  the  text  widget  will 

* be  attached. 

V 

/*  The  name  of  the  widget.  It  uniquely 

* defines  the  widget. 

*/ 


/*  The  ascii  text  which  will  be  displayed  in  the 

* text  widget . 

*/ 

/*  Maximum  allowable  length  of  the  text  to  be  input 

* by  the  user. 

*/ 

/*  Indicates  whether  the  widget  will  be  single  or 

* multiple  lines: 

* 

* XmSINGLE_LINE_EDIT 

* XmMULTI_LINE  EDIT 
*/ 


/*  Indicates  whether  or  not  the  widget  can  be 
* edited. 

*/ 

/*  A list  of  arguments  for  expandability. 

*/ 

I*  Number  of  arguments  in  arg  list. 

*/ 


/* 

* Set  up  at  most  five  arguments  from  arg_list. 


mm 


if  ( num_args  ^5  ) 
num__ args  ■ 5; 

for  ( i - 0;  i <■  num_args-l;  i++  ) { 

args [i]  - arg_list[i]; 
count ++; 


* Initialize  the  default  text  (not  a compound  string),  the  line  size  mode,  the 

* edit  mode,  and  the  maximum  number  of  characters  to  be  entered. 

*/ 


XtSetArg  ( 
XtSetArg  ( 
XtSetArg  ( 
XtSetArg  ( 


args [count] , 
args [count] , 
args [count] , 
args [count] , 


XmNvalue, 

text 

) ; 

count ++; 

XmNeditMode, 

mode 

) ; 

count ++; 

xmNeditable, 

edit_flag 

) ; 

count ++; 

XmNmaxLengt h , 

max_length 

) ; 

count++; 

* Based  on  the  (mode)  flag,  create  the  appropriate  type  of  widget.  Next  manage 

* the  widget.  Note  that  the  instance  name  of  a scrolled  text  widget  is  "instanceSW" . 

*/ 

if  ( mode  — XmMULTI_LINE_EDIT  ) 

widget  * XmCreateScrolledText  ( parent,  name,  args,  count  ) ; 

else 

widget  - XmCreateText  ( parent,  name,  args,  count  ); 

XtManageChi Id  ( widget  ) ; 

/* 

* Return  the  widget  pointer . 

*/ 


) 


return  ( widget  ) ; 


z***************************************************************************^^^^ 

* MODULE  NAME:  tui_create_toggle 

★ 

* This  function  creates  a MOTIF  toggle  button  gadget.  The  toggle  can  be  created 

* in  either  a set  or  unset  state. 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
*********************************************************************************** 


♦include  <X11/Intrinsic .h> 
♦include  <Xm/ToggleBG.h> 


Widget  tui_create_toggle  ( parent,  name,  label,  set,  cb_name,  cb_data,  arg_list. 


nun 


widget 

parent; 

/*  The  parent  widget  to  which  the  label  widget 
* be  attached. 

*/ 

char 

*name. 

/*  The  name  of  the  widget.  It  uniquely 
* defines  the  widget. 

*/ 

* label; 

/*  The  string  which  this  label  widget 
* will  display. 

*/ 

int 

set; 

/*  If  TRUE,  then  the  toggle  is  set;  if  FALSE, 
* the  toggle  is  un selected. 

*/ 

XtCallbackProc 

cb_naroe  ; 

/*  Used  to  specify  a callback  function  to  call 
* if  this  toggle  is  selected  by  the  user. 

*/ 

caddr_t 

cb_data; 

/*  Value  to  passed  to  the  callback  function. 
*/ 

Arg 

arg_list ( ] ; 

/ * List  of  arguments. 
*/ 

int 

num_args ; 

/*  Number  of  arguments  in  arg  list. 
*/ 

register  int 

count  - 0, 
i; 

Arg 

args [10]  ; 

Widget 

widget  ; 

XmString 

string; 

* Set  up  at  most  five  arguments  from  arg_list . 
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*/ 

if  ( num__args  >^5~ ) 
num_args  * 5; 

for  ( i - 0;  i <■  num_arga-l;  i++  ) { 

args[i]  - arg_liat[i]; 
count ++; 

) 

/* 

* Set  the  label  for  the  toggle  gadget. 

*/ 

string  - XmStringLtoRC reate  ( label,  XmSTRING_DEFAULT_CHARSET  ) ; 

XtSetArg  ( args [count],  XmNlabelType,  XmSTRING  );  count++; 

XtSetArg  < arga [count],  XmNlabelString,  string  );  count++; 

/* 

* Create  and  manage  the  toggle  widget . 

*/ 

XtManageChild  ( widget  - XmCreateToggleButtonGadget  ( parent,  name,  arga,  count  ) ) ; 

/* 

* If  a callback  function  was  specified,  add  the  appropriate  callback  to  the 

* toggle  widget . 

*/ 

if  ( cb_name  ) 

XtAddCallback  ( widget,  XmNarmCallback,  cb_name,  cb_data  ) ; 

/* 

* If  the  toggle  is  to  be  in  a selected  state,  set  the  state  of  the  toggle  to 

* TRUE. 

*/ 

if  ( set  — TRUE  ) 

XmToggleButtonGadgetSet State  ( widget,  TRUE,  FALSE  ) ; 

/* 

* Free  the  compound  string  and  return  widget. 

*/ 


} 


XmStringFree  ( string  ) ; 
return  ( widget  ) ; 
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* MODULE  NAME:  ( tui__create_t rans_shell  ) 

★ — - 


* This  function  creates  a transient  shell  widget  which  is  used  to  create  a 

* popup  which  is  temporary  in  nature.  This  function  is  provided  to  simplify 

* this  process  and  to  set  the  correct  arguments  so  that  the  window  is  appli- 

* cation  modal  (all  other  windows  are  disabled  - except  application  shells) 

* and  so  that  it  does  not  have  a CLOSE  function  in  the  window  manager  menu. 

* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

a***************************************************************************** ^ 


♦include  <stdio.h> 

♦include  <X11/Intrinsic .h> 
♦include  <X11/Shell .h> 
♦include  <Xm/Xm.h> 

♦include  <Xm/mwm.h> 


extern  Widget  Top,  /*  The  top  level  widget  which  is  the  parent 

* of  transient  shells. 

*/ 

Cur_shell;  /*  Keeps  track  of  the  popup  widget  currently 

* displayed. 

*/ 


Widget  tui_create_trans_shell  ( name,  arg_list,  num_args  ) 

char  *name;  /*  The  name  of  the  widget.  This  string  will 

* appear  in  the  title  bar  of  the  shell. 

*/ 

Ar9  arg_list [ ] ; /*  List  of  arguments  to  be  used  in  this 

* instance  of  the  widget. 

*/ 


int 


num_args; 


/*  The  number  of  arguments  in  the  argument 
* list; 

*/ 


{ 


register  int 

Arg 

Widget 

XtCallbackProc 

int 


if 

count  - 0; 
args [10]  ; 
widget ; 

cb_destroy_shell () ; 

x, 

y; 


/* 

* Retrieve  the  location  of  the  top  level  shell.  The  location  will  be  used  to  place 

* the  new  popup. 


*/ 


XtSetArg  ( argsicount] , XmNx,  fix  );  count++; 

XtSetArg  ( args [count],  XmNy,  fiy  );  count++; 

Xt Get Values  ( Top,  args,  count  ) ; 

/* 

* Set  up  at  most  five  arguments  from  arg_list . 

*/ 

count  “ 0; 
if  ( num_args  > 5 ) 
num_args  “ 5; 

for  ( i - 0;  i o num_args-l;  i++  ) { 

args[i]  “ arg_list[i]; 
count++; 

> 

/* 

* Initialize  arguments  to  place  the  popup  on  top  of  the  control  panel  window. 

*/ 

XtSetArg  ( args [count] , XmNx,  x );  count++; 

XtSetArg  ( args [count],  XmNy,  y );  count++? 

/* 

* Create  the  transient  shell  widget. 

*/ 

widget  - XtCreatePopupShell  ( name,  transientShellWidgetClass,  Top,  args,  count  ) ; 

/* 

* Save  the  shell  widget  and  record  a callback  so  that  the  application  knows  when 

* the  shell  is  removed.  This  is  necessary  to  change  the  cursor  in  the  current 

* popup  window. 

*/ 

Cur_shell  - widget; 

XtAddCallback  ( widget,  XmNdestroyCallback,  cb_destroy_shell,  0 ) ; 

/* 

* Force  the  popup  to  be  application  modal,  which  means  that  all  other 

* windows  (except  application  shells)  will  refuse  input.  Specify  the 

* functions  which  will  be  available  in  the  Motif  window  manager  menu  area. 

* Note  that  the  CLOSE  function  is  absent.  Note  also  that  these  arguments  are 

* set  after  creation,  because  they  appear  to  be  ignored  at  that  time. 

*/ 

count  « 0; 

XtSetArg  ( args [count],  XmNmwmlnputMode, 

MWM_INPUT_AP P L I CAT I ON_MOD AL  ) ; COunt++; 

XtSetArg  < args [count],  XmNmwmFunctions, 

MWM_FUNC_MOVE  I MWM_FUNC_RE SIZE  I 

MWM_FUNC_MINIMIZE  | MWM_FUNC_MAXIMIZE  ) ; COunt++; 

XtSetValues  ( widget,  args,  count  ) ; 

/* 

* Return  the  created  application  shell  widget. 

*/ 

return  ( widget  ) ; 

) 


/★★★*****************************************************************************^ 

* MODULE  NAME:  tui_get_list 

* 

* This  function  displays  a MOTIF  scrolled  list  and  returns  when  the  user  selects 

* an  item  from  the  list.  This  popup  can  include  either  the  normal  OK  button  or 

* a START  and  STOP  buttons . 

* 

* 

* INTERNAL  FUNCTIONS: 

* 

* o cb_list  - This  is  a callback  function  which  is  called  when  the  OK,  APPLY, 

* or  CANCEL  button  is  selected  from  the  popup. 

* 
it 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

***********************************************************************************/ 


♦include  <X11/Intrinsic .h> 
♦include  <Xm/Xm.h> 

♦include  <Xm/mwm.h> 
♦include  <Xm/SelectioB.h> 
♦include  <wex/EXmsg.h> 


®*tern  Widget  Cur shell;  /♦  Keeps  track  of  the  popup  widget  currently 

* displayed. 

*/ 


static  Widget 
static  int 
static  char 


widget ; 
flag; 

♦item  t - NULL; 


int  tui_get_list  ( parent,  list,  num_items,  item,  title,  label,  start_stop,  help_index 

arg_ list,  num_args  ) ” 

Widget  parent;  /♦  Main  window  of  the  application.  Used  to  attach 

* the  shell  widget. 

♦/ 


char 


int 


♦♦list, 

♦item, 

♦title, 

♦label; 


/♦  List  of  items  to  put  into  the  list. 

*/ 

/♦  Updated  to  the  selected  item. 

*/ 

/♦  The  title  of  the  popup. 

♦/ 

/♦  The  label  for  the  list  of  selections. 
♦/ 


num_i terns,  /♦  Number  of  items  in  the  list. 

*/ 

start_stop,  /*  Indicates  the  type  of  popup.  If  set,  buttons 

♦ for  START  and  STOP  will  be  displayed.  Otherwise, 

♦ only  an  OK  button  will  be  displayed. 

♦/ 

help_index,  /♦  Indicates  help  text  to  be  displayed  for  the 

♦ the  popup. 


num_args; 
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*/ 

/*  Number  of  arguments  in  arg_list. 
*/ 


Arg 


{ 

register  int 


arg  list[];  /*  List  of  arguments  to  widget. 
*/ 


count  - 0, 
i; 


Arg 

Widget 

XEvent 


args [15] ; 
wlist ; 
event ; 


XmString  string, 

stringl, 
string2, 
string3, 
string4; 

XtCallbackProc  cb_destroy_shell ( ) , 
cb_help  ( ) f 

cb  list  0; 


/* 

* Set  up  at  most  five  arguments  from  arg^list. 
*/ 


if  ( num_args  > 5 ) 
mun_args  ■ 5; 

for  { i - 0;  i o num_args-l;  i++  ) { 
argsfi]  - arg_list[i]; 
count ++; 

} 


* Set  up  all  resource  values.  Prevent  the  popup  from  disappearing  when  a button 

* is  selected,  turn  on  application  modal  to  lock  out  other  windows,  prevent  the 

* user  from  entering  a string  not  in  the  list,  and  initialize  message  and  title 

* strings. 

*/ 

XtSetArg  ( args [count],  XmNautoUnmanage,  FALSE  );  count++; 

XtSetArg  ( args [count],  XmNdialogStyle,  XmD I ALOG_AP P L XCAT ION_MOD AL  );  count++; 

XtSetArg  < args [count],  XmNmustMatch,  TRUE  );  count ++; 

stringl  - XmStringLtoRCreate  ( label,  XmSTRING_DEFAULT_CHARSET  ) ; 

XtSetArg  { args [count],  XmNlistLabelString,  stringl  );  count++; 

string2  - XmStringLtoRCreate  ( title,  XmSTRING_DEFAULT_CHARSET  ) ; 

XtSetArg  ( args [count],  XmNdialogTitle,  string2  );  count++; 

/* 

* If  (start— stop)  is  set,  set  the  labels  for  the  OK  and  APPLY  button  to  START  and 

* STOP. 

*/ 


if  ( start_stop  ) { 

string3  - XmStringLtoRCreate  ( "START",  XmSTRING_DEFAULT_CHARSET  ); 
XtSetArg  < args [count],  XmNokLabelString,  string3  );  count++; 
string4  - XmStringLtoRCreate  ( "STOP",  XmSTRING_DEFAULT_CHARSET  ); 
XtSetArg  { args [count],  XmNapplyLabelString,  string4  );  count++; 


Create  the  list  popup. 


widget  - XmCreateSelectionDialog  ( parent,  args,  count  ) ; 


Save  the  shell  widget  and  record  a callback  so  that  the  application  knows  when 
the  shell  is  removed.  This  is  necessary  to  change  the  cursor  in  the  current 
popup  window. 


Cur_shell  - widget; 

XtAddCallback  ( widget,  XmNdestroyCallback,  cb_destroy_shell,  0 ) ; 


Initialize  all  callbacks. 


XtAddCallback  ( widget, 
XtAddCallback  < widget, 
XtAddCallback  ( widget, 
XtAddCallback  ( widget. 


XmNcancelCallback, 

XmNokCallback, 

XmNnoMatchCallback, 

XmNhelpCallback, 


cb_list,  (caddr_t)0  ); 
cb_list,  (caddr_t)l  ); 
cb_list,  (caddr_t)3  ); 
cb_help,  help_index  ) ; 


If  (start_stop)  is  set,  manage  and  add  callback  for  the  APPLY  button. 


if  ( start_stop  ) { 

XtAddCallback  ( widget,  XmNapplyCallback,  cb_list,  (caddr_t)2  ) ; 
XtManageChild  ( XmSelectionBoxGetChild  ( widget,  XmOIALOG  APPLY  BUTTON  ) ) • 


Update  the  list  with  the  array  of  valid  selections. 


wlist  - XmSelectionBoxGetChild  ( widget,  XmDIALOG_LIST  ); 

for  ( count  » 0;  count  < num_items;  count ++  ) { 

string  - XmStringCreateLtoR  ( * (list+count ) , XmSTRINGJDEFAULT  CHARSET  ); 
XmListAddltem  ( wlist,  string,  0); 

XmStringFree  ( string  ) ; 


Manage  the  widget  and  all  compound  strings. 


XtManageChild  ( widget  ) ; 

XmStringFree  ( stringl  ) ; 
XmStringFree  ( string2  ) ; 
if  ( start_stop  ) { 

XmStringFree  ( string3  ) ; 
XmStringFree  ( string4  ) ; 


set_cmap  ( XtParent  ( widget  ) ) ; 


Wait  until  a button  is  selected. 


flag  « -1;  ' 

while  ( flag  “ -1  ) ( 

XtNextEvent  ( fievent  ) ; 

XtDispatchEvent  ( ievent  ) ; 

} 


If  the  user  selected  OK,  copy  the  selection  string  to  the  parameter  (item) . 


if  ( flag  ) 

strcpy  ( item,  item__t  ) ; 


Destroy  the  widget. 


Xt Destroy Widget  ( widget  ) ; 

Return  the  value  selected  by  the  user  (0  is  for  no  item  selected  and  1 is 
for  an  item  selected) . 


return  ( flag  ) ; 
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/**********************  + *****i'**ic*****ititi'it*i'***itititi'iti'**i'ifititi'i'i'i'i'i'i'i'i'i'i'i'iti'itifi'i'  + i'i' 

* MODULE  NAME  AND-FUNCTION : ( cb_list  ) 

* 

* This  callback  function  is  called  when  the  OK,  APPLY,  or  CANCEL  button  is 

* selected  from  the  popup. 

****************************************************************************** i 


static  XtCallbackProc  cb_list  ( w,  closure,  sb  ) 

Widget  w;  /*  Set  to  the  widget  which  initiated  this 

* callback  function. 

V 


caddr_t  closure;  /*  Callback  specific  data.  This  parameter 

* is  set  to  button  selected. 

*/ 

XmSelectionBoxCallbackStract  *sb; 

/*  Specifies  any  callback-specific  data  the 

* widget  needs  to  pass  to  the  client. 

*/ 

{ 

/* 

* If  the  user  selected  either  OK  or  APPLY  (APPLY  only  available  for  START/STOP 

* operation),  retrieve  the  selected  item.  If  an  item  was  selected,  set  (flag)  to 

* the  value  of  (closure) , which  will  cause  the  popup  to  be  removed. 

*/ 

if  ( (int) closure  — 1 | | (int) closure  — 2 ) { 

XtaStringGetLtoR  ( sb->value,  XmSTRING_DEFAULT_CHARSET,  titem  t ) ; 
if  ( *item_t  ) 

flag  - (int) closure; 

/* 

* Otherwise,  if  (closure)  is  3,  the  user  entered  a string  which  does  not  match 

* any  in  the  list,  so  generate  a warning, 

*/ 


} else  if  { (int) closure  •-  3 ) ( 

tui_msg  ( M_ YELLOW,  "Selection  does  not  match  any  in  list"  ) ; 


/* 

* Otherwise, 

V 


the  user  selected  CANCEL,  so  set  (flag)  to  0. 


) else  ( 

flag  - (int) closure; 

> 


/* 

* Normal  return, 
*/ 


) 


return; 
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* MODULE  NAME:  tui_m3g 


* This  function  displays  different  types  of  popups  for  different  message  types. 

* it  displays  a non-modal  popup  which  when  acknowledged,  is  automatically 

* removed.  Note  that  this  function  also  calls  EXmsg.  Note  also  that  only  one 

* message  of  this  type  will  ever  be  displayed  because  this  function  always  re~ 

* moves  the  previous  (if  any)  message. 


* 


* 

* EXTERNAL  FUNCTIONS: 

★ 

* o tui_msg_control 

★ 

★ 


This  function  allows  the  display  of  popup  messages  to 
be  enabled  and  disabled. 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
**★***************★****************************************************************/ 


# include  <X11/Intrinsic .h> 
# include  <Xm/Xm.h> 

♦include  <Xm/mwm.h> 
♦include  <Xm/MessageB.h> 
♦include  <wex/EX*nsg.h> 


extern  widget  Top;  /*  The  top  level  widget  of  the  Display  Manager 

* application. 

*/ 

static  int  popup_flag  - FALSE; 

/*  Indicates  whether  or  not  popup  messages  should 

* be  displayed. 

V 


int  tui_msg  ( type,  format,  pi,  p2,  p3,  p4,  p5,  p6,  p7,  p8  ) 

int  type;  /*  Type  of  the  message.  Used  to  determine  the  type 

* of  popup  displayed. 

*/ 


char 


♦format ; 


/*  Format  string  for  the  sprintf. 
*/ 


char  *pl,  *p2,  *p3,  *p4,  *p5,  *p6,  *p7,  *p8; 

/*  Parameter  values  for  the  string. 
*/ 

{ 

register  int  count  - 0; 


static  Widget  widget  - NULL; 


Arg  args[10]; 

XmString  string; 

message [200] ; 


char 


/ 


Format  the  3tr±ng-to  be  displayed  and  call  EXmsg  to  display  it. 


sprintf  ( message,  format,  pi,  p2,  p3,  p4,  p5,  p6,  p7,  p8  ); 
EXmsg  ( format,  format,  pi,  p2,  p3,  p4,  p5,  p6,  p7,  p8  ); 


If  popup  messages  are  not  to  be  displayed,  return  immediately. 

if  ( popup_flag  — FALSE  ) 
return  ( 0 ) ; 


If  a popup  was  already  defined,  destroy  it  (it  will  have  been  unmanaged,  but 
will  still  exist. 


if  ( widget  ) 

XtDestroyWidget  ( widget  ) ; 


Initialize  the  string  to  be  displayed  in  the  popup. 


string  - XmStringLtoRCreate  ( message,  XmSTRING_DEFAULT_CHARSET  ) ; 
XtSetArg  ( args [count],  XmNmessageString,  string  );  count++; 


Based  on  the  message  type,  create  the  appropriate  popup  type. 


switch  { type  ) { 

case  M_BLUE: 

case  M_WHITE : 

case  MJ3REEN : 

widget  - XmCreatelnformationDialog  ( Top,  "Display  Manager  Message",  args,  count  ) 
break; 

case  M_YELLOW: 

widget  - XmCreateWamingDialog  ( Top,  "Display  Manager  Message",  args,  count  ) 
break; 

case  M_RED : 

case  M_CRITICAL: 

widget  - XmCreateErrorDialog  ( Top,  "Display  Manager  Message",  args,  count  ) 

break; 
default : 
break; 

) 


Manage  the  widget  and  Free  the  string  used  for  the  compound  string. 

XtManageChild  ( widget  ) ; 

XmStringFree  ( string  ) ; 
set_cmap  ( XtParent  ( widget  ) ) ; 


Unmanage  the  CANCEL  and  HELP  push  buttons  as  they  have  no  function. 


/* 

* 

*/ 


XtUnmanageChild  ( XmMessageBoxGetChild  ( widget,  XmDIALOG_CANCEL_BUTTON 
XtUnmanageChild  ( XmMessageBoxGetChild  ( widget,  XmDIALOG_HELP_BUTTON 

/* 

* Normal  return. 

*/ 


} 


return  ( 0 ) ; 


/********************************************************************************** 

* MODULE  NAME:  tuir^msg^cbntrol 

* 

* This  function  is  called  to  turn  on  or  off  the  display  of  popup  messages. 
***********************************************************************************/ 

int  tui_msg_control  ( flag  ) 

int  flag;  /*  If  set  to  TRUE,  messages  will  be  displayed;  if 

* FALSE,  messages  will  not  be  displayed. 

*/ 

( 

/* 

* Set  static  flag  to  the  value  of  parameter. 

*/ 

popup_flag  - flag; 

/* 

* Normal  return. 

*/ 

return  ( 0 ) ; 

} 


tui_prompt.c 


* MODULE  NAME:  tui_get_prompt 

★ - _ 


* This  function  displays  a Motif  popup  which  waits  for  the  user  to  enter  a string 

* and  select  OK.  The  calling  function  specifies  the  function  to  call  when  the  OK 

* button  is  selected.  If  this  function  returns  TRUE,  this  function  will  return  to 

* the  calling  function. 

* 


★ 

★ INTERNAL  FUNCTIONS: 

★ 

* o cb_func  - This  function  is  called  to  process  selection  of  the  OK  and 

* CANCEL  buttons  on  the  popup.  This  function  will  call  the  user- 

* defined  function  if  OK  is  selected. 

* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★a*********************************************************************************/ 


♦include  <X11/Intrinsic .h> 
♦include  <Xm/Xm.h> 

♦include  <Xm/mwm.h> 
♦include  <Xm/SelectioB.h> 
♦include  <Xm/Text.h> 


extern  Widget  Cur_ shell;  /♦  Keeps  track  of  the  popup  widget  currently 

* displayed. 

*/ 


static  Widget  widget; 

static  int  flag, 

(♦user  func) () ; 


int  tui_Cjet_prompt  ( parent,  title,  label,  value,  help_index,  func,  arg_list,  num_args  ) 


Widget 

parent; 

/*  Main  window  of  the  application.  Used  to  attach 
♦ the  shell  widget. 

*/ 

char 

♦title. 

/*  The  title  of  the  popup. 

♦/ 

/*  Label  for  the  text  input  widget. 
♦/ 

/*  String  set  to  the  initial  value. 
♦/ 

♦label, 

♦value; 

Arg 

arg_list  [ ] ; 

/♦  List  of  arguments  to  widget. 
*/ 

int 

help_index. 

/*  Index  to  the  help  text  to  be  displayed  for 

♦ this  popup. 

*/ 

/*  Number  of  arguments  in  arg_list. 
♦/ 


num_args ; 


register  int 


tuLpromptx 

(*func)  ();  /*  Function  to  call  when  the  user  selects  the  OK 

* button. 

*/ 

count  * 0, 
i; 


static  XtCallbackRec  cb[]  - { 

{ (XtCallbackProc) NULL,  ( caddr_t ) NULL,  }, 
{ (XtCallbackProc) NULL,  (caddr_t ) NULL  } 

} ; 


Arg 

XEvent 

XmString 


XtCallbackProc 


args [15] ; 

event ; 

stringl, 

s*ring2, 

string3; 


cb__destroy_shell  () , 
cb_func  (), 

cb_help  ()  ; 


Save  pointer  to  user  function  so  that  it  can  be  used  by  the  callback  function. 


user  func  * func; 


Set  up  at  most  five  arguments  from  arg_list. 


if  < num_args  > 5 ) 
num_args  - 5; 

for  ( i - 0;  i <-  num_args-l;  i++  ) { 
args[i]  - arg_list[i]; 
count ++; 

} 


Set  up  all  resource  values.  Prevent  the  popup  from  disappearing  when  a button 
is  selected,  turn  on  application  modal  to  lock  out  other  windows,  and  initialize 
message  and  title  strings. 


Xt Set Arg  ( args [count],  XmNautoUnmanage,  FALSE  );  count ++; 

Xt Set Arg  ( args [count],  XmNdialogStyle,  XmDIALOG_APPLICATION_MODAL  );  count++; 

stringl  - XmStringLtoRCreate  ( value,  XmSTRINGJ3EFAULT_CHARSET  ) ; 

Xt Set Arg  ( args [count],  XmN text St ring,  stringl  );  count++; 

string2  - XmStringLtoRCreate  < label,  XmSTRINGJDEFAULT_CHARSET  ) ; 

Xt Set Arg  { args [count],  XmNselectionLabelString,  string2  );  count ++; 

String3  - XmStringLtoRCreate  ( title,  XmSTRING_DEFAULT_CHARSET  ) ; 

XtSetArg  ( args [count],  XmNdialogTitle,  string3  );  count++; 


Create  the  prompt  popup. 


widget  * XmCreatePromptDialog  ( parent 


args,  count  ) ; 


tui_prompt.c 


* Save  the  shell-widgef  and  record  a callback  so  that  the  application  knows  when 

* the  shell  is  removed.  This  is  necessary  to  change  the  cursor  in  the  current 

* popup  window. 

*/ 

Cur_shell  - widget; 

xtAddCallback  ( widget,  XmNdestroyCallback,  cb_destroy_shell,  0 ) ; 

/* 

* Add  callbacks  for  the  OK,  CANCEL,  and  HELP  buttons. 

*/ 

XtAddCallback  ( widget,  XmNcancelCallback,  cb_func,  (caddr_t)0  ); 

XtAddCallback  ( widget,  XmNokCallback,  cb_func,  <caddr_t)l  ); 

XtAddCallback  ( widget,  XmNhelpCallback,  cb_help,  help_index  ) ; 

/* 

* Manage  the  widget  and  free  the  strings  used  for  the  message,  title,  and  value. 

*/ 

XtManageChild  < widget  ) ; 

XmStringFree  ( stringl  ) ; 

XmStringFree  ( string2  ) ; 

XmStringFree  ( string3  ) ; 

set_cmap  ( XtParent  ( widget  ) ) ; 

/* 

* Wait  until  either  OK  or  CANCEL  is  selected. 

*/ 

flag  m -1; 

while  ( flag  — -1  ) { 

XtNextEvent  ( Sevent  ) ; 

XtDispatchEvent  ( Sevent  ) ; 

) 

/ * 

* Destroy  the  popup  widget  and  return  the  status  of  the  popup  to  the  user  (0  is  for 

* CANCEL,  1 is  for  OK) . 

*/ 

XtDestroyWidget  ( widget  ) ; 
return  { flag  ) ; 

} 


tui_prompt.c 


/*********************************A<r*****************************^************#* 

* MODULE  NAME  AND— FUNCTION : ( cb_func  ) 

* 

* This  callback  is  called  when  the  user  selects  either  OK  or  CANCEL  from  the 

* popup . 

**********************************************************************  *******llr^ 
static  XtCallbackProc  cb_func  { w,  closure,  sb  ) 


Widget  w;  /*  Set  to  the  widget  which  initiated  this 

* callback  function, 

*/ 


/* 

★ 

★ 

*/ 


caddr_t  closure;  /*  Callback  specific  data.  This  parameter 

* is  set  to  button  selected. 

*/ 

XmSelectionBoxCallbackStrnct  *sb; 

/*  Specifies  any  callback-specific  data  the 

* widget  needs  to  pass  to  the  client. 

*/ 


char  ‘string; 

If  the  user  selected  OK,  retrieve  the  selection  string  and  pass  to  the  user-defined 
function.  If  this  function  returns  TRUE,  set  flag  to  cause  removal  of  the  popup. 


if  { (int) closure  ««  1 ) { 

XmStringGetLtoR  ( sb->value,  XmSTRING_DEFAULT_CHARSET,  fistring  ) ; 
if  ( (*user_func) ( string  ) — 1 ) 
flag  - (int) closure; 


/* 

* Otherwise,  if  the  user  selected  CANCEL,  so  set  flag  to  0. 
*/ 


} else 

flag  - (int) closure; 


/* 

* Normal  return. 
*/ 


) 


return; 
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* MODULE  NAME:  tui_diaplay_question 


* This  function  displays  a prompt  and  waits  for  the  user  to  respond.  This  func- 

* tion  returns  TRUE  if  the  user  selects  OK  and  FALSE  if  the  user  selects  CANCEL. 

* This  function  will  automatically  call  the  help  function  to  display  help  if  the 

* user  selets  the  HELP  button. 

* 

* 


* INTERNAL  FUNCTIONS: 

it 

* o cb  question  - This  callback  function  processes  selection  of  either  the 

* — OK  or  CANCEL  button. 

* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★a*********************************************************************************/ 


# include  <X11/Intrinsic .h> 
♦include  <Xm/Xm.h> 

♦include  <Xm/mwm.h> 
♦include  <Xm/MessageB .h> 


extern  Widget  Cur_shell;  /*  Keeps  track  of  the  popup  widget  currently 

* displayed. 

*/ 


static  Widget  widget; 

static  int  flag; 


int  tui_display_question  ( parent,  title,  message_text,  help_index,  arg_list,  num_args  ) 


Widget  parent;  /*  Main  window  of  the  application.  Used  to  attach 

* the  shell  widget. 

*/ 


char  *title,  /*  The  title  of  the  popup. 

*/ 

*message_text ; 

/*  Message  text  to  actually  display. 

V 

Arg  arg_list[];  /*  List  of  arguments  to  widget. 

*/ 


int 


{ 


register  int 


help_index,  /*  Index  to  the  help  text  to  be  displayed  for 
* this  popup. 

*/ 

nuin_args;  /*  Number  of  arguments  in  arg_list. 

*/ 

count  *0, 
i; 


Arg 


args [15] ; 


XEvent 


event ; 

XmString  stringl, 

string2; 

XtCallbackProc  cb_de3troy_shell () , 
cb_question  (), 

cb_help  (); 


Set  up  at  most  five  arguments  from  arg_list. 


if  ( num_args  > 5 ) 
num_args  - 5; 

for  ( i - 0;  i o num_args-l;  i++  ) { 
args[i]  - arg_list[i]; 
count++; 

} 


Set  up  all  resource  values.  Prevent  the  popup  from  disappearing  when  a button 
is  selected,  turn  on  application  modal  to  lock  out  other  windows,  and  initiali 
message  and  title  strings. 


XtSetArg  ( args [count],  XmNautoUnmanage,  FALSE  );  count++ 

XtSetArg  ( args [count],  XmNdialogStyle,  XmD I AL0G_APP L ICAT I0N_M0D AL  );  count++ 

stringl  - XmStringLtoRC reate  ( message_text,  XmSTRING_DEFAULT_CHARSET  ) ; 
XtSetArg  ( args [count],  XmNmessageString,  stringl  )?  count++; 

String2  - XmStringLtoRCreate  ( title,  XmSTRING_DEFAULT_CHARSET  ) ; 

XtSetArg  ( args [count],  XmNdialogTitle,  string2  );  count++; 


Create  the  question  dialog  popup. 


widget  - XmCreateQuestionDialog  ( parent,  "Display  Manager  Verification", 

args,  count  ) ; 


Save  the  shell  widget  and  record  a callback  so  that  the  application  knows  when 
the  shell  is  removed.  This  is  necessary  to  change  the  cursor  in  the  current 
popup  window . 


Cur_shell  — widget; 

XtAddCallback  ( widget,  XmNdestroyCallback,  cb_destroy_shell,  0 ) ; 
Add  callbacks  for  the  OK,  CANCEL,  and  HELP  buttons. 


XtAddCallback  ( widget,  XmNokCallback,  cb_question,  (caddr_t)l  ); 
XtAddCallback  { widget,  XmNcancelCallback,  cb_question,  <caddr_t)0  ); 
XtAddCallback  < widget,  XmNhelpCallback,  cb_help,  help_index  ) ; 


Manage  the  widget  and  free  the  strings  used  for  the  message  and  title. 


xtManageChild  ( widget  ) ; 

XmStringFree  (“Stringl  ) ; 

XmStringFree  ( 3tring2  ) ; 

set_cmap  ( XtParent  ( widget  ) ) ; 

/* 

* Wait  until  either  OK  or  CANCEL  is  selected. 
*/ 


flag  - -1; 

while  ( flag  — -1  ) { 

XtNextEvent  ( ievent  ) ; 

XtDispatchEvent  ( fievent  ) ; 

} 

/* 

* Destroy  the  popup  widget  and  return  the  status  of  the  popup  to  the  user  (0 

* CANCEL,  1 is  for  OK) . 

*/ 

XtDestroyWidget  ( widget  ) ; 
return  ( flag  ) ; 

) 


/****************************************************************************** 

* MODULE  NAME  AND-^UNCTION : { cb_question  ) 

★ 

* This  callback  is  called  when  the  user  selects  either  OK  or  CANCEL  from  the 

* popup . 

****************************************************************************** 
static  XtCallbackProc  cb_question  ( widget,  closure,  calldata  ) 

Widget  widget;  /*  Set  to  the  widget  which  initiated  this 

* callback  function. 

*/ 

caddr_t  closure,  /*  Callback  specific  data.  This  parameter 

* is  set  to  button  selected. 

*/ 

*calldata; 

I*  Specifies  any  callback-specific  data  the 

* widget  needs  to  pass  to  the  client . 

*/ 

{ 

/* 

* Set  global  flag  based  on  the  user's  selection. 

*/ 


flag  “ (int) closure; 


} 


return ; 
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/***★★****♦**★* ******************************************************************** 

★ MODULE  NAME:  tui_start__ wait 

★ — * - 

* This  function  changes  the  cursor  to  an  watch  to  indicate  that  a time-consuming 

* operation  is  about  to  take  place.  The  watch  cursor  will  appear  in  all  windows 

* making  up  the  application. 

* 


* EXTERNAL  FUNCTIONS: 

^ ■> 

* o tui_3top_wait 


* INTERNAL  FUNCTIONS: 

* 

* o cb_destroy_shell 

★ 


This  function  restores  the  cursor  to  the  default. 


This  function  is  called  whenever  a shell  is  des- 
troyed. 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

★ Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★★a********************************************************************************/ 


♦include  <X11/Intrinsic .h> 
♦include  <Xll/StringDefs .h> 
♦include  <Xll/cursorfont .h> 
♦include  cconstants .h> 
♦include  <disp.h> 


extern  Widget 


Top; 


extern  struct  dm__shmemory  *Dm_Address; 


extern  short 


Disp_Num; 


/*  Top  level  widget  of  the  main  control 

* panel  window. 

*/ 

/*  Pointer  to  shared  memory.  Needed  for 

* the  shell  of  the  current  display 

* window . 

*/ 

/*  Index  into  the  table  of  displays. 

*/ 


Widget 


Cur_shell;  /*  Maintains  the  current  popup  shell. 

* Needed  to  change  the  cursor  in  this 

* window. 

*/ 


int  tui_start_wait  ( ) 

{ 

static  Cursor  cursor  - NULL; 

/* 

* If  called  before  any  widgets  have  been  initialized,  return  immediately. 
*/ 


if  { Top  “ NULL  ) 
return  ( 0 ) ; 


If  the  watch  cursor  has  not  yet  been  defined,  define  it. 


if  ( cursor  NULL  ) 

cursor  - XCreateFontCursor  ( XtDisplay  ( Top  ) , XC_watch  ) ; 

Set  the  cursor  on  the  top  level,  current  popup,  and  display  shells. 

XDef ineCursor  ( XtDisplay  ( Top  ) , XtWindow  ( Top  ) , cursor  ) ; 
if  ( Cur_shell  ) 

XDef ineCursor  ( XtDisplay  ( Top  ) , XtWindow  ( Cur_shell  ) , cursor  ) ; 
if  { Dm__Address->shell  [Diep_Nuin]  ) 

XDef ineCursor  ( XtDisplay  ( Top  ) , XtWindow  ( Dm_Address->shell [Disp_Num]  ), 
cursor  ) ; 

Synchronize  the  display  to  cause  the  new  cursor  to  appear. 

XSync  ( XtDisplay  ( Top  ) , FALSE  ) ; 

Normal  return . 


return  ( 0 ) ; 


/★********************************************************************* ************ 

* MODULE  NAME:  tut~Stop_wait 

* 

* This  function  restores  the  default  cursor  on  all  shell  windows . This  function 

* is  called  once  the  time-consuming  operation  is  complete. 

a********************************************************************************/ 

int  tui_stop_wait  ( ) 

{ 

/* 

* If  called  before  any  widgets  have  been  initialized,  return  immediately. 

*/ 

if  < Top  --  NULL  ) 
return  ( 0 ) ; 


/* 

* Reset  the  cursor  on  the  top  level,  current  popup,  and  display  shells. 

*/ 

XDef ineCursor  ( XtDisplay  ( Top  ) , XtWindow  ( Top  ) , None  ) ; 
if  ( Cur_shell  ) 

XDefineCursor  ( XtDisplay  ( Top  ) , XtWindow  ( Cur_shell  ) , None  ) ; 
if  ( Dm_Address->shell [Disp_Num]  ) 

XDefineCursor  ( XtDisplay  ( Top  ),  XtWindow  ( Dm_Address->shell [Disp_Num]  ), 
None  ) ; 

/* 

* Synchronize  the  display  to  cause  the  new  cursor  to  appear. 

*/ 

XSync  ( XtDisplay  < Top  ) , FALSE  ) ; 


/* 

* Normal  return. 
*/ 


} 


return  ( 0 ) ; 


/******************************************************************* ************ 

* MODULE  NAME  AND- FUNCTION : ( cb_destroy_shell  ) 

★ 

* This  callback  function  is  called  whenever  a shell  widget  is  destroyed.  This 

* function  clears  the  global  variable  (Cur_shell)  which  keeps  track  of  the 

* current  shell. 

****************************************-*************************************.*^ 


xtCallbackProc  cb_destroy_shell  ( widget,  closure,  calldata  ) 


widget  widget;  /*  Set  to  the  widget  which  initiated  this 

* callback  function. 

*/ 


< 

/* 

* 

*/ 


caddr_t  closure , /*  Callback  specific  data.  This  parameter 

* is  set  to  button  selected. 

*/ 

♦calldata;  /*  Specifies  any  callback-specific  data  the 

♦ widget  needs  to  pass  to  the  client . 

*/ 


Clear  the  current  shell  variable. 


Cur_shell  - NULL; 

/* 

♦ Normal  return. 

*/ 


} 


return; 
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******************************************************************************** 


# Generic  defaults. 

##♦###############«############################################################ 


♦topAttachment : 
♦bottomAttachment : 

* left Attachment : 
*rightAttachment : 
♦fontList : 
♦topShadowColor : 

*f oreground: 

♦XmText .background: 
♦XmList .background: 
♦allowOverlap : 
♦traversalOn : 


ATTACH__POSITION 

ATTACH_POSITION 

ATTACH__POSITION 

ATTACH_POSITION 

-adobe-courier-bold-r-normal — 14-140-75-75-m-90-iso8859-l 

white 

black 

lightblue 

skyblue 

FALSE 

TRUE 


******************************************************************************** 

H Accelerators . 

I#########################################*##################################### 


*irtp_f  ile . Exit . accelerator : <Key>Fl 

*mp_f  ile . Enable  Message . accelerator : <Key>F2 

*mp_f He . Set  Flight/Data . accelerator : <Key>F3 

*mp_f  ile . Screen  Dump . accelerator : <Key>F4 

*ntp_disp . Select  Display . accelerator : <Key>F5 

*mp_disp . Remove  Display . accelerator : <Key>F6 

*mp_disp . Freeze  Display . accelerator : <Key>F7 

*n\p_util. Enable  PBIs .accelerator : <Key>F8 

♦mp_limits . List  Limits . accelerator : <Key>F9 

plot  .List  Plots  .accelerator : <Key>F10 

*mP_f il© .Exit .acceleratorText : FI 

*mp_f ile . Enable  Message . acceleratorText : F2 

♦mp_f ile . Set  Flight /Da£a . acceleratorText : F3 

*mp_f ile. Screen  Dump. acceleratorText : F4 

♦mp_disp . Select  Display . acceleratorText : F5 

*mp_disp. Remove  Display .acceleratorText : F6 

♦mp_disp . Freeze  Display . acceleratorText : F7 

*mp_util . Enable  PBIs . acceleratorText : F8 

*mp_limits . List  Limits  . acceleratorText : F9 

♦mp^ plot . List  Plots . acceleratorText : F10 


#######«##########**#«**#»#*#*«##*###*#*#*###*##*#*####*#*#*#*##*#*##*###*###### 

# Defaults  for  buttons . 

******************************************************************************** 


♦OK . showAsDef ault : 

♦OK . lef tPosition : 

♦OK. rightPosition: 

♦OK . topPosit ion : 

♦OK. bottomPosition: 
♦Cancel . lef tPosition : 
♦Cancel . rightPosition : 
♦Cancel . topPosit ion : 
♦Cancel .bottomPosition: 
♦Help . lef tPosition : 
♦Help. rightPosition: 
♦Help . topPosit ion : 

♦Help . bottomPosition : 


1 

9 

25 

13 

87 

43 

57 

21 

79 

76 

90 

21 

79 


########*#*####*####*#*#########*###*#*#*#*##*###«###*##*#***######**####*###### 

# Needed  for  the  display  window. 

##*###*#########*#*#«###*###*#######*########*###*####*#####*#*##*############## 
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♦Display  Window . allowShellResize : 
♦Display  Window^scrollingPolicy : 
♦Display  Window*scfDllBarbisplayPolicy : 
♦Display  Window ♦border Width: 

♦Display  Window*scroll . width: 

♦Display  Window*scroll . height : 

♦Display  Window*draw . width : 

♦Display  Window*draw .height : 

♦Display  Window*draw . marginHeight : 
♦Display  Window*draw .marginWidth : 


TRUE 

AUTOMATIC 

AS_NEEDED 

0 

400 

400 

800 

800 

0 

0 


#########«#########*######«###########*######################################### 

# Needed  for  the  Help  pop  up. 

######*####*4###*##########*#####*#*###################################*######## 


♦Display  Manager  Help .minWidth : 600 

♦Display  Manager  Help.minHeight : 550 

♦Display  Manager  Help*textSW. leftPosition:  1 

♦Display  Manager  Help*textSW. rightPosition:  99 

♦Display  Manager  Help*textSW.topPosition:  1 

♦Display  Manager  Help^textSW. bottomPosition : 90 

♦Display  Manager  Help*sep. leftPosition:  0 

♦Display  Manager  Help*sep . rightPosition : 100 

♦Display  Manager  HelpMep.  topPosition : 91 

♦Display  Manager  Help^sep. bottomPosition:  92 

♦Display  Manager  Help^Done . leftPosition:  1 

♦Display  Manager  Help*Done . rightPosition:  25 

♦Display  Manager  Help*Done.topPosition:  93 

♦Display  Manager  Help*Done .bottomPosition:  99 


##*««#*##«#######««#*##*###*#####«#*«*###«#**#«##*############################## 

# Needed  for  the  Set  Flight  ID/Data  Type  pop  up. 

#«###«#**«#*«»#«##««#«########4#«#########*t###«#***###**##***################## 


♦Set  Flight/Data .minWidth : 500 

♦Set  Flight/Data. minHeight:  130 

♦Set  Flight /Data *f_data. leftPosition:  1 

♦Set  Flight/Data*f_data . rightPosition:  99 

♦Set  Flight /Data*f_data . topPosition : 1 

♦Set  Flight /Data^f_data .bottomPosition : 59 

♦Set  Flight /Dat a*sep0 . leftPosition : 0 

♦Set  Flight /Dat a ♦sepO . rightPosition : 100 

♦Set  Flight /Data*sep0 .topPosition:  60 

♦Set  Flight /Data^sepO .bottomPosition:  62 

♦Set  Flight/Data*f_cmd. leftPosition : 1 

♦Set  Flight /Data*f_cmd. rightPosition:  99 

♦Set  Flight /Data*f_cmd. topPosition:  63 

♦Set  F 1 ight /Dat a *f_cmd. bottomPosition:  99 

♦Set  Flight /Data ♦ r_data .numColumns : 2 

♦Set  Flight /Data*l_f id. leftPosition:  1 

♦Set  Flight/Data*l_f id. rightPosition : 20 

♦Set  Flight/Data*l_f id. topPosition:  1 

♦Set  Flight/Data*l_f id. bottomPosition : 40 

♦Set  Flight /Data *t_f id. leftPosition : 21 

♦Set  Flight/Data*t_f id. rightPosition:  49 

♦Set  Flight/Data*t_f  id. topPosition:  1 

♦Set  Flight /Data *t_f id. bottomPosition:  40 

♦Set  Flight /Data*l_data . leftPosition : 51 

♦Set  Flight /Data ♦l^dat a . rightPosition:  70 

♦Set  Flight /Data*l_data . topPosition:  1 

♦Set  Flight/Data*l_data .bottomPosition:  40 

♦Set  Flight/Data*r_data . leftPosition:  71 
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★Set  Flight /Data*r_data . rightPosition : 99 

♦ Set  Flight /Data*r_data .topPosition : 1 

♦Set  Flight /Data*r^data .bottomPosition : 99 

########################*########****####**############################# 

# Needed  for  the  Color  Editor. 

#################################*###»######***#*#*^**«**«****####### 

♦Color  Editor .minHeight : 465 

♦Color  Editor*f orm*acrollingPolicy : AUTOMATIC 

♦Color  Editor *form*acrollBarDisplayPolicy:  AS_NEEDED 

♦Color  Editor ♦XmScale . orientation : HORIZONTAL 

♦Color  Editor *XmScale .minimum:  0 

♦Color  Edit  or  ♦XmScale  .maximum:  255 

♦Color  Editor ♦XmScale .proceaaingDirection : MAX_ 0N_RIGHT 

♦Color  Editor*f_clr . leftPoaition : 31 

♦Color  Editor*f_clr . rightPoaition : 99 

♦Color  Editor*f_clr . topPosition : 1 

♦Color  Editor*f_clr . bottomPoait ion : 88 

♦Color  Editor*sep. leftPoaition:  0 

♦Color  Editor*aep . rightPoaition : 100 

♦Color  Editor*sep. topPoaition:  89 

♦Color  Editor*aep .bottomPoait ion : 90 

♦Color  Editor*f_cmd. leftPoaition:  1 

♦Color  Editor*f_cmd. rightPoaition : 99 

♦Color  Edit or *f_cmd. topPoaition:  91 

♦Color  Editor  *f_cmd.  bottomPoait  ion : 99 

♦Color  Editor*l_colors . leftPoaition:  1 

♦Color  Editor* l_colora . rightPoaition : 99 

♦Color  Editor *l_colora .topPoaition:  1 

♦Color  Editor*l_colora .bottomPoaition : 6 

♦Color  Editor*aw_colora . leftPoaition : 1 

♦Color  Editor*aw_colora . rightPosition : 99 

♦Color  Editor *sw_colora .topPoaition:  7 

♦Color  Editor*aw_colors .bottomPoaition:  80 

♦Color  Editor*f_rgb . leftPoaition:  1 

♦Color  Editor*f_rgb . rightPoaition : 99 

♦Color  Editor*f_rgb . topPoaition : 81 

♦Color  Editor* f_rgb .bottomPoaition : 99 

♦Color  Editor *l_rgb_red. leftPoaition:  1 

♦Color  Editor*l_rgb_ red. rightPoaition:  20 

♦Color  Editor* l_rgb_red. topPosition:  1 

♦Color  Editor *l_rgb_red. bottomPoaition:  32 

♦Color  Editor*l_ rgb_green . leftPoaition : 1 

♦Color  Editor*l_ rgb_ green . rightPosition : 20 

♦Color  Editor* l_rgb_green .topPosition : 34 

♦Color  Editor* l_r gb_g r een . bottomPoaition : 65 

♦Color  Editor*l_rgb_blue . leftPoaition : 1 

♦Color  Editor*l_rgb_blue . rightPosition : 20 

♦Color  Editor *l_rgb_blue .topPosition:  67 

♦Color  Editor* l_rgb_blue .bottomPoaition : 98 

♦Color  Editor *ac_rgb_ red . leftPoaition : 21 

♦Color  Editor*ac_rgb_red. rightPosition : 99 

♦Color  Editor*ac_rgb_red . topPosition : 1 

*Color  Editor*sc_rgb_red. bottomPoaition : 32 

♦Color  Editor*ac_rgb_green . leftPoaition : 21 

♦Color  Editor*sc_rgb_green . rightPoaition : 99 

♦Color  Editor*ac_rgb_green . topPosition : 34 

♦Color  Editor* ac_rgb_green . bottomPoaition : 65 
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♦Color  EditorAsc_rgb_blue . leftPosition : 21 

♦Color  Editor ♦sc_rgb_blue . rightPosition:  99 

♦Color  Editor*sc_rgb_ blue'. topPosit ion : 67 

♦Color  Editor ♦sc_rgbJolue . bottomPosition : 98 

♦Color  Editor *0K. showAsDef ault : 1 

♦Color  Editor*OK. leftPosition:  3 

♦Color  Editor*OK.rightPoaition:  25 

♦Color  Editor *OK.topPoait ion:  11 

♦Color  Editor ♦OK. bottomPoaition:  89 

♦Color  Editor*Cancel . lef tPoait ion : 27 

♦Color  Editor*Cancel . rightPoaition : 49 

♦Color  Editor ♦Cancel. topPoaition:  19 

♦Color  Editor*Cancel .bottomPoaition : 81 

♦Color  Editor*Reatore . leftPoaition : 51 

♦Color  Editor^Reatore . rightPoaition : 73 

♦Color  Editor^Restore . topPoaition : 1 9 

♦Color  Editor*Restore .bottomPesition : 81 

♦Color  Editor*Help . leftPoaition : 75 

♦Color  Editor ♦Help . rightPoaition : 97 

♦Color  Editor*Help. topPoaition:  19 

♦Color  Editor^Help .bottomPoaition : 81 


##****#**########*###############*############################################## 

# Needed  for  the  Change  Update  Rate  popup, 

*#***»***#*«*#*»***##«*#***##»*###*#»*###**###**################################ 


‘Change  Dpdats  Rate‘ahowValue : TRUE 

‘Change  Update  Rate*acale. orientation:  HORIZONTAL 

‘Change  Update  Rate*acale .processingDirection:  MAX  ON  RIGHT 

‘Change  Update  Rate*minWidth:  430~  — 

‘Change  Update  Rate*minHeight : 120 

‘Change  Update  Rate*f_data . leftPoaition:  1 

•Change  Update  Rate*f_data. rightPoaition:  99 

‘Change  Update  Rate*f_data. topPoaition:  1 

‘Change  Update  Rate‘f_data .bottomPoaition:  59 

‘Change  Update  Rate‘aep0 .leftPoaition:  0 

‘Change  Update  Rate‘sep0. rightPoaition:  100 

‘Change  Update  Rate*aep0 .topPoaition:  60 

‘Change  Update  Rate‘aep0 .bottomPoaition:  64 

‘Change  Update  Rate*f_cmd. leftPoaition:  1 

‘Change  Update  Rate*f_cmd. rightPoaition:  99 

‘Change  Update  Rate‘f_cmd. topPoaition:  65 

‘Change  Update  Rate*f_cmd. bottomPoaition:  99 

‘Change  Update  Rate*label. leftPoaition:  1 

‘Change  Update  Rate*label . rightPoaition:  99 

‘Change  Update  Rate‘label. topPoaition:  1 

•Change  Update  Rate*label. bottomPoaition:  20 

•Change  Update  Rate*scale. leftPoaition:  1 

‘Change  Update  Rate‘acale. rightPoaition:  99 

‘Change  Update  Rate*acale. topPoaition:  21 

‘Change  Update  Rate*acale .bottomPoaition:  99 


****#*#********#*##################################ff############################ 

# Needed  for  the  Change  Limits  popup. 


‘Change  Limita*minWidth:  400 

♦Change  Limits *minHeight : 470 

♦Change  Limits  *f__ms  id.  leftPosition : 1 

♦Change  Limit s*f_ms id. rightPosition : 99 

♦Change  Limit s *^103 id. t opposition : 1 

♦Change  Limits ♦f_msid. bottomPoaition : 48 
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★Change  LimitsMepO . leftPosition : 0 

★Change  Limits*sepO . rightPosition : 100 

★Change  Limit s*sepU7t0pPosition : 49 

★Change  LimitsMepO  .bottomPosition:  51 

★Change  Limits*f_ data . leftPosition:  1 

★Change  Limits*f_data . rightPoaition : 99 

★Change  Limits data .topPosit ion:  52 

★Change  Limits*f_data .bottomPosition : 86 

★Change  Limits^sepl . leftPosition : 0 

★Change  Limits*sepl . rightPosition:  100 

★Change  Limits*sepl .topPosition:  87 

★Change  Limits*sepl .bottomPosition:  88 

★Change  Limit s*f_cmd. leftPosition:  1 

★Change  Limits*f_cmd. rightPosition : 99 

★Change  Limit s*f_cmd. topPosition:  89 

★Change  Limit s*f_cmd. bottomPosition : 99 

★Change  Limits  *t_ms  id. leftPosition : 1 

★Change  Limits*t_msid. rightPosition : 40 

★Change  Limits *t_msid. topPosition:  1 

★Change  Limit  s^t_ms  id. bottomPosition:  99 

★Change  Limits*l_opslow . leftPosition : 1 

★Change  Limits^l^opslow. rightPosition:  20 

★Change  Limit s #1_ ops low . t opPos it ion : 1 

★Change  Limits *l_ops low . bottomPosition : 20 

★Change  Limits^t_opslow . leftPosition : 21 

★Change  Limits#t_opslow . rightPosition : 50 

★Change  Limits*t_opslow. topPosition:  1 

★Change  Limit s *t_ops low . bot t omPos it ion : 2 0 

★Change  Limits^tg_opslow . leftPosition : 55 

★Change  Limit s*tg_ops low. rightPosition:  73 

★Change  Limits*tg_opslow . topPosition : 1 

★Change  Limits ★tg_opslow .bottomPosition:  20 

★Change  Limits*tg_opslow_ a . leftPosition:  75 

★Change  Limits#tg_opslow_a . rightPosition:  99 

★Change  Limits*tg_ opslow_a . topPosition : 1 

★Change  Limits*tg_opslow_a .bottomPosition:  20 

★Change  Limits*l_opshigh. leftPosition:  1 

★Change  Limit s ★ l_opshigh . rightPosition:  20 

★Change  Limits*l_opshigh .topPosition:  27 

★Change  Limit s*l_ops high . bottomPosition : 46 

★Change  Limits*t_opshigh . leftPosition : 21 

★Change  Limits *t_opshigh . rightPosition : 50 

★Change  Limit s*t_opshigh . topPosition : 27 

★Change  Limit s^t_opshigh .bottomPosition:  46 

★Change  Limits*tg_opshigh . leftPosition : 55 

★Change  Limits^tg_opshigh . rightPosition : 73 

★Change  Limit s*tg_opshigh. topPosition : 27 

★Change  Limits *tg_ opshigh. bottomPosition:  46 

★Change  Limits ★tg_opshigh_a . leftPosition:  75 

★Change  Limit s *tg_opshigh_a . rightPosition : 9 9 

★Change  Limits ★tg-opshigh_a .topPosition : 27 

★Change  Limits  *tg_opshigh_a  .bottomPosition : 46 

★Change  Limits*l_critlow. leftPosition:  1 

★Change  Limits ★l_cr it low. rightPosition:  20 

★Change  Limit s*l_cr it low. topPosition : 53 

★Change  Limit s*l_crit low .bottomPosition : 72 

★Change  Limit s*t_crit low . leftPosition : 21 

★Change  Limits*t_ critlow . rightPosition : 50 

★Change  Limit s^t_crit low. topPosition : 53 

★Change  Limits *t_cr it low .bottomPosition : 72 
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♦Change  Limits*tg_critlow. leftPosition:  55 

♦Change  Limits ♦tg^crit low. rightPosition : 73 

♦Change  Limits *tg_CTit low*. topPosit ion : 53 

♦Change  Limits*tg_critlow. bottomPosition:  72 

♦Change  Limits^tg_critlow_a . leftPosition : 75 

♦Change  Limits*tg_critlow_a . rightPosit ion : 99 

♦Change  Limits*tg_critlow_a . topPosition : 53 

♦Change  Limit s*tg_critlow_a .bottomPosit ion:  72 

♦Change  Limits*l_crithigh . leftPosition : 1 

♦Change  Limits ♦l__crithigh . rightPosition : 20 

♦Change  Limits  ♦^crit  high  .topPosition:  79 

♦Change  Limits ♦l_cr it high . bottomPosit ion : 98 

♦Change  Limits ♦t_crithigh. leftPosition:  21 

♦Change  Limits ♦t_crithigh . rightPosition : 50 

♦Change  Limits*t_crithigh .topPosition : 79 

♦Change  Limits*t_crithigh .bottomPosition : 98 

♦Change  Limits^tg_crithigh. leftPosition:  55 

♦Change  Limits*tg_crithigh . rightPosition : 73 

♦Change  Limits *tg__crithigh .topPosition : 79 

♦Change  Limits  ♦tg_crithigh .bottomPosition : 98 

♦Change  Limits *tg_crithigh_a . leftPosition : 75 

♦Change  Limits *tg_crithigh__a . rightPosition : 99 

♦Change  Limits ♦tg_crithigh_a . topPosition : 79 

♦Change  Limits ♦tg__crithigh_a  .bottomPosition : 98 

♦Change  Limit s ♦Done. showAsDef ault : 1 

♦Change  Limits*Done. leftPosition:  8 

♦Change  Limits^Done . rightPosition : 20 

♦Change  Limits*Done. topPosition:  13 

♦Change  Limits *Done . bottomPosition : 87 

♦Change  Limits^Save. leftPosition:  32 

♦Change  Limits ♦Save . rightPosition : 44 

♦Change  Limits^Save. topPosition:  21 

♦Change  Limits*Save .bottomPosition : 79 

♦Change  Limits*MSID . leftPosition:  56 

♦Change  Limits*MSID . rightPosition : 68 

♦Change  Limits*MSID . topPosition : 21 

♦Change  Limit s *MSID . bottomPosition : 7 9 

♦Change  Limits^Help. leftPosition:  80 

♦Change  Limits^Help . rightPosition : 92 

♦Change  Limits^Help. topPosition:  21 

♦Change  Limits ♦Help .bottomPosition : 79 


#########**##*##*######*#*#**############*###################################### 

# Needed  for  the  Change  DDD  MS ID  popup. 

*»**#«*»***#«*#»**#*#***#**#*#**#**###*##*#*###*»*#*####»####################### 


♦Change  DDD  MSID*minWidth:  400 

♦Change  DDD  MSID*minHeight : 270 

♦Change  DDD  MSID*f_msid. leftPosition:  1 

♦Change  DDD  MS ID *f_ms id. rightPosition : 99 

♦Change  DDD  MS ID ♦f_ms id. topPosition : 1 

♦Change  DDD  MS ID *f_ms id. bottomPosit ion:  80 

♦Change  DDD  MSID*sep0 . leftPosition:  0 

♦Change  DDD  MSID^sepO . rightPosition:  100 

♦Change  DDD  MSID*sep0 .topPosition:  81 

♦Change  DDD  MSID*sep0 .bottomPosition : 82 

♦Change  DDD  MSID*f_cmd. leftPosition : 1 

♦Change  DDD  MSID*f_cmd. rightPosition : 99 

♦Change  DDD  MS  ID  *f_cmd.  topPosition : 83 

♦Change  DDD  MSID*f_cmd. bottomPosition : 99 

♦Change  DDD  MSID*t_msid. leftPosition : 1 
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40 

1 

99 


‘Change  DDD  MSID*t_msid. rightPosition : 

♦Change  DDD  MSID*t_msid. topPosition : 

♦Change  DDD  MSID*tTnsid. bottomPosition: 

#############################*#***##********#*################################## 

# Needed  for  the  Change  GDR  popup. 

#######################*#######**##*####*##***#**#******######################## 


♦Change 

GDR*r  dur  units . numColumns : 

2 

♦Change 

GDR*r_ppl  units .numColumns : 

2 

♦Change 

GDR*minWidth : 

600 

♦Change 

GDR*minHeight : 

200 

♦Change 

GDR*f_ppl . lef tPosit ion : 

1 

♦Change 

GDR*fj>pl . rightPosition : 

99 

♦Change 

GDR*f_ ppl .topPosition: 

1 

♦Change 

GDR*f_ ppl . bottomPosit ion : 

15 

♦Change 

GDR*sepO . lef tPosit ion: 

0 

♦Change 

GDR*sepO . rightPosition : 

100 

♦Change 

GDR*sepO .topPosition: 

16 

♦Change 

GDR*sepO .bottomPosition: 

17 

♦Change 

GDR*f_data . leftPosit ion : 

1 

♦Change 

GDR*f_data . rightPosition: 

99 

♦Change 

GDR* f— data . topPosition : 

18 

♦Change 

GDR*f_data .bottomPosition: 

76 

♦Change 

GDR*sepl . leftPosition : 

0 

♦Change 

GDR*sepl . rightPosition: 

100 

♦Change 

GDR*sepl .topPosition: 

77 

♦Change 

GDR*sepl .bottomPosition: 

78 

♦Change 

GDR*f_cmd. leftPosition: 

1 

♦Change 

GDR*f__cmd.  rightPosition : 

99 

♦Change 

GDR*  f_  cmd . t opPos  i t ion : 

79 

♦Change 

GDR*  f_cmd . bott  omPos  it  ion : 

99 

♦Change 

GDR*l_ppl . leftPosition: 

1 

♦Change 

GDR*l_ppl . rightPosition : 

30 

♦Change 

GDR*1_ ppl . topPosition: 

1 

♦Change 

GDR*l_ppl . bottomPosition : 

99 

♦Change 

GDR*t  _jppl . leftPosition : 

31 

♦Change 

GDR*t_ ppl . rightPosition: 

95 

♦Change 

GDR*t  jppl . topPosition : 

1 

♦Change 

GDR*t_ ppl . bottomPosition : 

99 

♦Change 

GDR*l_host . leftPosition: 

1 

♦Change 

GDR*l_host . rightPosition : 

30 

♦Change 

GDR*l_host .topPosition: 

1 

♦Change 

GDR*l_host .bottomPosition: 

25 

♦Change 

GDR*t_host . leftPosition : 

31 

♦Change 

GDR*t_host . rightPosition : 

45 

♦Change 

GDR*t_host . topPosition : 

1 

♦Change 

GDR*t_host .bottomPosition : 

25 

♦Change 

GDR*l_rq. leftPosition : 

51 

♦Change 

GDR*l__rq.  rightPosition : 

80 

♦Change 

GDR*l_rq. topPosition: 

1 

♦Change 

GDR*l_rq . bottomPosition : 

25 

♦Change 

GDR*t_rq . leftPosition : 

81 

♦Change 

GDR*t_rq . rightPosition : 

95 

♦Change 

GDR* t_rq. topPosition : 

1 

♦Change 

GDR*t_rq . bott  omPos  it  ion : 

25 

♦Change 

GDR*l_duration . leftPosition : 

1 

♦Change 

GDR* Induration . rightPosition : 

30 

♦Change 

GDR* l_durat ion. topPosition: 

30 

♦Change 

GDR* Induration . bottomPosition : 

54 

♦Change 

GDR*t_durat ion . leftPosition : 

31 
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♦Change  GDR*t_duration . rightPosition : 45 

♦Change  GDR*t_durat ion . topPosition : 30 

♦Change  GDR*t_durat-±on .bottomPosition : 54 

♦Change  GDR*l_ppl__rate . leftPosition : 51 

♦Change  GDR#1 _j>pl_rate . rightPoaition : 80 

♦Change  GDR*l_ppl_rate . topPosition : 30 

♦Change  GDR*l_ppl_rate .bottomPosition:  54 

♦Change  GDR*t_ppl_rate . leftPosition : 81 

♦Change  GDR*t_ppl_rate . rightPosition:  95 

♦Change  GDR*t_ppl_rate . topPosition : 30 

♦Change  GDR*t— ppl_rate . bottomPosition : 54 

♦Change  GDR*l_dur_ units . leftPosition : 1 

♦Change  GDR*l_dur_units . rightPosition : 30 

♦Change  GDR*l_dur_units . topPosition : 80 

♦Change  GDR*l_dur_units .bottomPosition:  99 

♦Change  GDR*r_dur_units .leftPosition:  31 

♦Change  GDR*r_dur_units . rightPosition:  45 

♦Change  GDR*r_dur_units .topPosition : 60 

♦Change  GDR*r_dur_units .bottomPosition:  99 

♦Change  GDR*l_ppl_janits . leftPosition : 51 

♦Change  GDR*l_ppl_units . rightPosition : 80 

♦Change  GDR*l_ppl_units .topPosition:  60 

♦Change  GDR*l_ppl_units .bottomPosition:  99 

♦Change  GDR*r_ ppl_units .leftPosition:  81 

♦Change  GDR*r_ppl_units . rightPosition : 95 

♦Change  GDR^r _ppl_units . topPosition : 60 

♦Change  GDR*r_ppl_units .bottomPosition:  99 

♦Change  GDR*OK. leftPosition : 8 

♦Change  GDR*OK. rightPosition:  20 

♦Change  GDR*OK. topPosition : 13 

♦Change  GDR*OK. bottomPosition:  87 

♦Change  GDR*PPL. leftPosition:  32 

♦Change  GDR^PPL . rightPosition : 44 

♦Change  GDR^PPL . topPosition : 21 

♦Change  GDR*PPL. bottomPosition:  79 

♦Change  GDR*Cancel . leftPosition : 56 

♦Change  GDR^Cancel . rightPosition : 68 

♦Change  GDR*Cancel. topPosition:  21 

♦Change  GDR^Cancel .bottomPosition:  79 

♦Change  GDR*Help. leftPosition:  80 

♦Change  GDR*Help. rightPosition:  92 

♦Change  GDR^Help. topPosition:  21 

♦Change  GDR^Help. bottomPosition:  79 


*»***#***»«**###***#»*##*#»##############t##t################################### 

# Needed  for  the  Plot/Save  overlay  popup, 

******»****»###»#*#**#»##*###*####t#«##ffM##################################### 


*Plot/Save  Overlay*minWidth : 500 

*Plot/Save  Overlay*minHeight : 270 

*Plot/Save  Overlay*f_data. leftPosition:  1 

*Plot/Save  Overlay*f_data. rightPosition:  95 

*Plot/Save  Overlay*f_data. topPosition:  1 

♦Plot/Save  Overlay* f_data. bottomPosition:  80 

•Plot/Save  Overlay*sep0. leftPosition:  0 

*Plot/Save  Overlay*sep0. rightPosition:  100 

*Plot/Save  Overlay*sep0 .topPosition:  81 

*Plot/Save  Overlay*sep0 .bottomPosition:  82 

*Plot/Save  Overlay*f_cmd. leftPosition:  1 

*Plot/Save  Overlay*f_cmd. rightPosition : 99 

*Plot/Save  Overlay* f_cmd. topPosition:  83 

*Plot/Save  Overlay* f_cmd. bottomPosition:  99 
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♦Plot /Save  Overlay*t_plot . leftPosition : 3 

♦Plot /Save  Overlay^t^plot. rightPosition : 47 

♦Plot/Save  Overlay*t_ plot .topPosition:  1 

♦Plot/Save  Overlay^t^ plot . bottomPosition : 99 

♦Plot/Save  Overlay*t_ovl . leftPosition : 53 

♦Plot /Save  Overlay ♦t^ovl . rightPosition : 97 

♦Plot /Save  Overlay*t_ovl .topPosition:  1 

♦Plot /Save  Overlay#t_ovl .bottomPosit ion:  99 


*****"************************************************************************* 

# Needed  for  the  Define  Universal  plot  popup. 

###########################################*################*##*#*#^##*##*###### 


♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
— ^ ^Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 
♦Define  Universal 


P lot  *minWidt h : 
Plot^minHeight : 

Plot *f_plot . leftPosition : 
Plot*f_ plot . rightPosition : 
Plot*f_jplot  .topPosition: 
Plot*f_plot  .bottomPosition: 
Plot^sepO . leftPosition: 
Plot*sepO . rightPosition : 
Plot*sepO .topPosition: 
Plot*sepO .bottomPosition: 
Plot*f_xy . leftPosition : 
Plot*f_xy . rightPosition: 
Plot*f_xy . topPosition : 

Plot *f_xy . bottomPosit ion: 
Plot*sepl .leftPosition: 
Plot*sepl . rightPosition: 
Plot*sepl .topPosition : 
Plot*sepl .bottomPosition: 
Plot ♦f_msid. leftPosition: 
Plot ♦f_msid. rightPosition: 

P lot ♦f_msid. topPosition: 
Plot*f— msid. bottomPosition: 
Plot*sep2 . leftPosition : 

Plot Mep2  . rightPosition : 
Plot *sep2 . topPosition : 
Plot*sep2 .bottomPosition: 
Plot*f_cmd. leftPosition: 
Plot^f_crod. rightPosition : 
Plot ♦f_crod. topPosition: 
Plot*f  cmd. bottomPosition: 


500 

600 

1 

95 

1 

6 

0 

100 

7 

8 
1 

99 
9 

26 

0 

100 

27 

28 
1 

99 
29 

90 
0 

100 

91 

92 
1 

99 

92 

99 


♦Define  Universal  Plot*l_plot. leftPosition:  1 

♦Define  Universal  Plot*l_ plot .rightPosition:  25 

♦Define  Universal  Plot*l_plot .topPosition:  1 

♦Define  Universal  Plot*l_ plot .bottomPosition:  99 

♦Define  Universal  Plot ♦t^plot .leftPosition:  26 

♦Define  Universal  Plot*t_plot .rightPosition:  50 

♦Define  Universal  Plot*t_ plot .topPosition:  1 

♦Define  Universal  Plot *t_ plot .bottomPosition:  99 

♦Define  Universal  Plot  ♦^xy^id.  leftPosition : 1 

♦Define  Universal  P lot *t_xy_id. rightPosition : 30 

♦Define  Universal  Plot ♦t_xy_id. topPosition:  1 

♦Define  Universal  P lot *t_xy_id. bottomPosition:  30 

♦Define  Universal  Plot *l_xlow. leftPosition:  1 

♦Define  Universal  Plot *l_xlow. rightPosition : 25 

♦Define  Universal  Plot *l_xlow. topPosition : 35 

♦Define  Universal  Plot *l_xlow. bottomPosit ion : 65 

♦Define  Universal  Plot*t  xlow. leftPosition : 26 
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•Define  Universal  Plot*t_xlow. rightPosition:  45 

•Define  Universal  Plot*t_xlow. topPosition:  35 

•Define  Universal  Prlot*t_xlow.bottomPosition:  65 

•Define  Universal  Plot*l_xhigh . leftPosition : 1 

•Define  Universal  Plot*l_xhigh . rightPosition:  25 

•Define  Universal  Plot*l_xhigh. topPosition:  70 

•Define  Universal  Plot*l_xhigh.bottomPosition:  99 

•Define  Universal  Plot*t_xhigh. leftPosition:  26 

•Define  Universal  Plot*t_xhigh . rightPosition:  45 

•Define  Universal  Plot*t_xhigh . topPosition : 70 

•Define  Universal  Plot *t_xhigh. bottomPosition:  99 

•Define  Universal  Plot*l_ylow. leftPosition:  51 

•Define  Universal  Plot*l  ylow. rightPosition:  75 

•Define  Universal  Plot*l_ ylow. topPosition:  35 

•Define  Universal  Plot#l_ylow. bottomPosition:  65 

•Define  Universal  Plot*t  ylow. leftPosition:  76 

•Define  Universal  Plot *t_ylow : rightPosition : 95 

•Define  Universal  Plot*t  ylow. topPosition:  35 

•Define  Universal  Plot*t_ylow.bottomPosition:  65 

•Define  Universal  Plot *l_yhigh. leftPosition:  51 

•Define  Universal  Plot*l  yhiqh. rightPosition:  75 

•Define  Universal  Plot •l_yhigh. topPosition:  70 

•Define  Universal  Plot*l_yhigh .bottomPosition:  99 

•Define  Universal  Plot*t_yhigh . leftPosition:  76 

•Define  Universal  Plot *t_yhigh. rightPosition:  95 

•Define  Universal  Plot *t_yhigh. topPosition:  70 

•Define  Universal  Plot *t_yhigh. bottomPosition:  99 

•Define  Universal  Plot •t_msid_id. leftPosition:  1 

•Define  Universal  Plot*t_msid_id. rightPosition:  30 

•Define  Universal  Plot •t_msid_id. topPosition:  1 

•Define  Universal  Plot •t_msid_id. bottomPosition:  9 

•Define  Universal  Plot*l_msid. leftPosition:  1 

•Define  Universal  Plot*l_msid. rightPosition:  25 

•Define  Universal  Plot*l_msid. topPosition:  11 

•Define  Universal  Plot*l_msid. bottomPosition : 19 

•Define  Universal  Plot*t_msid. leftPosition:  26 

•Define  Universal  Plot*t_msid. rightPosition:  45 

•Define  Universal  Plot *t_msid. topPosition:  11 

•Define  Universal  Plot*t_msid. bottomPosition : 19 

•Define  Universal  Plot*l_msid_p. leftPosition:  51 

•Define  Universal  Plot *l_maid_p. rightPosition:  75 

•Define  Universal  Plot*l_msid_p. topPosition:  11 

•Define  Universal  Plot*l_msid__p. bottomPosition:  19 

•Define  Universal  Plot*t_msid_p. leftPosition:  76 

•Define  Universal  Plot*t_msid_p. rightPosition:  95 

•Define  Universal  Plot*t_msid_p. topPosition:  11 

•Define  Universal  Plot •t_msid_p. bottomPosition:  19 

•Define  Universal  Plot*l_src. leftPosition:  1 

•Define  Universal  Plot*l_src. rightPosition:  25 

•Define  Universal  Plot*l_src. topPosition:  21 

•Define  Universal  Plot*l_src .bottomPosition : 29 

•Define  Universal  Plot •^src . leftPosition:  26 

•Define  Universal  Plot *t_src. rightPosition:  45 

•Define  Universal  Plot*t_src. topPosition:  21 

•Define  Universal  Plot*t_src. bottomPosition:  29 

•Define  Universal  Plot*l_srcjp. leftPosition:  51 

•Define  Universal  Plot*l_src_p. rightPosition:  75 

•Define  Universal  Plot *l_src_p. topPosition : 21 
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♦Define  Universal  Plot*l_src_p. bottomPosition:  29 

♦Define  Universal  Plot*t_srcjp. leftPosition:  76 

♦Define  Universal  ~Plot*t_src_p. rightPosition:  95 

♦Define  Universal  Plot*t_src_p. topPosition : 21 

♦Define  Universal  P lot  *t_src_jp. bottomPosition:  29 

♦Define  Universal  Plot *l_sample. leftPosition:  1 

♦Define  Universal  Plot*l_sample. rightPosition:  25 

♦Define  Universal  Plot ♦l_sample. topPosition:  31 

♦Define  Universal  Plot *l_sample .bottomPosit ion:  39 

♦Define  Universal  Plot *r_sample. leftPosition:  26 

♦Define  Universal  Plot ♦resample . rightPosition:  45 

♦Define  Universal  Plot  ♦^sample  .topPosition:  31 

♦Define  Universal  Plot^r_sample .bottomPosition:  45 

♦Define  Universal  Plot ♦l_sample_p. leftPosition:  51 

♦Define  Universal  Plot^l_sample_p. rightPosition:  75 

♦Define  Universal  P lot ♦l_sample_p. topPosition:  31 

♦Define  Universal  Plot ♦l—samplejp. bottomPosition:  39 

♦Define  Universal  Plot ♦r_sample_p. leftPosition:  76 

♦Define  Universal  Plot *r_sample_p. rightPosition:  95 

♦Define  Universal  Plot*r_sample_p. topPosition:  31 

♦Define  Universal  Plot ♦r_sample_p. bottomPosition:  45 

♦Define  Universal  Plot *s_axis_no . list Vis ibleltemCount : 3 

♦Define  Universal  Plot ♦l_axis_no. leftPosition:  1 

♦Define  Universal  Plot ♦l_axis_no . rightPosition:  25 

♦Define  Universal  Plot*l_axis_no .topPosition:  47 

♦Define  Universal  Plot ♦l_axis_no .bottomPosition : 56 

♦Define  Universal  Plot*s_axis_ no. leftPosition:  26 

♦Define  Universal  Plot *s_axis_no. rightPosition:  45 

♦Define  Universal  Plot *s_axis_no. topPosition:  47 

♦Define  Universal  Plot ♦s_axis_no. bottomPosition:  85 

♦Define  Universal  Plot*s_axis_no_ p.listVisibleltemCount :3 
♦Define  Universal  Plot*l_ axis_nojp. leftPosition:  51 

♦Define  Universal  Plot*l_axis_no^p. rightPosition:  75 

♦Define  Universal  Plot*l_axis_no_p. topPosition:  47 

♦Define  Universal  Plot*l_axis_no_p. bottomPosition:  56 

♦Define  Universal  PlotM^axis^o^p.  leftPosition:  76 

♦Define  Universal  Plot*s_axis_no_p. rightPosition:  95 

♦Define  Universal  P lot *s_axis_no_p . topPosition:  47 

♦Define  Universal  Plot*s_axis_no_p. bottomPosition:  85 

♦Define  Universal  Plot *l_xory. leftPosition:  1 

♦Define  Universal  Plot *l_xory. rightPosition:  25 

♦Define  Universal  Plot*l_xory .topPosition:  87 

♦Define  Universal  Plot  ♦l^jtory  .bottomPosition : 96 

♦Define  Universal  Plot*r_xory. leftPosition:  26 

♦Define  Universal  Plot*r__xory . rightPosition:  45 

♦Define  Universal  Plot*r_xory .topPosition:  87 

♦Define  Universal  P lot *r_xory .bottomPosition:  99 

♦Define  Universal  Plot*OK. leftPosition:  5 

♦Define  Universal  Plot *0K. rightPosition : 17 

♦Define  Universal  Plot *0K. topPosition:  13 

♦Define  Universal  Plot *0K. bottomPosition : 87 

♦Define  Universal  Plot *Plot . leftPosition : 21 

♦Define  Universal  Plot ♦Plot . rightPosition:  33 

♦Define  Universal  Plot^Plot .topPosition : 21 

♦Define  Universal  Plot*Plot .bottomPosition : 79 

♦Define  Universal  Plot *Axis . leftPosition : 37 

♦Define  Universal  Plot *Axis . rightPosition:  49 

♦Define  Universal  Plot ^Axis . topPosition : 21 
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♦Define  Universal  Plot *Axis .bottomPosition : 79 
♦Define  Universal  Plot*MSID.leftPosition:  53 
♦Define  Universal  W.ot ♦MSID . rightPosition : 65 
♦Define  Universal  Plot*MSID . topPosition : 21 
♦Define  Universal  Plot *MSID .bottomPosition:  79 
♦Define  Universal  Plot*Cancel . leftPosition:  69 
♦Define  Universal  Plot *Cancel . rightPosition:  81 
♦Define  Universal  Plot *Cancel .topPosition:  21 
♦Define  Universal  Plot *Cancel. bottomPosition:  79 
♦Define  Universal  Plot*Help. leftPosition:  85 
♦Define  Universal  Plot*Help. rightPosition:  97 
♦Define  Universal  Plot *Help. topPosition:  21 
♦Define  Universal  Plot^Help .bottomPosition:  79 


######*###*#########*#«##########*###**#*##**#####*#########*###*############### 

# Needed  for  the  Change  Zoom  Factor  popup. 

#########*##«####**#*«#*##*############**#######################*############### 


♦Change  Zoom  Factor*showValue: 

♦Change  Zoom  FactorMcale. orientation: 

♦Change  Zoom  Factor*scale.processingDirection: 
♦Change  Zoom  Fact or ♦scale .decimalPoints : 
♦Change  Zoom  Factor*minWidth: 

♦Change  Zoom  Factor*minHeight : 

♦Change  Zoom  Factor^f_data . leftPosition: 
♦Change  Zoom  Factor*f_data. rightPosition: 
♦Change  Zoom  Factor *f_data. topPosition: 

♦Change  Zoom  Factor*f_data. bottomPosition: 
♦Change  Zoom  Factor *sepO . leftPosition : 

♦Change  Zoom  Factor *sepO . rightPosition: 

♦Change  Zoom  Factor*sepO .topPosition: 

♦Change  Zoom  Factor^sepO .bottomPosition : 
♦Change  Zoom  Factor ♦f_cmd. leftPosition : 

♦Change  Zoom  Factor *f_cmd. rightPosition : 
♦Change  Zoom  Factor*f_cmd. topPosition : 

♦Change  Zoom  Factor ♦f_cmd. bottomPosition: 


TRUE 

HORIZONTAL 


MAX_ON_R I G H T 
2 

430 

120 

1 

99 
1 

59 
0 

100 

60 

64 
1 

99 

65 
99 


♦Change  Zoom  Factor*label . leftPosition : 1 

♦Change  Zoom  Factor*label . rightPosition : 99 

♦Change  Zoom  Factor ♦label .topPosition:  1 

♦Change  Zoom  Fact or *label. bottomPosition:  20 

♦Change  Zoom  Factor ♦scale . leftPosition:  1 

♦Change  Zoom  Factor*scale . rightPosition:  99 

♦Change  Zoom  Factor *scale . topPosition : 21 

♦Change  Zoom  Factor *scale .bottomPosition:  99 


change_gdr 

GDR  CHANGE  RETRIEVAL 

This  function  allows  the  user  to  change  the  Generalized 
Data  Retrieval  source  on  the  workstation.  The  user  specif xes 
a PPL  filename  and  then  is  allowed  to  make  updates. 


CHANGE  LIMIT  VALUES 


change_limits 


This  function  allows  the  user  to  change  limit  sense  values 
for  an  MSID  in  real-time.  When  a limit  is  changed,  the  new 
limit  is  effective  for  all  displays  within  the  same  work- 
station, flight,  data  type,  and  position  ID. 


DEFINE  UNIVERSAL  PLOT 

This  function  allows  the  user  to  define  a universal  plot. 
This  enables  the  user  to  define  in  real-time  certain  fields 
in  a plot  definition  file  that  were  build  during  display 
build  time. 


DISPLAY  OVERLAY 


This  function  allows  the  user  to  display  an  overlay  file 


edit_colors 


EDIT  COLORS 

This  function  presents  a grid  which  represents  the  color 
map  used  by  the  Display  Manager. 

The  user  can  both  review  the  colors  used  and  make  changes 
if  desired.  The  changes  will  only  affect  the  colors  within 
the  Display  Manager.  The  changes  will  not  affect  other 
clients . 

To  change  a color,  first  select  the  appropriate  rectangle 
in  the  grid  of  colors.  The  Red/Green/Blue  scales  at  the 
bottom  of  the  window  will  change  to  reflect  the  makeup 
of  the  color.  Next  adjust  the  color  by  positioning  the 
scales  to  the  left  or  to  the  right.  Moving  the  scales  to 
the  left  reduces  the  intensity  of  the  Red/Green/Blue 
component  in  the  color;  moving  the  scales  to  the  right 
increases  the  intensity. 

To  save  changes  use  the  OK  button.  To  cancel  changes, 
select  CANCEL.  The  RESTORE  button  can  be  used  to  restore 
the  color  map  without  exiting  from  the  window. 


enable_alarms 

ENABLE/DISABLE  ALARMS 

This  toggle  function  allows  the  user  to  enable  and  disable 
alarms . 


— enable_all.log 

ii  • § LB  I 

ENABLE/DISABLE  ALL  LOGGING 

This  function  allows  the  user  to  enable  and  disable  use 
' of  all  log  files. 


This  function  allows  the  user  to  enable  and  disable  use 
of  a log  file. 


ENABLE /DISABLE  MESSAGES 


enable_msg 


This  toggle  function  allows  the  user  to  enable  or  disable  the 
display  of  popup  messages. 

All  messages  generated  by  the  Display  Manager  are  routed  to  the 
Advisory  system.  If  popup  messages  are  enabled,  all  messages 
will  also  be  displayed  via  a popup  window.  A popup  message 
window  will  remain  displayed  until  removed  by  the  user.  The 
popup  will  not  lock  out  input  for  other  windows. 

Only  one  popup  message  will  be  displayed  at  a time.  If  a popup 
message  is  not  removed  and  another  message  is  pending,  the 
first  will  be  replaced  by  the  new  popup. 


enable_pbis 

ENABLE/DISABLE  PBI'S 

This  toggle  function  allows  the  user  to  enable  or  disable 
input  to  defined  PBI's. 


EXIT 


This  function  terminates  the  current  display  and  causes 
the  Display  Manager  to  exit.  This  action  will  not  halt 
other  displays  running  on  different  IGP's. 


SET  FLIGHT  ID  AND  DATA  TYPE 


flight_data 


This  function  alloW3  the  user  to  select  the  flight  ID  and 
the  data  stream  type. 

The  flight  ID  is  any  valid  flight  active  on  the  workstation. 
The  data  stream  type  is  any  of  the  valid  types  displayed 
in  the  forms  radio  box. 


••vV*  M 

1;  ::v:vXV/.v4^'^>'X- 


FREEZE/RESTART  DISPLAY 


freeze_disp 


This  toggle  function  allows  the  user  to  freeze  or  restart  the 
current  display. 


SHOW  FUNCTION  KEYS 


This  function  displays  a menu  which  lists  all  the  defined 
function  keys. 


LIST  LIMITS 


This  function  lis ZW  all  available  limit  files  and 
their  current  status  and  allows  the  user  to  start  or 
stop  a limit  group  (file) . 


ist_plots 

LIST  PLOTS 

This  function  lists  all  available  plot  files  and 
their  current  status  and  allows  the  user  to  start  or 
stop  a plot. 


remove_disp 


REMOVE  DISPLAY 

This  function  removes  the  current  display. 

The  display  is  removed  and  the  user  is  allowed  to  select 
another  display  or  use  functions  which  do  not  require  a 
display  to  be  initialized.  Note  that  this  function  does 
not  cause  the  Display  Manager  to  terminate. 


RESET  ZOOM 


reset_zoom 


This  function  allows  the  user  to  set  the  zoom  factor  back  to 
the  default  of  1.0 


save_ovl 


SAVE  DISPLAY  OVERLAY 

This  function  allows  the  user  to  save  a plot  data  file 
as  a display  overlay  file  to  be  used  at  some  future  date. 


} 


screen_dump 

SCREENDUMP 

This  function  is  used  to  generate  a dump  of  the  current 
screen. 

The  contents  will  be  dumped  to  the  hardcopy  device  defined 
for  the  workstation.  Note  that  for  best  results,  first  freeze 
the  display  with  the  desired  information  and  then  select 
the  screen  dump  function.  This  is  not  required,  but  will 
yield  better  results. 


SELECT  DISPLAY 


select_disp 


This  function  presents  a list  of  the  available  display 
files  and  allows  a display  to  be  selected. 


The  selected  display  will  be  started  and  will  replace  any 
display  already  initialized.  This  is  the  normal  manner  of 
initializing  a display. 

Note  that  the  list  of  files  contained  in  this  window  is 
saved  during  the  first  use.  Subsequent  uses  of  this 
window  will  require  much  less  initialization  time.  Note 
also  that  if  a new  display  is  added  after  this  list  is 
build,  the  display  will  not  appear  in  the  list  unless 
the  user  exits  and  restarts  the  Display  Manager. 


This  function  allows  the  user  to  set  the  zoom  factor  to 
a new  value . 
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UNLATCH  ALL  DDD' S 


unlatch_all 


This  function  allows  the  user  to  unlatch  all  Digital 
Display  Driver  (DDD)  MSID's. 


UNLATCH  DDD  MS ID 


unlatch_ddd 


This  function  allows  the  user  to  unlatch  a specific  Digital 
Display  Driver  (DDD)  MSID. 


update_rate 

UPDATE  RATE 

This  function  allows  the  user  to  set  the  display  update 
rate . 


ZOOM 


zoom 


This  function  allows  the  user  to  select  the  area  which  will  be 
zoomed. 


Display  Manager  Conversion 


ATTACHMENTS 


ATTACHMENT  2 - Data 
Handler  Stub  Code 
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Workstation  Executives 


ds_connect.c 


* ds_connect  - STUB  VERSION.  Returns  the  source  # in  the  env_key  for 

* use  by  ds_getkeys  to  open  the  proper  mdef  file. 

* 

* RLK  8/27/90 

* Include  files 


# include 
# include 
# include 
# include 
# include 
♦include 


<stdio.h> 
<ds/ds .h> 
<ds_  stub  .h> 
<FCcplus .h> 
<FCdebug . h> 
<wex/wex.h> 


/*  defined  constants  */ 
/*  debug  macros  */ 


* Externals 
extern  int  errno; 


* Function 

int  ds_connect (source , option) 
char  ^source;  /* 

char  *option[];  /* 

{ 

D ( f print f (stderr,  "ds_connect : 

, source,  option [0],  option [1], 


if  ( IS_EVN( source) ) 
return (EVN) ; 

if  (IS_MTM( source) ) 
return  (MTM)  ; 

/* 

if  < IS_GDR( source ) ) { 

fprintf (stderr,  "ds_connect : GDR  source  not  supported\n")  ; 
errno  - E_DSINVSRC; 
return (INVALID) ; 

) 

if  (IS_USR( source) ) { 

fprintf (stderr,  "ds_connect : USR  source  not  supported\n") ; 
errno  - E_DSINVSRC; 
return (INVALID) ; 

} 

*/ 

if  (IS_GDR (source) ) 
return (GDR) ; 

if  ( IS_USR (source) ) 
return (USR) ; 


data  source  for  stream  */ 
list  of  stream  options  */ 

source  ■ %s,  flight  * %s,  stream  type  - %s,  options 
option [2] ) ) ; 


if  (IS_NDM (source) ) 
return (NDM) ; 
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if  ( IS_PTM( source ) ) 
return (PTM) ; 


if  (IS_PPM (source) ) 
return (PPM) ; 

fprintf (stderr,  "ds_connect:  unknown  source  not  supported\n") 
errno  - E_DSINVSRC; 
return (INVALID) ; 


) 


ds_discon.c 


♦include  <3tdio.h> 

int  d3_discon <env_key) 
int  env_key; 

{ 

return (0) ; 
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/*★*****’★* ****************************************************** ************** 

* ds_getkeys  - STUB  VERSION. 

* “ (1)  create  decom  entry  for  each  maid 

* (2)  create  a keylist  of  data  sizes  in  bytes 

* {3)  set  key_count  to  #msids 


The  decom  entry  will  be  generated  in  the  following  way: 


* 

★ 

★ 

★ 

★ 

★ 

* 

★ 


length  - (bits)  read  from  msid.def 

size  - (bytes)  (length  + status  (32  bits))/8  (if  numeric) 
length  +4  (if  text) 

offset  - accumulated  as  msids  are  processed,  offset  +*  size 
num_samps  - set  to  1 (check  to  assure  O msid_list->sample_cnt ) 
error  - may  be  set  if  requested  sample  too  large,  etc 
attribute  - from  msid.def 


★ 

* 

* 

★ 

★ 

★ 

* 

★ 

★ 

* 

* 

* 

it 

* 

* 

★ 


The  keylist  will  have  3 entries  per  msid: 

length  of  one  sample  in  bytes  (decom->size  - 4) 

low  scale  value  These  values  used  by  ds_getparm s 

high  scale  value  to  try  to  generate  meaningful  random  data. 

The  data  will  be  generated  in  the  following  way: 

For  each  numeric  msid,  a random  # will  be  calculated 
which  is  <-  the  maximum  value  representable  in  the  # of 
bits  in  the  length. 

For  textual  msids,  a random  index  into  an  array  of  strings 
(defined  in  #define)  will  be  generated,  and  <length>  chars 
copied  to  the  file. 


★ This  program  is  part  of  the  Data  Acquisition  stub  for  DB/DM  enhancement 

* at  SwRI. 


* 


* Ronnie  Killough  8/28/90 

* 


* Include  files 


♦include  <stdio.h> 

♦include  <ds/ds.h> 

♦include  <ds_stub.h> 

♦include  <FCcplus.h>  /*  defined  constants  */ 

/*  ♦include  <FCdebug.h>  /*  debug  macros  */ 

♦include  <wex/wex.h> 

/★★a************************************************************************** 

* Globals 

****************************************************** a**********************/ 
extern  int  errno; 

/a**************************************************************************** 

* Functions 

*****************************************************************************/ 


int  ds_getkeys  (environment_key,  input_msids,  meta_keylist , meta_decom, 
meta_data_values ) 

int  environment_key; 
p_input  input_msids; 


/*  Environment  key  returned  from  ds_connect  */ 
/*  File  or  buffer  input  list  of  MSIDs  */ 


int  **meta_keylist  / 
p__decom  * *me t a_de c om ; 
char  **meta_data_  values; 
{ 
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/*  Place  to  store  pointer  to  key  list  */ 

/*  Place  to  store  pointer  to  decom  table  */ 

/*  Place  to  store  pointer  to  data  value  buffer*/ 


FILE  *tp; 

/*  pointer  to  MSID  files  */ 
FILE  *mdp; 

/*  ptr  to  mdef  file  */ 


parm_ent  *msid_list,  *input_msid_list ; 

/*  pointer  to  msid  parm_ent  list  */ 
p_decora  * decom; 

/*  local  ptr  to  decom  tables  */ 
struct  mdef_node  md [MAX_DEF ] ; 

/*  list  of  msid.def  records  */ 

int  num_md; 

/*  number  of  msid.def  entries  */ 
int  key_count ; 

/*  num  msids  for  this  source  */ 
int  *keylist; 

/*  list  of  data  widths  for  each  msid  */ 
int  i,  j; 

/*  local  temps  */ 
int  offset; 

/*  local  offset  */ 
int  found; 

/*  boolean  */ 


char  *data_valutfs ; 

/*  local  ptr  to  dv  buffer  */ 
char  tfn [15] ; 

/*  diag  filename  */ 
char  fn [10] ; 

/*  file  name  holder  for  mdef  file  */ 


D (f print f (stderr,  "START  ds_getkeys\n") ) ; 


/* 

* Check  for  valid  key 
*/ 


switch  (environment_key)  { 
case  GDR: 

key_count  - ds_rdppl  (input_msids  .parmin,  &input_msid_list ) ; 
break; 
case  USR: 

fprintf (stderr,  "ds_getkeys : invalid  environment  key  %d\n",  environment_key) ; 
return (-1); 
break; 
default : 

input_msid_list  - <parm— ent  *)  input_ msids .pa rmin; 
break; 

} 


/* 

* Output  intro  line  to  display 
*/ 


D (fprintf  (stderr,  "ds_getkeys:  environment_key  - %d,  parmsrc 
input_msids .parmsrc) ) ; 


%c\n". 


environment_key 
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* Output  MS IDs  to  file  for  diagnostics 
*/ 


fifdef  DEBUG 

sprint f (tfn,  "%s/%s.%d",  DATA_DIR,  "msids",  environmentjcey) ; 
if  ( ! (tp  - fopen (tfn,  "w"))) 

fprintf (stderr,  "Unable  to  open  diagnostic  output  file  %s.\n",tfn); 
else  { 

for  <msid_list  - input_msid_list ; * (msid^list-smame)  ; msid_list++) 
fprintf (tp,  "%s\n",  msid_list->name) ; 
fclose (tp) ; 

) 

#endif 


/* 

* Count  the  number  of  msids  for  key  count 
*/ 


key_ count  * 0 ; 

for  (msid— list  - input_msid_list ; * (msid_list->name)  ; msid_list++) 
key_count++; 


/* 

* Allocate  memory  and  copy  pointers  to  calling  parms 
*/ 


keylist  - (int  *)  malloc ( (key_count  * 3)  * sizeof (int )) ; 
decom  - (p_decom  *)  malloc  (key_count  * sizeof  (p_decom) ) ; 

if  ( (keylist  — NULL)  I I (decom  — NULL) ) 
return (-1) ; 

*meta_keylist  - keylist; 

*meta  decom  - decom; 


/* 

* Read  in  the  MSID  data  file  for  this  source 
*/ 


sprintf (fn,  "%s/%s.% d",  DATA_DIR,  md_fn,  environmentjcey); 
if  ( ! (mdp  - fopen (fn,  "r")))  { 

fprintf (stderr,  "Unable  to  open  %s.  Run  mk_mdef  on  fg  f ile . \n", fn) ; 
return (-1) ; 

) 

num_md  - 0; 

fscanf (mdp,  "%s  %ld  %d  %d  %d\n",  md[num_md] .ms id,  fi <md[num_md] .length) , & (md [num__md] . 
ttribute) , & (md[num— md]  .low_scale)  , £ <md[num_jnd]  .high_scale) ) ; 
num_md++; 

while  (Ifeof(mdp)  fifi  numjnd  < MAX_DEF)  ( 

fscanf  (mdp,  "%s  %ld  %d  %d  %d\n",  md[num_md]  .maid,  & (md[num_md]  . length)  , & <md[num__ 
d] .attribute) , & (md[num_md] .low_scale) , & (md[num_md] .high_scale) ) ; 
num__md++; 

) 

num  md  * num  md  - 1; 


fclose (mdp) ; 


/* 

* Loop  through  MS IDs, 
*/ 
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find  in  mdef  list,  fill  in  decom  record 


/♦  Set  up  pointers,  counters  */ 
offset  - 0; 

msid_list  - input_msid_list; 

/♦  Loop  through  */ 

for  (i»0;  i<key_ count;  i++)  { 

/♦  find  this  msid  record  */ 


found  - 0; 

for  <j-0;  j<“num_jnd;  j++)  { 

if  < ! strncmp  (md[  j]  .msid,  msid_list->name,  MSID_LEN)  ) { 
found  - 1; 
break; 

} 

) 

if  ([found  66  environment^ key  !«  GDR)  { 

fprintf (stderr,  "ds_getkeys : msid  %s  not  found.,. run  mk  mdef  for  this  display. 
\nH,  msid_list->name) ; 

sleep (5) ; 
return (-1)  ; 

} 

/♦  create  decom  entry  ♦/ 

decom->length  - (int)  md [ j] . length; 
decom->attribute  - (char)  md[j] .attribute; 

if  (md [ j ]. attribute  9 A' ) /♦  text ... length  is  in  bytes  */ 

decom->size  * decom->length  + 4; 

e^3e  /*  num... length  is  in  bits  */ 

decom->size  - (decom->length  +32)  / 8; 

dec om->num_s amps  ■ 1; 

if  (decom->num_samps  < msid_list->sample_cnt ) 
decom- >error  » SAMP 2 LG; 

else 

decom- >error  - NULL; 

/*  Place  data  width  and  low/high  scale  values  in  the  keylist  ♦/ 

♦keylist  - decom->size  - 4;  /♦  keylist  - byte  size  of  sample  ♦/ 

keylist++; 

♦keylist  - md[ j] . low_scale; 
keylist++; 

♦keylist  - md[ j] ,high_scale; 

/*  copy  offset  to  decom  ♦/ 

decom->of f set  - offset;  /♦  offset  is  offset  into  dv  buffer  */ 

offset  +-  decom->size; 

/♦  increment  the  pointers  */ 

D(fprintf (stderr,  "d3_getkeys:  maid  %s  length  %ld  size  %ld  attribute  %c  key  count" 
%d\n",  msid_list->name,  decom->length,  decora->size,  decom->attribute,  i) ) ; 


keylist++; 


decom++; 
maid  list++; 
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* Allocate  memory  for  the  data  value  buffer  and  copy  address  to  parm 
*/ 

data  values  “ (char  *)  malloc ( (unsigned  int)  offset); 

D (fprintf (stderr,  "address  is  %ld\n",  (unsigned  long)  data_values) ) ; 
*meta  data  values  - data_values; 


/* 

* Return  key  count 
*/ 

D (fprintf (stderr,  "END  ds_getkeys\n")); 
return (key_count) ; 


) 


ds_getpaim.c 

/*****************************★*********★************************************* 

* ds__getparms  - STUB  VERSION.  Generates  <key_count>  data  of  length 

* <keylist>  and  places  in  the  data  value  buffer. 

* 

* The  data  will  be  generated  in  the  following  way: 

★ 

* For  each  numeric  msid,  a random  # will  be  calculated 

* which  is  O the  maximum  value  representable  in  the  # of 

* bits  in  the  length. 

* 

* For  textual  msids,  a random  index  into  an  array  of  strings 

* (defined  in  #define)  will  be  generated,  and  <length>  chars 

* copied  to  the  file. 

* 

* This  program  is  part  of  the  Data  Acquisition  stub  for  DB/DM  enhancement 

* at  SwRI. 

* 

* Ronnie  Killough  8/28/90 

* 

★a***************************************************************************/ 


* Include  files 


♦include  <stdio.h>  /*  standard  I/O  declarations  */ 

♦include  <ds/ds.h>  /*  DA  constant  definitions  */ 

♦include  <ds_stub.h> 

♦include  <constants ,h> 

♦include  <wex/wex.h> 


int  ds_getparms (env  key. 

key  count 

int 

env_key; 

/* 

int 

key_ count ; 

/* 

int 

♦keylist; 

/* 

p decom  *decom; 

/* 

char 

*buf_ ptr ; 

/* 

/*  int 

cycle_check; 

/* 

/* 

keylist,  decom,  buf_ptr) 
environment  key  entry  number  */ 
number  of  keys  in  keylist  */ 
pointer  to  array  of  keys  */ 
pointer  to  decom  array  */ 
pointer  to  data  value  buffer  */ 
option  to  indicate  cycle  retrieval 
not  sent  if  FAC  set  */ 


{ 


V 


char  *dvb; 

p_decom  *dcm; 

long  status_selector; 

int  *key; 

int  cnt ; 

static  float  *e_val; 

static  long  *f_val; 

static  double  *d_val; 

static  double  msid_value  - 0.0; 

char  *t_ val  - "This  is  a default  string  which  doesn't  do  anything"; 
static  long  ^status; 
static  int  first_call  - 1; 

int  len,  low,  high;  /*  extracted  keylist  parms  */ 


static  long  stat[7]  - { 

DEAD_DATA,  MIS  SINGED  AT  A,  STATIC_DATA,  LIMIT_HIGH,  LIMIT_LOW, 
CRITICAL_HIGH,  CRITICAL  LOW  }; 


static  char  def_text [5] [50]  * { 

"AAAAAAAAAAAAAAAAABBBBBBBBBBBBBCCCCCCCCCCDDDDDDDDD  " , 
"aaaaaaaaaaaaaabbbbbbbbbbbbbbcccccccccccdddddddddd", 
" AAAAAAAAAAAAAAbbbbbbbbbbbbbbCCCCCCCCCCCDDDDDDDDDD " , 
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'aaaaaaaaaaaaaaBBBBBBBBBBBBBBccccccccccccDDDDDDDDD’ 

'EEEEEEEEEEEEEEFFFFFFFFFFFFGGGGGGGGGGGGHHHHHHHHHHH* 


) i 


D(fprintf (stderr, "START  ds_getparms,  source  %d\n",  env_key) ) ; 


/* 

* Allocate  memory,  if  first  call 

*/ 

if  (first_call)  { 

f val  - (long  *)  malloc (sizeof (long) ) ; 
e“val  - (float  *)  malloc (sizeof (float) ) ; 
d— val  - (double  *)  malloc (sizeof (double) ) ; 

status  - (long  *)  malloc (sizeof (long) ) ; 

first_call  “ 0; 

1 


* Cycle  through  keylist,  generating  random  data 
*/ 


/*  initialize  pointers  and  counters  */ 

dvb  - buf_ptr; 
key  ” keylist; 
dcm  - decom; 


for  (cnt-0;  cnt<key_count ; cnt++)  ( 

D(fprintf (stderr,  "cnt  - %d  key  - %ld  offset  - %ld  length  - %ld  size  - %ld  attribu 
te  ™ %c\n",  cnt,  *key,  dcra—>offset,  dcm—>length,  dcm-*>size,  dcm—>attribute) ) ; 

/*  for  each  msid,  generate  the  random  data  and  put  in  buffer  */ 

dvb  • buf— ptr  + dcm->of f set ; 

/* 

* Generate  random  status  character 

*/ 

♦status  - 0; 

/* 

status_selector  - random ()  % 7; 

♦status  I-  stat [status_selector] ; 

*/ 


memcpy(dvb,  status,  4); 

len  - ♦key; 
key++ ; 
low  - *key; 
key ++ ; 

high  * ♦key; 

D (fprintf (stderr,  "♦***  len  %d  low  %d  high  %d\n",  len,  low,  high)); 

switch  (dcm->attribute)  { 

case  'A'  : /♦  text  */ 

*f  val  - random ()  % 5; 


case  'F'  : 


case  ' E' : 


case  'D' : 


default : 


} 
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strncpy (t_val,  def_text [*f_val] , len); 
memcpy (dvb+4,  t_val,  len); 

D (fprintf (stderr,  "%ld%s\n",  ‘(long  *) (dvb) , (char  *) (dvb+4))); 
break; 

/*  long  */ 

*f_val  - (long)  ((randomO  % (high  - low  + 1))  + low)  ; 
memcpy (dvb+4,  f_val,  len); 

D (fprintf (stderr,  "%ld%ld\n",  * (long  *) (dvb) , * (long  *) (dvb+4) )) ; 
break; 

/*  float  */ 

*e_val  - (float)  (randomO  % (high  - low  + 1)  + low)  ; 
memcpy (dvb+4,  e_val,  len); 

D (fprintf (stderr,  "%ld%f\n",  * (long  *) (dvb) , ‘(float  *) (dvb+4))); 
break; 

/*  double  * / 

*d_val  - (double)  (randomO  % (high  - low  + 1)  + low)  ; 
memcpy ( dvb+ 4 , d_va 1 , len ) ; 

D (fprintf (stderr,  "%ld%f\n",  ‘(long  ‘) (dvb) , ‘(double  *) (dvb+4))) 
break; 

*d_val  - (double)  (randomO  % (high  - low  + 1)  + low)  ; 
memcpy ( dvb+ 4 , d_va 1 , len); 

D (fprintf (stderr,  "%ld%f\n",  ‘(long  *) (dvb) , ‘(double  *) (dvb+4) ) ) 
break; 


dcm++ ; 
key++; 


} 


) 

D (fprintf (stderr,  "END  ds_getparms\n") ) ; 


* ds_rdppl 


* This  is  a part  of  the  STUB  version  of  data  acquisition. 

* It  reads  the  data  for  the  GDR  data  sources  from  the  ppl  file  into  a 

* parm  ent  structure  for  use  by  the  stub  version  of  ds_getkeys  to  build 

* decom  entry  for  each. 


* 


* set  the  sample  count  to  1 since  is  blank  in  ppl  file 
★**★***★★**★* ********************************* ************* 


/ 


♦include  <stdio.h> 

♦include  <ds/ds.h> 

♦include  <ds_stub.h> 

♦include  <wex/wex.h> 

int  ds_rdppl (pfn,  maids) 
char  *pfn; 

parm_ent  **msids; 

{ 

char  *get_token ( ) ; 
char  *calloc<); 
parm_ent  *msid; 

FILE  *fp; 
int  key_count; 
char  buffer [256]; 
char  *bptr; 

D ( f print f (stderr,  "START  rdppl\n")  ) ; 

_ /* 

* Open  ppl  file 
*/ 


fp  - fopen(pfn,  "r") ; 
if  (fp  --  NULL)  { 

fprintf (stderr,  "Unable  to  open  PPL  file  %s\n",  pfn); 
return (-1) ; 

) 


/* 

* Count  ♦ records  (so  can  allocate  contiguous  memory  for  all) 
*/ 


fscanf(fp,  "%s\n",  buffer); 
key_count  * 1 ; 

while  (!feof(fp))  { 

fscanf(fp,  "%s\n",  buffer); 
key_count++; 

) 

D(fprintf (stderr,  "key_count  is  %d\n",  key_count) ) ; 


/* 

* Allocate  memory  for  the  msids 
*/ 


/* 


*msids  - (parm_ent  *)  calloc (key_ count,  sizeof (parm_ent) ) ; 
ms id  - *msids; 


Read  GDR  (ppl)  records 


* 

*/ 


rewind (fp) ; 

bptr  - buffer; 

while  < ! feof (fp) ) { 

fscanf(fp,  "%s\n",  buffer); 
bptr  - buffer; 

strcpy (msid->name,  get_token (&bptr) ) ; 
ms id++ ; 

) 

f close (fp) ; 

D (fprintf (stderr,  "END  rdppl\n") ) ; 
return (key_count) ; 


char  *get_token (bptr) 
char  **bptr; 

{ 

char  *token  * "aaaaaaaaaaaaaaaaaaaa"; 
char  *start; 

start  ■ token; 

while  (**bptr  ( 

♦token  - **bptr; 
token++; 

♦bptr  - *bptr  + 1; 

} 

♦token  - ' \0'  ; 
return (start ) ; 


) 
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Workstation  Executives 


Makefile 


################################################################################ 

# Makefile  for  the  Display  Manager. 

################################################################################ 

* 

# Initialize  master,  binary,  library,  and  include  directories. 

« 

MASTER  - /home/pro ject/2984/db 
BINDIR  - /WEX/Exec 
INCDIR  - $ (MASTER) /include 
INCDIRS  - -I.  -1$ (INCDIR) 

OBJDIR  - ./masscomp 

* 

# Define  the  target  which  this  file  is  to  create. 

* 

TARGET  - $ (BINDIR) /dm_mass 

* 

# Define  the  libraries  to  search. 

# 

LIBRARIES  - -ltui  -lXm  -lXt  -1X11  -lm  -lg 

* 

# Define  the  compiler  and  linker  flags. 

# 


♦CFLAGS 
♦CFLAGS 
CFLAGS 
*LINTFLAGS 
LINT FLAGS 


-g  $ (INCDIRS)  $ (FLAGS) 
-g  $ (INCDIRS)  $ (FLAGS) 
-g  $ (INCDIRS)  $ (FLAGS) 
-axz  -DLINT  $ (INCDIRS) 
-axz  -DLINT  $ (INCDIRS) 


-DFAC 

-DDEBUG  -DFAC  -DSTUB 
-DFAC  -DSTUB 

$ (FLAGS)  -DEBUG  -DFAC  -DSUN  -DSTUB 
$ (FLAGS)  -DFAC  -DSUN  -DSTUB 


* 

# Define  all  objects  which  make  up  this  target. 


OBJS  -\ 

$ (OBJDIR) /DDpbi_updt . o\ 

$ (OBJDIR) /Dbdata . o\ 

$ (OBJDIR) /add_pt .o\ 

$ (OBJDIR) /cb_cmd.o\ 

$ (OBJDIR) /cb_exp_plot . o\ 
$ (OBJDIR) /cb_expose . o\ 

$ (OBJDIR) /cb_help.o\ 

$ (OBJDIR) / cb_pbi . o\ 

$ (OBJDIR) /cb_zoom.o\ 

$ (OBJDIR) /chg_gdr . o\ 

$ (OBJDIR) /chg_lim.o\ 

$ (OBJDIR) /chg_zoom. o\ 

$ (OBJDIR) /chk_f lg . o\ 

$ (OBJDIR) /chk_f It . o\ 

$ (OBJDIR) / chk_res . o\ 

$ (OBJDIR) / cleanup . o\ 

$ (OBJDIR) /clear. o\ 

$ (OBJDIR) /clr_disp.o\ 

$ (OBJDIR) /colorpal .o\ 

$ (OBJDIR) /colors. o\ 

$ (OBJDIR) /command . o\ 

$ (OBJDIR) /date_chek . o\ 

$ (OBJDIR) /dcm  ent.o\ 


$ (OBJDIR) /ddd. o\ 

$ (OBJDIR) /ddd_msid.o\ 

$ (OBJDIR) /dec_val . o\ 

$ (OBJDIR) /draw_axs .o\ 

$ (OBJDIR) /draw_ovl.o\ 

$ (OBJDIR) /draw __plt.o\ 

$ (OBJDIR) /edit_colora . o\ 
$ (OBJDIR) /ex_msg3nd.o\ 

$ (OBJDIR) /exit_disp . o\ 

$ (OBJDIR) /extract . o\ 

$ (OBJDIR) /f ir3t_proc . o\ 

$ (OBJDIR) /flt_data.o\ 

$ (OBJDIR) /font_num.o\ 

$ (OBJDIR) /gdr_next .o\ 

$ (OBJDIR) /get_disp . o\ 

$ (OBJDIR) /get_f n . o\ 

$ (OBJDIR) /get_plot . o\ 

$ (OBJDIR) /globals .o\ 

$ (OBJDIR) /hist_tab . o\ 

$ (OBJDIR) /ht_init . o\ 

$ (OBJDIR) /init.o\ 

$ (OBJDIR) /init_disp.o\ 

$ (OBJDIR) /init_fg.o\ 

$ (OBJDIR) /init_label.o\ 

$ (OBJDIR) / int_ln . o\ 

$ (OBJDIR) /lim_grp.o\ 

$ (OBJDIR) /lim_ln.o\ 

$ (OBJDIR) /lim±t_val.o\ 

$ (OBJDIR) /list_f lies .o\ 

$ (OBJDIR) /main.oN 
$ (OBJDIR) /new_disp.o\ 

$ (OBJDIR) /org_file.o\ 

$ (OBJDIR) /p_atimei.o\ 

$ (OBJDIR) /p_dataval . o\ 

$ (OBJDIR) /p_itimea.o\ 

$ (OBJDIR) /parse_cmd. o\ 

$ (OBJDIR) /pbi_cmd.o\ 

$ (OBJDIR) /pbi_config.o\ 
$ (OBJDIR) /pbi_f ree . o\ 

$ (OBJDIR) /pbi_host . o\ 

$ (OBJDIR) /pbi_hot .o\ 

$ (OBJDIR) /pbi_local . o\ 

$ (OBJDIR) /pbi_setup . o\ 

$ (OBJDIR) /pbi_updt .o\ 

$ (OBJDIR) /pf_chk.o\ 

$ (OBJDIR) /plot_m3id.o\ 

$ (OBJDIR) /plot_ovl . o\ 

$ (OBJDIR) /proc_plt . o\ 

$ (OBJDIR) /read_disp.o\ 

$ (OBJDIR) /read_fgr.o\ 

$ (OBJDIR) /read_file3 .o\ 
$ (OBJDIR) /read_ovls .o\ 

$ (OBJDIR) /read_pf . o\ 

$ (OBJDIR) /read_plt.o\ 

$ (OBJDIR) /readbg.o\ 

$ (OBJDIR) /readfg.o\ 

$ (OBJDIR) /read_pbi .o\ 

$ (OBJDIR) / redraw. o\ 

$ (OBJDIR) / redwbg . o\ 

$ (OBJDIR) /redwfg.o\ 

$ (OBJDIR) / sel_disp . o\ 

$ (OBJDIR) /set_cmap.o\ 

$ (OBJDIR) /set_gc . o\ 

$ (OBJDIR) /set  label. o\ 
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$ (OBJDIR) /set_timer . o\ 

$ (OBJDIR) /shm_creat . o\ 

$ (OBJDIR) /sort_msid.o\ 

$ (OBJDIR) /stat_col . o\ 

$ (OBJDIR) /tick_mk.o\ 

$ (OBJDIR) /time_val . o\ 

$ (OBJDIR) /tmr_update . o\ 
$ (OBJDIR) /ui_init . o\ 

$ (OBJDIR) /unlatch . o\ 

$ (OBJDIR) /unv_plot . o\ 

$ (OBJDIR) /upd_rate . o\ 

$ (OBJDIR) /update . o\ 

$ (OBJDIR) /updtbg . o\ 

$ (OBJDIR) /updtfg.o\ 

$ (OBJDIR) /updtht . o\ 

$ (OBJDIR) /val_dt . o\ 

$ (OBJDIR) /val_f n . o\ 

$ (OBJDIR) /val_m3id. o\ 

$ (OBJDIR) /val_ppl . o\ 

$ (OBJDIR) /val_src . o\ 

$ (OBJDIR) /valm3id.o\ 

$ (OBJDIR) / wex. o\ 

$ (OBJDIR) /zoom. o 


* 

# Make  the  target . 

* 

all:  $ (TARGET) 

$ (TARGET):  $(OBJS) 

$<CC)  -O  $ (TARGET)  $ (OBJS)  $ (LIBRARIES)  $ (LDFLAGS) 
lint : 

$ (LINT)  $ (LINTFLAGS)  *.c  S(LINTLIBS) 
lintlib: 

$ (LINT)  -I.. /include  -Cdm  dm  lint.c 


* 

# Individual  file  dependencies. 

* 

$ (OBJDIR) /DDpbi_updt . o : DDpbi_updt . c 
cc  -c  DDpbi_updt.c  $(CFLAGS) 
mv  DDpbi_updt . o $ (OBJDIR) 

$ (OBJDIR) /Dbdata . o : Dbdata.c 
cc  -c  Dbdata.c  $(CFLAGS) 
mv  Dbdata. o $ (OBJDIR) 

# :n 

$ (OBJDIR) /add_pt . o : add_pt.c 
cc  -c  add_pt . c $(CFLAGS) 
mv  add_pt.o  $ (OBJDIR) 

$ (OBJDIR) /cb_cmd . o : cb  cmd.c 
cc  -c  cb_cmd . c $(CFLAGS) 
mv  cb_cmd.o  $ (OBJDIR) 

$ (OBJDIR) /cb_exp_plot . o : cb_exp_plot . c 
cc  -c  cb_exp_plot . c $(CFLAGS) 
mv  cb_exp_plot . o $ (OBJDIR) 


$ (OBJDIR)  /cb_expose.o:  cb_expose.c 
cc  -c  cb_ expose. c $ (CFLAGS) 
mv  cb_expose.o  $ (OBJDIR) 

$ (OBJDIR) /cb_help . o : cb_help . c 
cc  -c  cb_help.c  $ (CFLAGS) 
mv  cb_ help.o  $ (OBJDIR) 

$ (OBJDIR) /cb_pbi . o : cb_pbi . c 
cc  -c  cb_pbi.c  $(CFLAGS) 
mv  cb_pbi.o  $ (OBJDIR) 

$ (OBJDIR)  /cb_zoom.o:  cb_zoom.c 
cc  -c  cb_zoom.c  $(CFLAGS) 
mv  cb_zoom.o  $ (OBJDIR) 

$ (OBJDIR) /chg_gdr . o : chg_gdr . c 
cc  -c  chg_gdr.c  $(CFLAGS) 
mv  chg_gdr . o $ (OBJDIR) 

$ (OBJDIR) /chg_lim.o:  chg— lim.c 
cc  -c  chg_lim.c  $(CFLAGS) 
mv  chg_lim.o  $ (OBJDIR) 

$ (OBJDIR) /chg_zoom. o : chg_zoom. c 
cc  -c  chg_zoom.c  $ (CFLAGS) 
mv  chg_zoom.o  $ (OBJDIR) 

$ (OBJDIR)  /chk_flg.o:  chk_flg.c 
cc  -c  chk_flg.c  $(CFLAGS) 
mv  chk_flg.o  $ (OBJDIR) 

$ (OBJDIR) /chk_f It . o : chk_f It . c 
cc  -c  chk_flt.c  $ (CFLAGS) 
mv  chk_flt.o  $ (OBJDIR) 

$ (OBJDIR) /chk_res .o : chk_res .c 
cc  -c  chk_res.c  $ (CFLAGS) 
mv  chk_res.o  $ (OBJDIR) 

$ (OBJDIR) /cleanup. o : cleanup. c 
cc  -c  cleanup. c $ (CFLAGS) 
mv  cleanup. o $ (OBJDIR) 

$ (OBJDIR) /clear. o:  clear. c 
cc  -c  clear. c $ (CFLAGS) 
mv  clear. o $ (OBJDIR) 

$ (OBJDIR) /clr_di3p . o : clr_disp . c 
cc  -c  clr_ disp.c  $ (CFLAGS) 
mv  clr— disp.o  $ (OBJDIR) 

$ (OBJDIR) /colorpal . o : colorpal .c 
cc  -c  colorpal. c $ (CFLAGS) 
mv  colorpal. o $ (OBJDIR) 

$ (OBJDIR) /colors .o : colors .c 
CC  -C  colors. c $ (CFLAGS) 
mv  colors. o $ (OBJDIR) 

$ (OBJDIR) /command . o : command. c 
cc  -c  command. c $ (CFLAGS) 
mv  command. o $ (OBJDIR) 
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$ (OBJDIR)  /date_chek . o : date_chek . c 
cc  -c  date— chek.c  $ (CFLAGS) 
mv  date_chek.o  $ (OBJDIR) 

$ (OBJDIR)  /dcm_ent . o : dcrn_ent . c 
cc  -c  dcm_ent.c  $ (CFLAGS) 
mv  dcm_ent.o  $ (OBJDIR) 

$ (OBJDIR) /ddd.o:  ddd.c 

cc  -c  ddd.c  $ (CFLAGS ) 
mv  ddd.o  $ (OBJDIR) 

$ (OBJDIR) /ddd_msid. o : ddd_m3id.c 
cc  -c  ddd_msid.c  $ (CFLAGS) 
mv  ddd__msid.o  $ (OBJDIR) 

$ (OBJDIR) /dec_val.o:  dec_val.c 
cc  -c  dec_val.c  $ (CFLAGS) 
mv  dec_ val.o  $ (OBJDIR) 

$ (OBJDIR) /dr aw_axa . o : draw_axa.c 
cc  — c draw_axa.c  $ (CFLAGS) 
mv  draw_axa.o  $ (OBJDIR) 

$ (OBJDIR) /dr aw_ovl . o : draw^ovl . c 
cc  -c  draw_ovl.c  $ (CFLAGS) 
mv  draw_ovl.o  $ (OBJDIR) 

$ (OBJDIR)  /draw_jplt . o : draw_jplt . c 
cc  -c  draw_plt.c  $ (CFLAGS) 
mv  draw_ plt.o  $ (OBJDIR) 

$ (OBJDIR) /edit_colors . o : edit_colors . c 
cc  -c  edit_colors .c  $ (CFLAGS) 
mv  edit_colors ,o  $ (OBJDIR) 

$ (OBJDIR)  /ex_msgsnd.o  : ex__magsnd.c 
cc  -c  ex_msgsnd.c  $ (CFLAGS) 
mv  ex_magsnd.o  $ (OBJDIR) 

$ (OBJDIR) /exit_disp . o : exit_disp . c 
cc  -c  exit_disp.c  $ (CFLAGS) 
mv  exit_disp.o  $ (OBJDIR) 

$ (OBJDIR) /extract . o : extract . c 
cc  -c  extract. c $ (CFLAGS) 
mv  extract.o  $ (OBJDIR) 

$ (OBJDIR) /first_proc.o:  first_proc.c 
cc  -c  firsts proc.c  $ (CFLAGS) 
mv  first_proc.o  $ (OBJDIR) 

$ (OBJDIR) /flt_data.o:  flt_data.c 
cc  -c  flt_data.c  $ (CFLAGS) 
mv  flt_ data.o  $ (OBJDIR) 

$ (OBJDIR) /font_num. o : font_num.c 
cc  -c  font_num.c  $ (CFLAGS) 
mv  font_num.o  $ (OBJDIR) 

$ (OBJDIR)  /gdr_next . o : gdr_next . c 
cc  -c  gdr_next.c  $ (CFLAGS) 
mv  gdr_next . o $ (OBJDIR) 


$ (OBJDIR)  /get_disp.o:  get_disp.c 
cc  -c  get_disp.c  $(CFLAGS) 
mv  get_disp.o  $ (OBJDIR) 

$ (OBJDIR) /get_fn.o:  get_fn.c 
cc  -c  get_fn.c  $(CFLAGS) 
mv  get_fn.o  $ (OBJDIR) 

$ (OBJDIR) /get_ plot . o : get_plot.c 
cc  -c  get_plot.c  $(CFLAGS) 
mv  get_plot.o  $ (OBJDIR) 

$ (OBJDIR) /global* .o:  globals.c 
cc  -c  globals.c  $(CFLAGS) 
mv  globals.o  $ (OBJDIR) 

$ (OBJDIR) /hist_tab.o:  hist_tab.c 
cc  -c  hist_tab . c $(CFLAGS) 
mv  hist_tab . o $ (OBJDIR) 

$ (OBJDIR) /ht_init .o:  ht_init .c 
cc  -c  ht_init . c $(CFLAGS) 
mv  ht_init.o  $ (OBJDIR) 

$ (OBJDIR) /init . o : init . c 
cc  -c  init.c  $(CFLAGS) 
mv  init.o  $ (OBJDIR) 

$ (OBJDIR) / init_disp . o : init_disp . c 
cc  -c  init_disp.c  $(CFLAGS) 
mv  init_disp.o  $ (OBJDIR) 

$ (OBJDIR) /init_fg.o:  init_fg.c 
cc  -c  init_fg.c  $(CFLAGS) 
mv  init_fg.o  $ (OBJDIR) 

$ (OBJDIR) /init_label . o : init_label.c 
cc  -c  init_label  .c  $(CFLAGS) 
mv  init_label.o  $ (OBJDIR) 

$ (OBJDIR) /int_ln.o:  int_ln.c 
cc  -c  int_ln.c  $(CFLAGS) 
mv  int_ln.o  $ (OBJDIR) 

$ (OBJDIR) /lim_grp.o:  lim_grp.c 
cc  -c  lim_grp.c  $(CFLAGS) 
mv  lim_grp.o  $ (OBJDIR) 

$ (OBJDIR) /lim_ln.o:  lim_ln.c 
cc  -c  lim_ln.c  $<CFLAGS) 
mv  lim_ln.o  $ (OBJDIR) 

$ (OBJDIR) /limit_val.o:  limit_val.c 
cc  -c  limit_val.c  $(CFLAGS) 
mv  limit_val.o  $ (OBJDIR) 

$ (OBJDIR) /list_f iles . o : list_f  iles . c 
cc  -c  list_f iles . c $(CFLAGS) 
mv  list_files.o  $ (OBJDIR) 

$ (OBJDIR) /main . o : main . c 
cc  -c  main.c  $(CFLAGS) 
mv  main.o  $ (OBJDIR) 


$ (OBJDIR) /new_disp.o:  new_disp.c 
cc  -c  new_disp.c  $(CFLAGS) 
mv  new_diap.o  $ (OBJDIR) 

$ (OBJDIR) /org_file . o : org_file.c 
cc  -c  org_file.c  $(CFLAGS) 
mv  org_file.o  $ (OBJDIR) 

$ (OBJDIR) /p_atimei .o : p_atimei.c 
cc  -c  p_atimei.c  $(CFLAGS) 
mv  p_atimei.o  $ (OBJDIR) 

$ (OBJDIR) /p_dataval . o : p_dataval.c 
cc  -c  p_dataval.c  $ (CFLAGS) 
mv  p_dataval.o  $ (OBJDIR) 

$ (OBJDIR) /p_itiroea . o : p_itimea.c 
cc  -c  p_itimea.c  $ (CFLAGS) 
mv  p_itimea.o  $ (OBJDIR) 

$ (OBJDIR) /parse_cmd.o : par3e_cmd.c 
cc  -c  parae_cmd.c  $ (CFLAGS) 
mv  parse_cmd.o  $ (OBJDIR) 

$ (OBJDIR) /pbi_cnvd. o : pbi_cmd.c 
cc  -c  pbi_cmd.c  $ (CFLAGS) 
mv  pbi_cmd.o  $ (OBJDIR) 

$ (OBJDIR) /pbi config . o : pbi_conf ig . c 

cc  -c  pbi_config.c  $ (CFLAGS) 
mv  pbi_config.o  $ (OBJDIR) 

$ (OBJDIR) /pbi_free . o : pbi_free.c 
cc  -c  pbi_free.c  $(CFLAGS) 
mv  pbi_free.o  $ (OBJDIR) 

$ (OBJDIR) /pbi_hoat . o : pbi_hoat . c 
cc  -c  pbi_hoat.c  $ (CFLAGS) 
mv  pbi_hoat.o  $ (OBJDIR) 

$ (OBJDIR) /pbi_hot . o : pbi  hot.c 
cc  -c  pbi_hot.c  $ (CFLAGS) 
mv  pbi_hot.o  $ (OBJDIR) 

$ (OBJDIR) /pbi_local . o : pbi_local . c 
cc  -c  pbi_local.c  $ (CFLAGS) 
mv  pbi_local.o  $ (OBJDIR) 

$ (OBJDIR) /pbi_aetup.o:  pbi_aetup.c 
cc  -c  pbi_aetup . c $ (CFLAGS) 
mv  pbi_aetup.o  $ (OBJDIR) 

$ (OBJDIR) /pbi_updt .o:  pbi_updt.c 
cc  -c  pbi_updt.c  $ (CFLAGS) 
mv  pbi_updt.o  $ (OBJDIR) 

$ (OBJDIR) /pdt_feed.o : pdt_feed.c 
cc  -c  pdt_feed. c $ (CFLAGS) 
mv  pdt_feed.o  $ (OBJDIR) 

$ (OBJDIR) /pf_chk . o : pf_chk.c 
cc  -c  pf_chk.c  $ (CFLAGS) 
mv  pf_chk.o  $ (OBJDIR) 
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$ (OBJDIR)  /plot_maid.o:  plot_maid.c 
cc  -c  plot__maid . c $ (CFLAGS) 
mv  plot__maid.o  $ (OBJDIR) 

$ (OBJDIR)  /plot_ovl.o:  plot_ovl.c 

CC  -C  plot ovl . C $(CFLAGS) 

mv  plot_ovl.o  $ (OBJDIR) 

$ (OBJDIR) /proc_plt . o : proc_plt.c 
cc  -C  proc_j?lt.C  $ (CFLAGS) 
mv  proc_plt.o  $ (OBJDIR) 

$ (OBJDIR) /read_diap . o : read_diap.c 
cc  -c  read_disp.c  $ (CFLAGS) 
mv  read__disp.o  $ (OBJDIR) 

$ (OBJDIR) /read_fgr.o:  read_fgr.c 
cc  -c  read_fgr.c  $ (CFLAGS) 
mv  read— fgr.o  $ (OBJDIR) 

$ (OBJDIR) /read_filea .o : read_f ilea .c 
cc  -c  read_f ilea .c  $ (CFLAGS) 
mv  read_filea.o  $ (OBJDIR) 

$ (OBJDIR) /read_ovla .o : read_ovla.c 
cc  -c  read_ovla.c  $ (CFLAGS) 
mv  read_ovla.o  $ (OBJDIR) 

$ (OBJDIR) / read_pbi . o : read_pbi.c 
cc  -c  read_pbi.c  $ (CFLAGS) 
mv  read_j>bi.o  $ (OBJDIR) 

$ (OBJDIR) / read_pf . o : read_pf . c 
cc  -c  read_pf.c  $ (CFLAGS) 
mv  read— pf.o  $ (OBJDIR) 

$ (OBJDIR)  /read_plt . o : readmit  .c 
cc  -c  read_plt.c  $ (CFLAGS) 
mv  read_plt.o  $ (OBJDIR) 

$ (OBJDIR) /readbg.o:  readbg.c 
cc  -c  readbg.c  $ (CFLAGS) 
mv  readbg.o  $ (OBJDIR) 

$ (OBJDIR) /readfg.o:  readfg.c 
cc  -c  readfg.c  $ (CFLAGS) 
mv  readfg.o  $ (OBJDIR) 

$ (OBJDIR) /redraw . o : redraw . c 
cc  -c  redraw. c $ (CFLAGS) 
mv  redraw. o $ (OBJDIR) 

$ (OBJDIR) /redwbg.o:  redwbg.c 
cc  -c  redwbg.c  $ (CFLAGS) 
mv  redwbg.o  $ (OBJDIR) 

$ (OBJDIR) /redwfg.o:  redwfg.c 
cc  -c  redwfg.c  $ (CFLAGS) 
mv  redwfg.o  $ (OBJDIR) 

$ (OBJDIR) /ael_disp.o : ael_ diap.c 
cc  -c  sel_disp.c  $ (CFLAGS) 
mv  sel_disp.o  $ (OBJDIR) 


$ (OBJDIR)  /set_cmap.o  : set_cmap.c 
cc  -c  set_cmap.c  $(CFLAGS) 
mv  set_cmap.o  $ (OBJDIR) 

$ (OBJDIR)  /set__gc  . o : aet_gc  . c 
cc  -c  set_gc . c $ (CFLAGS ) 
mv  set_gc.o  $ (OBJDIR) 

$ (OBJDIR) / set_label . o : set_label . c 
cc  -c  set— label. c $ (CFLAGS) 
mv  set_label.o  $ (OBJDIR) 

$ (OBJDIR)  /set_timer  .o:  set__timer  .c 
cc  -c  set^timer.c  $ (CFLAGS) 
mv  set_timer.o  $ (OBJDIR) 

$ (OBJDIR) /shm_creat . o : ahm_creat . c 
cc  -c  3hm_creat.c  $ (CFLAGS) 
mv  shm_creat.o  $ (OBJDIR) 

$ (OBJDIR) /sort_ msid.o:  sort^maid.c 
cc  -c  3ort_msid.c  $ (CFLAGS) 
mv  sort_ msid.o  $ (OBJDIR) 

$ (OBJDIR)  /3tat_col . o : stat_col.c 
cc  -c  3tat_col.c  $ (CFLAGS) 
mv  stat_col.o  $ (OBJDIR) 

$ (OBJDIR) /test . o : test . c 
cc  -c  test.c  $ (CFLAGS) 
mv  test.o  $ (OBJDIR) 

$ (OBJDIR) /tick_mk . o : tick_mk.c 
cc  -c  tick_mk , c $ (CFLAGS) 
mv  tick_mk.o  $ (OBJDIR) 

$ (OBJDIR)  /time_val . o : time_val . c 
cc  -c  time_val.c  $ (CFLAGS) 
mv  time_val.o  $ (OBJDIR) 

$ (OBJDIR)  / tmr_update . o : tmr_update  . c 
cc  -c  tmr_update.c  $ (CFLAGS) 
mv  tmr_update.o  $ (OBJDIR) 

$ (OBJDIR) /ui_init . o : ui_init.c 
cc  -c  ui_init.c  $ (CFLAGS) 
mv  ui_init . o $ (OBJDIR) 

$ (OBJDIR) /unlatch . o : unlatch . c 
cc  -c  unlatch. c $ (CFLAGS) 
mv  unlatch. o $ (OBJDIR) 

$ (OBJDIR) /unv_j>lot . o : unv_j>lot.c 
cc  -c  unv_plot.c  $ (CFLAGS) 
mv  unv_j)lot.o  $ (OBJDIR) 

$ (OBJDIR)  /upd_r  ate  . o : upd_rate.c 
cc  -c  upd_rate.c  $ (CFLAGS) 
mv  upd_rate.o  $ (OBJDIR) 

$ (OBJDIR) /update . o : update . c 
cc  -c  update. c $ (CFLAGS) 
mv  update. o $ (OBJDIR) 


»rai 

$ (OBJDIR) /updtbg.o:  updtbg.c 
cc  -c  updtbg.c  $(CFLAGS) 
mv  updtbg.o  $ (OBJDIR) 

$ (OBJDIR) /updtfg.o:  updtfg.c 
cc  -c  updtfg.c  $ (CFLAGS ) 
mv  updtfg.o  $ (OBJDIR) 

$ (OBJDIR) /updtht . o : updtht . c 
cc  -c  updtht. c $ (CFLAGS) 
mv  updtht. o $ (OBJDIR) 

$ (OBJDIR) / val_dt . o : val_dt . c 
cc  -c  val_dt.c  $ (CFLAGS) 
mv  val_dt . o $ (OBJDIR) 

$ (OBJDIR) / val_f n . o : val_f n . c 
cc  -c  val_fn,c  $ (CFLAGS) 
mv  val_fn.o  $ (OBJDIR) 

$ (OBJDIR) /val_msid.o : val_msid.c 
cc  -c  val__msid.c  $ (CFLAGS) 
mv  val__m3id.o  $ (OBJDIR) 

$ (OBJDIR) /val_ ppl . o : val _ppl . c 
cc  -c  val— ppl.c  $ (CFLAGS) 
mv  val_ppl.o  $ (OBJDIR) 

$ (OBJDIR) /val_arc.o:  val_src.c 
cc  -c  val_src.c  $ (CFLAGS) 
mv  val_src.o  $ (OBJDIR) 

$ (OBJDIR) /valmsid.o : valmsid.c 
cc  -c  valmaid.c  $ (CFLAGS) 
mv  valmaid.o  $ (OBJDIR) 

$ (OBJDIR) /wex.o:  wex.c 

cc  -c  wex.c  $ (CFLAGS) 
mv  wex.o  $ (OBJDIR) 

$ (OBJDIR) /zoom. o : zoom.c 
cc  -c  zoom.c  $ (CFLAGS) 
mv  zoom.o  $ (OBJDIR) 
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################################################################################ 

# Makefile  for  the  Display  Manager. 

################################################################################ 

* 

# Initialize  master,  binary,  library,  and  include  directories. 

# 


MASTER  — /home/pro ject/2984/db 
BINDIR  - /WEX/Exec 
INCDIR  - $ (MASTER) /include 
INCDIRS  - -I.  -1$ (INCDIR) 

OBJDIR  - ./sun 


* 

# Define  the  target  which  this  file  is  to  create. 

* 


TARGET  - $ (BINDIR) /dm_sun 

» 

# Define  the  libraries  to  search. 

* 


LIBRARIES  - -ltui  -lXm  -lXt  -1X11  -lm  -lg 


* 

# Define  the  compiler  and  linker  flags. 

# 


fCFLAGS 

CFLAGS 

♦LINTFLAGS 

LINTFLAGS 


-misalign  -g  $ (INCDIRS)  $ (FLAGS)  -DDEBUG  -DFAC  -DSUN  -DSTUB 
-misalign  -g  $ (INCDIRS)  $ (FLAGS)  -DFAC  -DSUN  -DSTUB 
-axz  -DLINT  $ (INCDIRS)  $ (FLAGS)  -DEBUG  -DFAC  -DSUN  -DSTUB 
-axz  -DLINT  $ (INCDIRS)  $ (FLAGS)  -DFAC  -DSUN  -DSTUB 


» 

# Define  all  objects  which  make  up  this  target. 

# 


OBJS  -\ 

$ (OBJDIR) /DDpbi_updt .o\ 

$ (OBJDIR) /Dbdata . o\ 

$ (OBJDIR) /add_pt . o\ 

$ (OBJDIR) /cb_cmd. o\ 

$ (OBJDIR) / cb_exp_plot . o\ 
$ (OBJDIR) /cb_expose.o\ 

$ (OBJDIR) /cb_help.o\ 

$ (OBJDIR) /cb_pbi.o\ 

$ (OBJDIR) /cb_zoom. o\ 

$ (OBJDIR) /chg_gdr . o\ 

$ (OBJDIR) /chg_lim.o\ 

$ (OBJDIR) / chg_zoom. o\ 

$ (OBJDIR) /chk_flg.o\ 

$ (OBJDIR) /chk_f It . o\ 

$ (OBJDIR) /chk_res . o\ 

$ (OBJDIR) /cleanup . o\ 

$ (OBJDIR) /clear. o\ 

$ (OBJDIR) /clr_disp.o\ 

$ (OBJDIR) / colorpal . o\ 

$ (OBJDIR) /colors . o\ 

$ (OBJDIR) /command. o\ 

$ (OBJDIR) /date_chek . o\ 

$ (OBJDIR) /dcm_ent .o\ 

$ (OBJDIR) /ddd.o\ 


$ (OBJDIR) /ddd_msid.o\ 

$ (OBJDIR) /dec_val.o\ 

$ (OBJDIR) /draw_axa . o\ 

$ (OBJDIR) /draw_ovl.o\ 

$ (OBJDIR) /draw_plt . o\ 

$ (OBJDIR) /edit_colors . o\ 
$ (OBJDIR) /ex_magsnd.o\ 

$ (OBJDIR) /exit_disp . o\ 

$ (OBJDIR) /extract .o\ 

$ (OBJDIR) /first_proc .o\ 

$ (OBJDIR) /flt_data.o\ 

$ (OBJDIR) /font_num.o\ 

$ (OBJDIR) /gdr_next .o\ 

$ (OBJDIR) /get_disp . o\ 

$ (OBJDIR) /get_f n . o\ 

$ (OBJDIR) /get_plot . o\ 

$ (OBJDIR) /globals . o\ 

$ (OBJDIR) /hist_tab . o\ 

$ (OBJDIR) /ht_init . o\ 

$ (OBJDIR) /init.oX 
$ (OBJDIR) /init_disp.o\ 

$ (OBJDIR) /init_fg.o\ 

$ (OBJDIR) /init_label . o\ 

$ (OBJDIR) /int_ln.o\ 

$ (OBJDIR) /lim_grp.o\ 

$ (OBJDIR) /lim_ln.o\ 

$ (OBJDIR) /limit_val.o\ 

$ (OBJDIR) /list_files.o\ 

$ (OBJDIR) /main . o\ 

$ (OBJDIR) /new_disp . o\ 

$ (OBJDIR) /org_f ile . o\ 

$ (OBJDIR) /p_atimei.o\ 

$ (OBJDIR) /p_dataval.o\ 

$ (OBJDIR) /p_itimea .o\ 

$ (OBJDIR) /parse_cmd.o\ 

$ (OBJDIR) /pbi_cmd.o\ 

$ (OBJDIR) /pbi_config.o\ 

$ (OBJDIR) /pbi_f ree . o\ 

$ (OBJDIR) / pbi_host . o\ 

$ (OBJDIR) /pbi_hot . o\ 

$ (OBJDIR) /pbi_local . o\ 

$ (OBJDIR) /pbi_setup.o\ 

$ (OBJDIR) /pbi_updt . o\ 

$ (OBJDIR) /pf_chk . o\ 

$ (OBJDIR) /plot_maid.o\ 

$ (OBJDIR) /plot_ovl . o\ 

$ (OBJDIR) /proc_plt . o\ 

$ (OBJDIR) /read_disp.o\ 

$ (OBJDIR) /read_fgr.o\ 

$ (OBJDIR) /read_filea.o\ 

$ (OBJDIR) /read_ovls .o\ 

$ (OBJDIR) /read_pf .o\ 

$ (OBJDIR) /readjplt.oX 
$ (OBJDIR) /readbg.o\ 

$ (OBJDIR) / readf g . o\ 

$ (OBJDIR) /read_pbi .o\ 

$ (OBJDIR) /redraw. o\ 

$ (OBJDIR) /redwbg.oX 
$ (OBJDIR) /redwfg.oX 
$ (OBJDIR) /sel_disp . o\ 

$ (OBJDIR) /3et_cmap.o\ 

$ (OBJDIR) /set_gc . o\ 

$ (OBJDIR) /set_label . o\ 

$ (OBJDIR) /set  timer. o\ 


$ (OBJDIR) /shm_creat . o\ 

$ (OBJDIR) /sort_msid. o\ 

$ (OBJDIR) /stat_col.o\ 

$ (OBJDIR) /tick_mk . o\ 

$ (OBJDIR) /time_val . o\ 

$ (OBJDIR) /tmr_update .o\ 
$ (OBJDIR) /ui_init . o\ 

$ (OBJDIR) /unlatch. o\ 


$ (OBJDIR) /unv_plot .o\ 
$ (OBJDIR) /upd_rate . o\ 
$ (OBJDIR) /update. o\ 

$ (OBJDIR) /updtbg.oX 
$ (OBJDIR) /updtfg.oX 
$ (OBJDIR) /updtht . o\ 

$ (OBJDIR) /val_dt . o\ 

$ (OBJDIR) /val_fn . o\ 

$ (OBJDIR) /val_m3id.o\ 
$ (OBJDIR) /val_ppl . o\ 

$ (OBJDIR) /val_3rc . o\ 

$ (OBJDIR) /valmsid . o\ 


$ (OBJDIR) /wex.o\ 


$ (OBJDIR) /zoom. o 
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« 

# Make  the  target. 

* 

all:  $ (TARGET) 

$ (TARGET):  $ (OBJS) 

$(CC)  -o  $ (TARGET)  $(OBJS)  -L/home/pro ject/2984/db/ui  $ (LIBRARIES)  $ (LDFLAGS) 
lint:  *.c 

$ (LINT)  $ (LINTFLAGS)  *.c  $(LINTLIBS) 
lintlib: 

$(LINT)  -I.. /include  -Cdm  dm  lint.c 


* 

# Individual  file  dependencies. 

» 

$ (OBJDIR) /DDpbi_updt . o : DDpbi_updt . c 
CC  -c  DDpbi_updt.c  $(CFLAGS) 
mv  DDpbi_updt.o  $ (OBJDIR) 

$ (OBJDIR) /Dbdata .0 : Dbdata.c 
cc  -c  Dbdata.c  $(CFLAGS) 
mv  Dbdata. o $ (OBJDIR) 

$ (OBJDIR) /add_pt . o : add_pt.c 
cc  -c  add_pt . c $(CFLAGS) 
mv  add_pt.o  $ (OBJDIR) 

$ (OBJDIR) /cb_cmd.o:  cb_cmd.c 
cc  -c  cb_cmd.c  $(CFLAGS) 
mv  cb_cmd.o  $ (OBJDIR) 

$ (OBJDIR) /cb_exp_plot . o : cb_exp_plot . c 
cc  -c  cb_exp_plot . c $(CFLAGS) 
mv  cb_exp_plot . o $ (OBJDIR) 

$ (OBJDIR) /cb_expo3e . o : cb_expose . c 
cc  -c  cb_expose.c  $(CFLAGS) 


mv  cb^expose.o  $ (OBJDIR) 


$ (OBJDIR)  /cb_help.o:  cb_help.c 
cc  -c  cb_help.c  $ (CFLAGS) 
mv  cb_help.o  $ (OBJDIR) 

$ (OBJDIR) /cb_pbi.o:  cb_pbi.c 
cc  -c  cb_pbi.c  $(CFLAGS) 
mv  cb__pbi.o  $ (OBJDIR) 

$ (OBJDIR)  /cb_zoom.o:  cb_zoom.c 
cc  -c  cb_zoom.  c $(CFLAGS) 
mv  cb_zoom.o  $ (OBJDIR) 

$ (OBJDIR) /chg_gdr.o:  chg_gdr.c 
cc  -c  chg_gdr.c  $(CFLAGS) 
mv  chg__ gdr.o  $ (OBJDIR) 

$ (OBJDIR)  /chg_lim.o:  chg_lim.c 
cc  -c  chg_lim.c  $ (CFLAGS) 
mv  chg_lim.o  $ (OBJDIR) 

$ (OBJDIR)  /chg_zoom.o : chg_zoom.c 
cc  -c  chg_zoom.c  $(CFLAGS) 
mv  chg_zoom.o  $ (OBJDIR) 

$ (OBJDIR) /chk_flg.o:  chk_flg.c 
cc  -c  chk_f lg.c  $(CFLAGS) 
mv  chk_flg.o  $ (OBJDIR) 

$ (OBJDIR) /chk— f It . o : chk_flt .c 
cc  -c  chk_f It . c $ (CFLAGS) 
mv  chk_flt.o  $ (OBJDIR) 

$ (OBJDIR) /chk_res . o : chk_res . c 
cc  -c  chk_res.c  $ (CFLAGS) 
mv  chk_res.o  $ (OBJDIR) 

$ (OBJDIR) /cleanup . o : cleanup . c 
cc  -c  cleanup. c $ (CFLAGS) 
mv  cleanup. o $ (OBJDIR) 

$ (OBJDIR) /clear .o:  clear .c 
cc  -c  clear. c $ (CFLAGS) 
mv  clear. o $ (OBJDIR) 

$ (OBJDIR)  /clr__disp . o:  clr_disp.c 
cc  -c  clr_disp.c  $ (CFLAGS) 
mv  clr_disp.o  $ (OBJDIR) 

$ (OBJDIR) /colorpal.o:  colorpal.c 
cc  -c  colorpal.c  $ (CFLAGS) 
mv  colorpal.o  $ (OBJDIR) 

$ (OBJDIR) /colors .o : colors .c 
cc  -c  colors. c $ (CFLAGS) 
mv  colors. o $ (OBJDIR) 

$ (OBJDIR) /command. o : command. c 
cc  -c  command. c $ (CFLAGS) 
mv  command. o $ (OBJDIR) 

$ (OBJDIR) /date_chek . o : date_chek . c 
cc  -c  date  chek.c  $ (CFLAGS) 
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mv  date_chek.o  $ (OBJDIR) 

$ (OBJDIR) / dcm_ent . o : dcm_ent . c 
cc  -c  dcm_ent . c $(CFLAGS) 
mv  dcm_ent.o  $ (OBJDIR) 

$ (OBJDIR) /ddd.o:  ddd.c 
cc  -c  ddd.c  $ (CFLAGS ) 
mv  ddd.o  $ (OBJDIR) 

$ (OBJDIR) /ddd_msid . o : ddd_msid . c 
cc  -c  ddd_ms id . c $ (CFLAGS) 
mv  ddd_maid.o  $ (OBJDIR) 

$ (OBJDIR) /dec_val . o : dec_val.c 
cc  -c  dec_val.c  $ (CFLAGS) 
mv  dec_val.o  $ (OBJDIR) 

$ (OBJDIR) /draw_axs . o : draw_axa.c 
cc  -c  draw_axs.c  $ (CFLAGS) 
mv  draw_axs.o  $ (OBJDIR) 

$ (OBJDIR) /draw_ovl . o : draw_ovl . c 
cc  -c  draw_ovl.c  $ (CFLAGS) 
mv  draw_ovl.o  $ (OBJDIR) 

$ (OBJDIR) /draw_plt . o : draw_plt.c 
cc  -c  draw_plt.c  $ (CFLAGS) 
mv  draw_plt . o $ (OBJDIR) 

$ (OBJDIR) /odit_colors . o : edit_colors . c 
cc  -c  edit_colors . c $ (CFLAGS) 
mv  edit_colors . o $ (OBJDIR) 

$ (OBJDIR) /ex_m3gsnd.o:  ex_m3gsnd.c 
cc  -c  ex_m3gsnd.c  $ (CFLAGS) 
mv  ex_msgsnd.o  $ (OBJDIR) 

$ (OBJDIR)  /exit_diap . o : exit_disp.c 
cc  -c  exit_diap.c  $ (CFLAGS) 
mv  exit_disp.o  $ (OBJDIR) 

$ (OBJDIR) /extract .o : extract.c 
cc  -c  extract.c  $ (CFLAGS) 
mv  extract. o $ (OBJDIR) 

$ (OBJDIR) /first proc . o : first  proc.c 

cc  -c  first_proc.c  $ (CFLAGS) 
mv  f irst_proc . o $ (OBJDIR) 

$ (OBJDIR) /flt_data.o:  flt_data.c 
cc  -c  flt_data . c $ (CFLAGS) 
mv  flt_data.o  $ (OBJDIR) 

$ (OBJDIR) /font_num. o : font  num.c 
cc  -c  font_num.c  $ (CFLAGS) 
mv  font_num.o  $ (OBJDIR) 

$ (OBJDIR) / gdr_next . o : gdr_next . c 
cc  -c  gdr_next . c $ (CFLAGS) 
mv  gdr_next.o  $ (OBJDIR) 

$ (OBJDIR) /get_disp . o : get  disp.c 
cc  -c  get_disp.c  $ (CFLAGS) 


mv  get_ disp.o  $ (OBJDIR) 


$ (OBJDIR) /get_fn.o:  get_fn.c 
cc  -c  get_fn.c  $ (CFLAGS) 
mv  get__fn.o  $ (OBJDIR) 

$ (OBJDIR)  /get_plot  .o:  get_plot.c 
cc  -c  get_ plot.c  $ (CFLAGS) 
mv  get_plot.o  $ (OBJDIR) 

$ (OBJDIR) /globals . o : globals.c 
cc  -c  globals.c  $ (CFLAGS) 
mv  globals.o  $ (OBJDIR) 

$ (OBJDIR)  /hist__tab . o : hist_tab.c 
cc  -c  hist_tab.c  $ (CFLAGS) 
mv  hist_tab . o $ (OBJDIR) 

$ (OBJDIR) /ht_init . o : ht_init . c 
cc  -c  ht_init.c  $ (CFLAGS) 
mv  ht_init.o  $ (OBJDIR) 

$ (OBJDIR) /init .o:  init .c 
cc  -c  init .c  $ (CFLAGS) 
mv  init.O  $ (OBJDIR) 

$ (OBJDIR) /init_disp.o:  init_disp.c 
cc  -c  init_disp.c  $ (CFLAGS) 
mv  init_diap.o  $ (OBJDIR) 

$ (OBJDIR) /init_fg.o:  init_fg.c 
cc  -c  init_fg.c  $ (CFLAGS) 
mv  init_fg.o  $ (OBJDIR) 

$ (OBJDIR) /init_label.o:  init_label.c 
cc  -c  init_label .c  $ (CFLAGS) 
mv  init_label.o  $ (OBJDIR) 

$ (OBJDIR) /int_ln.o : int_ln.c 
cc  — c int_ln.c  $ (CFLAGS) 
mv  int_ln.o  $ (OBJDIR) 

$ (OBJDIR) /lim_grp.o:  lim_grp . c 
cc  -c  lim_grp.c  $ (CFLAGS) 
mv  lim_grp . o $ (OBJDIR) 

$ (OBJDIR) /lim_ln.o:  lim_ln.c 
cc  -c  lim_ln.c  $ (CFLAGS) 
mv  lim_ln.o  $ (OBJDIR) 

$ (OBJDIR)  /limit_val . o : limit_val . c 
cc  -c  limit_val.c  $ (CFLAGS) 
mv  limit_val.o  $ (OBJDIR) 

$ (OBJDIR) /list_f lies . o : list_f iles . c 
cc  -c  list_files.c  $ (CFLAGS) 
mv  list_filea.o  $ (OBJDIR) 

$ (OBJDIR) /main . o : main . c 
cc  -c  main.c  $ (CFLAGS) 
mv  main.o  $ (OBJDIR) 

$ (OBJDIR) /new_diap.o:  new_disp.c 
cc  -c  new_diap.c  $ (CFLAGS) 
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mv  new_disp.o  $ (OBJDIR) 

$ (OBJDIR) /org_f lie . o : org_file.c 
cc  -c  org_file.c  $(CFLAGS) 
mv  org__file.o  $ (OBJDIR) 

$ (OBJDIR) /p_atimei . o : p_atimei.c 
cc  -c  p_atimei.c  $(CFLAGS) 
mv  P_atimei.o  $ (OBJDIR) 

$ (OBJDIR) /p_dataval .o : p_dataval .c 
cc  -c  p_dataval.c  $(CFLAGS) 
mv  p_dataval.o  $ (OBJDIR) 

$ (OBJDIR)  /p_itimea  .0  : p_itimea.c 
cc  -c  p_itimea.c  $ (CFLAGS) 
mv  p_itimea.o  $ (OBJDIR) 

$ (OBJDIR)  /par se_cmd.  o : parse_cmd.c 
cc  -c  parse_cmd.c  $ (CFLAGS) 
mv  parse_cmd.o  $ (OBJDIR) 

$ (OBJDIR)  /pbi_cmd.o:  pbi_cmd.c 
cc  -c  pbi_cmd.c  $(CFLAGS) 
mv  pbi_cmd.o  $ (OBJDIR) 

$ (OBJDIR) /pbi_config.o:  pbi_config.c 
cc  -c  pbi_config.c  $(CFLAGS) 
mv  pbi_config.o  $ (OBJDIR) 

$ (OBJDIR) /pbi_free . o : pbi_free.c 
cc  -c  pbi_free.c  $ (CFLAGS) 
mv  pbi_free.o  $ (OBJDIR) 

$ (OBJDIR) /pbi_hoat . o : pbi_host.c 
cc  -c  pbi_host.c  $ (CFLAGS) 
mv  pbi_host.o  $ (OBJDIR) 

$ (OBJDIR) /pbi_hot . o : pbi_hot . c 
cc  -c  pbi_hot  * c $ (CFLAGS) 
mv  pbi_hot.o  $ (OBJDIR) 

$ (OBJDIR) /pbi_local . o : pbi_local . c 
cc  -c  pbi_local.c  $ (CFLAGS) 
mv  pbi_local . o $ (OBJDIR) 

$ (OBJDIR) /pbi setup. o:  pbi_setup.c 

cc  -c  pbi_setup.c  $ (CFLAGS) 
mv  pbi_setup.o  $ (OBJDIR) 

$ (OBJDIR) /pbi_updt . o : pbi_updt . c 
cc  -c  pbi_updt.c  $ (CFLAGS) 
mv  pbi_updt.o  $ (OBJDIR) 

$ (OBJDIR) /pdt^feed . o : pdt  feed.c 
cc  -c  pdt_feed. c $ (CFLAGS) 
mv  pdt_feed.o  $ (OBJDIR) 

$ (OBJDIR) /pf_chk . o : pf_chk . c 
CC  -c  pf_chk.c  $ (CFLAGS) 
mv  pf_chk.o  $ (OBJDIR) 

$ (OBJDIR)  /plot_ms id . o : plot_msid.c 
cc  -c  plot_msid.c  $ (CFLAGS) 


mv  plot^jnaid.o  $ (OBJDIR) 

$ (OBJDIR)  /plot— ovl . o : plot_ovl . c 
cc  -c  plot_ovl.c  $ (CFLAGS ) 
mv  plot_ovl.o  $ (OBJDIR) 

$ (OBJDIR) /proc^plt . o : proc_ pit . c 
cc  -c  proc_plt.c  $ (CFLAGS) 
mv  procjplt.o  $ (OBJDIR) 
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$ (OBJDIR)  /read_disp.o  : read_disp.c 
cc  -c  read_disp.c  $ (CFLAGS) 
mv  read_disp.o  $ (OBJDIR) 


$ (OBJDIR) /read_fgr .o:  read_fgr .c 
cc  -c  read_fgr.c  $ (CFLAGS) 
mv  read__fgr.o  $ (OBJDIR) 


$ (OBJDIR) /read_f iles .o : read_f iles . c 
cc  -c  read_filea.c  $ (CFLAGS) 
mv  read  files.o  $ (OBJDIR) 


$ (OBJDIR) /read_ovls . o:  read_ovls .c 
cc  -c  read_ovls.c  $ (CFLAGS) 
mv  read_ovls.o  $ (OBJDIR) 

$ (OBJDIR)  /read_j>bi . o : read_pbi . c 
cc  -c  read_pbi.c  $ (CFLAGS) 
mv  read_pbi.o  $ (OBJDIR) 

$ (OBJDIR) /read_pf .o:  read— pf . c 
cc  -c  read_pf.c  $ (CFLAGS) 
mv  read_pf.o  $ (OBJDIR) 

$ (OBJDIR) /read_plt . o : read_plt . c 
cc  -c  read_j?lt.c  $ (CFLAGS) 
mv  read_plt.o  $ (OBJDIR) 

$ (OBJDIR) /readbg.o:  readbg.c 
cc  -c  readbg.c  $ (CFLAGS) 
mv  readbg.o  $ (OBJDIR) 

$ (OBJDIR) /readfg.o : readfg.c 
cc  -c  readfg.c  $ (CFLAGS) 
mv  readfg.o  $ (OBJDIR) 

$ ( OBJDIR) / redraw . o : redraw . c 
cc  -c  redraw. c $ (CFLAGS) 
mv  redraw. o $ (OBJDIR) 


$ ( OBJDIR) / redwbg . o : redwbg . c 
cc  -c  redwbg. c $ (CFLAGS) 
mv  redwbg . o $ (OBJDIR) 

$ (OBJDIR) /redwfg.o:  redwfg.c 
cc  -c  redwfg.c  $ (CFLAGS) 
mv  redwfg.o  $ (OBJDIR) 

$ (OBJDIR) /sel_disp.o : ael_disp.c 
cc  -c  sel_disp.c  $ (CFLAGS) 
mv  sel__disp.o  $ (OBJDIR) 

$ (OBJDIR)  /set_cmap.o:  set_cmap.c 
cc  -c  set_cmap.c  $ (CFLAGS) 


• • 


mv  set_cmap.o  $ (OBJDIR) 


$ (OBJDIR) /set_gc.o:  set_gc.c 
cc  -c  set_gc.c  $ (CFLAGS) 
mv  set_gc.o  $ (OBJDIR) 

$ (OBJDIR) /set_label . o : set_label.c 
cc  -c  set_label.c  $(CFLAGS) 
mv  set_label.o  $ (OBJDIR) 

$ (OBJDIR)  /set_timer . o : set_timer  .c 
cc  -c  3et_timer.c  $ (CFLAGS) 
mv  set_timer.o  $ (OBJDIR) 

$ (OBJDIR) /shm_creat . o:  shm_creat . c 
cc  -c  shm_creat.c  $(CFLAGS) 
mv  shm_creat.o  $ (OBJDIR) 

$ (OBJDIR) /3ort_msid. o : sort_m3id.c 
cc  -c  sort_rnsid.c  $(CFLAGS) 
mv  3ort_msid.o  $ (OBJDIR) 

$ (OBJDIR) /stat_col . o : 3tat_col . c 
cc  -c  3tat_col.c  $ (CFLAGS ) 
mv  3tat_col.o  $ (OBJDIR) 

$ (OBJDIR) /test . o : test . c 
cc  -c  test.c  $ (CFLAGS) 
mv  test.o  $ (OBJDIR) 

$ (OBJDIR) /tick_mk.o:  tick_mk.c 
cc  -c  tick_mk.c  $ (CFLAGS) 
mv  tick_mk.o  $ (OBJDIR) 

$ (OBJDIR)  /time_val.o:  time__val.c 
cc  -c  time_val.c  $ (CFLAGS) 
mv  time_val.o  $ (OBJDIR) 

$ (OBJDIR)  /tmr_update  . o : tmr_update . c 
cc  -c  tmr_update  .c  $ (CFLAGS) 
mv  tmr_update.o  $ (OBJDIR) 

$ (OBJDIR) /ui_init . o : ui_init.c 
cc  -c  ui_init.c  $ (CFLAGS) 
mv  ui_init.o  $ (OBJDIR) 

$ (OBJDIR) /unlatch . o : unlatch . c 
cc  -c  unlatch. c $ (CFLAGS) 
mv  unlatch. o $ (OBJDIR) 

$ (OBJDIR)  /unvj>lot . o : unv_j>lot.c 

cc  -c  unv_plot.C  $ (CFLAGS)  -DDEBUG 
mv  unv_plot.o  $ (OBJDIR) 

$ (OBJDIR) /upd_rate . o : upd_rate . c 
cc  -c  upd_rate ,c  $ (CFLAGS) 
mv  upd_rate.o  $ (OBJDIR) 

$ (OBJDIR) /update . o : update. c 
cc  -c  update.c  $ (CFLAGS) 
mv  update. o $ (OBJDIR) 

$ (OBJDIR) /updtbg.o : updtbg.c 
cc  -c  updtbg.c  $ (CFLAGS) 


mv  updtbg.o  $ (OBJDIR) 

$ (OBJDIR) /updtfg.o:  updtfg.c 
cc  -c  updtfg.c  $ (CFLAGS) 
mv  updtfg.o  $ (OBJDIR) 

$ (OBJDIR) /updtht . o : updtht . c 
CC  -C  updtht. c $ (CFLAGS) 
mv  updtht. o $ (OBJDIR) 

$ (OBJDIR) /val_dt.o:  val_dt.c 
cc  -c  val_dt.c  $ (CFLAGS) 
mv  val_dt.o  $ (OBJDIR) 

$ (OBJDIR)  / val__f n . o : val_f n . c 
cc  — c val_fn.c  $ (CFLAGS) 
mv  val_fn.o  $ (OBJDIR) 

$ (OBJDIR) /val_msid.o:  val— msid.c 
cc  -c  val_m3id.c  $ (CFLAGS) 
mv  val_maid.o  $ (OBJDIR) 

$ (OBJDIR)  / val_ppl . o : val_j>pl . c 
cc  -c  val— ppl.c  $ (CFLAGS) 
mv  val— ppl.o  $ (OBJDIR) 

$ (OBJDIR) /val_src .o : val_src .c 
cc  -c  val_arc.c  $ (CFLAGS) 
mv  val_src.o  $ (OBJDIR) 

$ (OBJDIR) /valmaid.o : valmaid.c 
cc  -c  valmaid.c  $ (CFLAGS) 
mv  valmsid.o  $ (OBJDIR) 

$ (OBJDIR) /wex. o : wex.c 

cc  -C  wex.c  $ (CFLAGS) 
mv  wex.o  $ (OBJDIR) 

$ (OBJDIR) /zoom.o:  zoom.c 
cc  -c  zoom.c  $ (CFLAGS) 
mv  zoom.o  $ (OBJDIR) 


DDdisp.h 

/****************************************************************************** 

* MODULE  NAME:  DDdisp . h 

* 

* This  is  the  main  header  file  for  the  functions  which  are  responsible  for 

* data  display. 

* 

* This  file  specifies  integer  type  for  most  coordinates  instead  of  float. 

* 

★ 

♦ ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Tod  Milam  - Ford  Aerospace  Corporation/Houston 

★ 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

******************************************************************************  j 


♦include  <X11/Xlib.h> 


♦define  START_C IRCLE  0 

♦define  FULL_CIRCLE  (360*64) 

♦define  min(a,b)  ( (a<b)  ? a : b ) 

♦define  max(a,b)  ( (a<b)  ? b : a ) 

/* 

* Array  of  X Windows  Graphics  Contexts  used  to  change  colors/fonts  efficiently 
*/ 

♦define  MAX_GC  5 
int  GC_Index [129] ; 

/* 

* This  structure  contains  information  for  the  Displayer  task  when  activated. 

* This  information  is  used  by  the  Displayer  task  within  a workstation. 

*/ 


/*  indexes  color  ♦ (0..128)  to  FGC  */ 


struct  data_info 

{ 

long  buffer [2]; 
long  decom_buf; 
short  buf_ready; 

short  decom_in_use [MAX_DISP] ; 

short  need_decom; 

short  nbr_msids  [MAX_DISP]  ; 
short  msid__index[MAX_DISP]  [MAX 

long  spare; 


Offset  to  the  data  buffers. 

Offset  to  the  decom  buffer  for  data. 
Flag  set  to  either  0 or  1 depending  on 
which  data  buffer  has  newest  data 
/*  Flags  set  by  the  Displayer  task  when 
accessing  the  decom  buffer 
set  by  the  DH  when  an  update  needs  to 
be  made  to  the  decom  buffer 
total  nbr  MSID's  per  display 
_MSIDS]  ; 

/*  indices  for  each  possible  display 
/*  full  word  alignment 


/* 

/* 

/* 


/* 

/* 

/* 

/* 


*/ 

*/ 

*/ 

*/ 

*/ 

*f 

*/ 

*/ 

*/ 

*/ 


struct  shm_decom 

{ 


int  length; 


/*  length  of  one  sample  value  w/o  status 


;•  i*  f ■ % ' f 


int  size; 

/* 

int  offset; 

i* 

short  num_samps; 

/* 

char  attribute; 

/* 

char  error; 

/* 

short  sample_size; 

/* 

short  spare; 

/* 

); 
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length  of  all  status  and  values 
offset  to  data  value  parameter  block 
number  of  samples  returned 
parameter  attribute 
error  indicator 

length  of  one  sample  with  status  word 
full  word  alignment 


*/ 

*/ 

*/ 

V 

*/ 

*/ 

*/ 


/* 

* Union  used  for  extracting  data  from  the  decom  buffers. 
*/ 


union  p_data  { 
double  ddata; 
float  sfdata[2]; 
long  sldata[2]; 
short  ssdata[4]; 
unsigned  long  ldata[2]; 
unsigned  long  uldata[2]; 
unsigned  short  usdata[4]; 

} ; 


/* 

* Structure  to  be  used  in  reading  the  display  directory  and  then  placing. 

* on  the  display. 

*/ 


struct  file  header 
{ 

short  version; 

/* 

DDF  file  header  structure 

*/ 

/* 

display  builder  software  release  version 

*/ 

char  dispjname  [33] ; 

/* 

ASCII  title  of  the  display 

*/ 

char  position{17] ; 

/* 

Console  position  for  display 

*/ 

float  x_size; 

/* 

x-size  of  display 

*/ 

float  y_size; 

/* 

y-size  of  display 

*/ 

long  s_color; 

/* 

screen  background  color 

*/ 

long  graph_num; 

/* 

number  of  graphical  records 

*/ 

long  char_num; 

/* 

number  of  character  records 

*/ 

long  subd_num; 

/* 

number  of  subdrawing  records 

*/ 

char  accessors; 

/* 

access  restriction  code 

*/ 

char  spare [10]; 
In- 

struct rec  header 
< 

long  color; 

/* 

character  record  header 

*/ 

/* 

color  for  the  record  item 

*/ 

int  x_jJOsition; 

/* 

starting  x coordinate 

*/ 

int  y_position; 

/* 

starting  y coordinate 

*/ 

long  char_len; 

/* 

length  in  bytes  of  the  item 

*/ 

char  *record_item; 

/* 

character  string  to  display 

*/ 

Font  font_num; 

/* 

font  number  for  character  fonts 

*/ 

short  redraw_flag; 

/* 

flag  set  if  text  needs  to  be  redrawn 

*/ 

}; 


struct  msid  ent 
{ 

long  MSID_Entr; 

/*  msid  entry  structure 

*/ 

/*  msid  entry  number 

*/ 

char  MSID [11] ; 

/*  msid  name 

*t 

long  Sample; 

/*  sample  number  within  msid 

* / 

char  Data_Src[4]; 

/*  data  source  of  msid 

*/ 

short  Scrn_Type; 

/*  screen  data  type 

*/ 

long  Nom_Color; 

/*  nominal  parameter  color 

*/ 

long  Sta_ Color; 

/*  static  parameter  color 

*/ 

long  Ovr_ Color; 

/*  override  parameter  color 

*/ 

long  Dead_Color; 
float  X_NDC_St; 
float  Y_NDC_St ; 
short  Stat_Flag; 
long  Tab_Index; 
long  Txt_Index; 
long  PBI_Indx; 
long  hist_ind; 
long  Limit_Ind; 
long  data_ind; 
short  dddO_latch; 
short  dddl_latch; 
int  Wid_Ind; 

1 ; 
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/*  dead  parameter  color 


status  character  x color 
status  character  y color 
status  character  flag 
tabular  entry  index 
/*  multilevel  text  entry  index 
/*  pbi  entry  index 
/*  history  tab  index 
/*  limit  sense  index 

/*  index  into  the  01d_Data  array  for  redraw 
/*  YES,  if  maid  is  latched  on  a zero  value 
/*  YES,  if  maid  is  latched  on  a one  value 
Index  into  Widget  Data  Buffer 


/* 

/* 

/* 

/* 


/* 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

V 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


struct  tabula r_ent 
{ 


} ; 


/*  tabular  entry  structure 


long  Tab_Entry; 

/*  tabular  entry  number 

*/ 

long  Data_Width; 

/*  data  field  width 

*/ 

short  Dig_Right; 

/*  digits  right  of  the  decimal 

*/ 

short  Just_Flag; 

/*.  truncate/ justification  flag 

*/ 

int  X_XC; 

/*  starting  x coordinate 

*/ 

int  Y_XC; 

/*  starting  y coordinate 

*/ 

Font  font^num; 

/*  font  style 

*/ 

short  redraw^flag; 

♦ /*  flag  set  if  entry  needs  to  be  rerdawn 

*/ 

struct 

{ 


hist  tab 


history  tab  entry  number 
sequence  number  of  history  tab  entry 
low  limit  flag 
high  limit  flag 
index  to  ms id  record 
history  tab  file  name 
current  value  of  history  tab 
struct  shm_decom  decoin^ent  / /*  decom  entry  for  history  tab 
struct  hist_tab  *next _ptr;/*  pointer  to  next  history  tab 


long 

htab_entr; 

/* 

int 

time_cntr; 

/* 

char 

llimit_f  lag; 

/* 

char 

ulimit_flag; 

/* 

long 

msid_index; 

/* 

char 

f ile_name  [14] ; 

/* 

char 

* value; 

/* 

In- 


struct ht  files 


{ 


}; 


char  f ile_name  [14];  /*  history  tab  file  name 

FILE  *file_ptr;  /*  file  open  pointer 

int  num_entries;  /*  number  of  msid  entries  in  file 

struct  hist_tab  *ht_rec_ptr; /*  pointer  to  history  tab  structure 
struct  ht_files  *next_ptr;/*  pointer  to  next  file  entry 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


*/ 

*/ 

*/ 

*/ 

*/ 


struct  ddd  ent 


} ; 


short  ddd__entr; 
long  zero_val_cor; 
long  one_val_cor; 
short  zero_locked; 
short  one_locked; 
int  ddd__msids; 
short  * ddd__app_ pt  r / 


/*  ddd  entry  number 

/*  color  indicating  0 state 

/*  color  indicating  1 state 

/*  0 state  locked 

/*  1 state  locked 

/*  nbr  ddd  appended  to  icon 

/*  ptr  to  msid  appended  to  ddd 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


struct  ddd 
{ 


}; 


double  msid_app_ind;  /*  x coordinate  of  object 


struct  label_ent 
{ 

int  lbl_entr; 
long  lbl_ color; 
short  strt_x_j>os; 
short  strt_y_pos; 
int  num_labels; 
int  label_len; 
char  *label; 

Font  font_num; 

} ; 


/*  label  entry  number  */ 
/*  color  of  text  for  label  */ 
/*  label  descriptor  x position  */ 
/*  label  descriptor  y position  */ 
/*  nbr  of  lines  used  for  label  */ 
/+  label  length  */ 
/*  lbl  ptr  to  value/lbl  structure  */ 
/*  font  number  for  labels  */ 


struct  scale  ent 


short 

scale_entr; 

/* 

scale  entry  number 

*i 

char 

axis_type; 

/* 

axis  type  (cartesion,  etc..) 

*/ 

char 

scale_type; 

/* 

scale  type  (time  / number) 

*/ 

double 

low_scale; 

/* 

low  scale  value 

*/ 

double 

high_scale; 

/* 

high  scale  value 

*/ 

float 

low_scale_x; 

/* 

scale  starting  x position 

*/ 

float 

low_scale_ y; 

/* 

scale  starting  y position 

*/ 

float 

high_scale_x; 

/* 

scale  ending  x position 

*/ 

float 

high_scale_y; 

/* 

scale  ending  y position 

*/ 

float 

scale_x_dif  f / 

/* 

scale  coordinate  difference  x 

position 

*/ 

float 

scale  y diff; 

/* 

scale  coordinate  difference  y 

position 

*/ 

float 

msid_scale_range; /* 

scale  ms id  range 

*/ 

struct  limit_ent  /*  limit  sensing  structure  */ 

{ 

long  LimtJEntr;  /*  limit  entry  number  */ 

short  Limt_Flag;  /*  limit  sense  flag  */ 

double  Low_Limit;  /*  operational  low  limit  value  */ 

double  Hi_Limit;  /*  operational  high  limit  value  */ 

long  Lo_Color;  /*  low  limit  color  */ 

long  Hi_Color;  /*  high  limit  color  */ 

short  Crit_Flag;  /*  critical  limit  check  flag  */ 

double  Crit_Low;  /*  critical  low  value  */ 

double  Crit_Hi;  /*  critical  high  value  */ 

long  Cr_Lcolor;  /*  critical  low  limit  color  */ 

long  Cr_Hcolor;  /*  critical  high  limit  color  */ 

In- 


struct mtext_ent  /*  multilevel  text  entry  structure  */ 

{ 

long  Mult_Entr;  /*  multilevel  text  entry  number  */ 
short  Num_Values;  /*  number  of  value/text  pairs  */ 
char  Def_Text [7] ; /*  default  text  value  */ 
struct  val_txt  *text— ptr;/*  text  ptr  to  value/text  structure  */ 
In- 


struct val_txt  /*  value/text  structure  for  multilevel  text  */ 

{ 


long  Value; 

/*  incoming  value 

*/ 

char  Text [7]; 
In- 

/* text  string  to  display 

*/ 

struct  fg  file  header  /* 
( 

short  Version; 

DDF  foreground  file  header  structure 

*/ 

/*  display  builder  version 

*/ 

char  Disp_Name [33] ; 

/*  ASCII  title  of  the  display 

*/ 

char  Position [17] ; 
char  spare3 [2] ; 

/*  console  position  for  display 

*/ 

float  X_Size; 
float  Y_ Size; 
long  S_ Color; 
long  Tab_Num; 
long  Entry_Num; 
long  PBI_Num; 
long  Icon_Num; 
long  Tmplt_Num; 
long  Htab_Num; 
long  Mltxt_Num; 
long  Limit_Num; 
char  Access_Rs [2] ; 
char  Spare [20]; 

}; 
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/*  x-size  of  display 
/*  y-size  of  display 
/*  screen  color 
/*  number  of  tabular  entries 
/*  number  of  maid  entries 
/*  number  of  pbi  entries 
f*  number  of  icon  entries 
/*  number  of  template  entries 
/*  number  of  history  tab  entries 
/*  number  of  multilevel  entries 
/*  number  of  limit  entries 
/*  access  restriction  code 


*/ 

*/ 

*/ 

V 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/* 

* Structure  containing  the  information  representing  the  different  types  of 

* graphical  records  used  by  the  Displayer  Task  background 
*/ 


struct  graph_record 
{ 

short  graph_typ; 
char  *graph_ ptr; 

short  redraw_flag; 

} ; 


/*  graphical  record  type  structure  */ 

/*  type  of  graphical  record  */ 
/*  graphical  record  type  ptr  */ 
f*  flag  set  if  graphic  needs  to  be  redrawn  */ 


struct  line_record 

int  graph_col; 
short  line_type; 
float  line^wdth; 
int  pointl_x; 
int  point  l_y; 
int  point2_x; 
int  point2_y; 


/*  graphical  line  record  structure  */ 

/*  object  color  */ 
/*  line  type  of  object  */ 
/*  line  width  of  object  */ 
/*  x coordinate  of  first  point  ★/ 
/*  y coordinate  of  first  point  */ 
/*  x coordinate  of  second  point  */ 
/*  y coordinate  of  second  point  */ 


struct  rectangle_record 
{ 

int  graph_col; 
short  1 ine__t  ype ; 
float  line_wdth; 
short  pat_type; 
float  pat_ sizex; 
float  pat_sizey; 
int  ul_x; 
int  height; 
int  width; 
int  ul_y; 


/*  graphical  rectangle  record  structure  */ 

/*  object  color  */ 
/*  line  type  of  object  ★/ 
/*  line  width  of  object  */ 
/*  pattern  type  ★/ 
/*  pattern  x size  ★/ 
/*  pattern  y size  */ 
/*  lower  left  x coordinate  */ 
/*  height  of  rectangle  in  pixels  */ 
/*  width  of  rectangle  in  pixels  */ 
/*  lower  upper  rigth  y coordinate  */ 


struct  polygon_record 


int 

graph_col; 

/* 

short 

line_type; 

/* 

float 

line_wdth; 

/* 

short 

pat_type; 

/* 

float 

pat_sizex; 

/* 

float 

pat__sizey; 

/* 

int 

nmbr^ pts; 

/* 

struct 

graph_ pts 

*poly_pts_ptr; 

} ; 


graphical  polygon  record  structur 

object  color 
line  type  of  object 
line  width  of  object 
pattern  type 
pattern  x size 
pattern  y size 
number  of  points 

ptr  to  x and  y coord,  pts 


*/ 

*/ 

*/ 

*/ 

*/ 

V 

*/ 

*/ 

*/ 
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struct  curve  record 
{ 

int  graph_col; 

/* 

graphical  polygon  record  structure 

*/ 

/* 

object  color 

*/ 

short  line_type; 

/* 

line  type  of  object 

*/ 

float  line_wdth; 

/* 

line  width  of  object 

*/ 

int  nmbr^pts; 

/* 

number  of  points 

*/ 

struct  graphpts  *curve_pts_ptr; 

In- 

/* 

ptr  to  x and  y coord,  pts 

*/ 

struct  graph_pts 

{ 

int  point_x; 

/* 

graphical  points  struct  for  poly  and  cur. 

*/ 

/* 

x coordinate  of  object 

*/ 

int  point_y; 
In- 

/* 

y coordinate  of  object 

*/ 

struct  circle  record 
{ 

int  graph_col; 

/* 

circle  record  structure 

*/ 

/* 

object  color 

*/ 

short  line_type; 

/* 

line  type  of  object 

*/ 

float  line_wdth; 

/* 

line  width  of  object 

*/ 

short  pat_type; 

/* 

pattern  type 

*/ 

float  pat_sizex; 

/* 

pattern  x size 

*/ 

float  pat_sizey; 

/* 

pattern  y size 

*/ 

int  bb_x; 

/* 

upper  left  x coordinate  of  bounding  box 

*/ 

int  bb_y; 

/* 

upper  left  y coordinate  of  bounding 

box 

*/ 

float  radius; 
In- 

/* 

circle  radius 

*/ 

struct  arc  record 

{ 

int  graph_col; 

/* 

arc  record  structure 

*/ 

/* 

object  color 

*/ 

short  line_type; 

/* 

line  type  of  object 

*/ 

float  line_wdth; 

/* 

line  width  of  object 

*/ 

short  pat_type; 

/* 

pattern  type 

*/ 

float  pat_sizex; 

/* 

pattern  x size 

*/ 

float  pat_sizey; 

/* 

pattern  y size 

*/ 

int  bb_x; 

/* 

upper  left  x coordinate  of  bounding  box 

*/ 

int  bb_y; 

/* 

upper  left  y coordinate  of  bounding 

box 

*/ 

int  maj_axis; 

/* 

semi-major  axis 

* / 

int  min_axis; 

/* 

semi -minor  axis 

*/ 

int  anglel; 

/* 

angle  1 in  64th  degrees 

*/ 

int  angle2; 
In- 

/* 

angle  2 in  64th  degrees 

*/ 

struct  ellipse  record 
{ 

int  graph_co  In- 

/* 

ellipse  record  structure 

*/ 

/* 

object  color 

*/ 

short  line_ type; 

/* 

line  type  of  object 

*/ 

float  line_ wdth; 

/* 

line  width  of  object 

*/ 

short  pat__type; 

/* 

pattern  type 

*/ 

float  pat_sizex; 

/* 

pattern  x size 

*/ 

float  pat_sizey; 

/* 

pattern  y size 

*/ 

int  bb_x; 

/* 

x coordinate  of  center 

*/ 

int  bb_y; 

/* 

y coordinate  of  center 

*/ 

int  maj_axis; 

/* 

semi-major  axis  of  ellipse 

*/ 

int  min  axis; 
In- 

/* 

semi -minor  axis  of  ellipse 

*/ 

struct  ell  arc  record 
{ 

int  graph_col; 

/* 

elliptical  arc  record  structure 

*/ 

/* 

object  color 

*/ 

short  line_type; 

/* 

line  type  of  object 

V 
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} ; 


); 


float 

line_wdth; 

/* 

line  width  of  object 

*/ 

short 

pat_type; 

/* 

pattern  type 

*/ 

float 

pat_sizex; 

/* 

pattern  x size 

*/ 

float 

pat_sizey; 

/* 

pattern  y size 

*/ 

int  center_x; 

/* 

x coordinate  of  center 

*/ 

int  center_y; 

/* 

y coordinate  of  center 

*/ 

float 

ma j_axis; 

/* 

semi-major  axis  of  ellipse 

*/ 

float 

min_axis; 

/* 

semi-minor  axis  of  ellipse 

*/ 

float 

angle 1; 

/* 

angle  1 in  radians 

*/ 

float 

angle2; 

/* 

angle  2 in  radians 

*/ 

:ruct  vtext_record 

/* 

vector  text  record  header 

V 

int 

graph_col; 

i* 

object  color 

*/ 

Font 

font_num; 

i* 

X font  number 

*/ 

int 

font_style; 

/* 

font  style  for  the  item 

*/ 

float 

vert_size; 

/* 

vertical  font  size 

*/ 

float 

char_width; 

/* 

character  font  width 

*/ 

float 

char_spac; 

/* 

spacing  between  characters 

*/ 

int 

char_angl; 

/* 

angle  to  write  characters 

*/ 

int 

x_position; 

/* 

starting  x coordinate 

*/ 

int 

y_ position; 

/* 

starting  y coordinate 

*/ 

long 

char_len; 

/* 

length  in  bytes  of  the  item 

*/ 

char 

*record__item; 

/* 

character  string  to  display 

*/ 

struct 

{ 

long 

int 

int 

int 

int 

char 


subd_records 

subd_num; 
ul_x; 
lr _y; 
lr_x; 
ul_y; 

subd  f name  [50]; 


/*  subdrawing  records  Structure 


/* 

/* 

/* 

f* 

/* 

/* 


subdrawing  entry  number 
lower  left  x coordinate 
lower  left  y coordinate 
upper  right  x coordinate 
upper  right  y coordinate 
subdrawing  file  name 


*/ 

*/ 

*/ 

*/ 

V 

*/ 

*/ 


struct  hdr_info 
{ 


} ; 


long 

long 

long 

long 


graph_num; 
char_num; 
subd__ num; 
s color; 


/*  background  header  file  information 

/*  number  of  graphical  records 
/*  number  of  character  records 
/*  number  of  subdrawing  records 
/*  color  of  background  screen 


*/ 

*/ 

V 

*/ 

*/ 


struct  bg_recs 
{ 


short  graph_num; 
struct  graph_record  *graph_rec 

/* 
/* 
/* 
/* 
/* 
/* 


/*  number  of  graphical  records 


} ; 


short  char_num; 
struct  rec_header  ^record; 
short  subd_num; 
int  t ot a l_nbr_ records; 
long  s_color; 
struct  subd_records  *subd__rec; 

/* 

struct  bg_recs  *next_rec;  /* 


ptr  to  the  graphical  records 

number  of  character  records 

ptr  to  the  character  records 

number  of  subdrawing  files 

total  nbr  of  records  for  that  background 

background  screen  color 

ptr  to  subdrawing  information 

ptr  to  the  next  bg  record  information 


V 

*/ 

*/ 

*/ 

V 

V 

*/ 

*/ 

V 


struct  label_indices 

{ 

short  index; 

>; 


struct  pbi__ent 


short 

entry_num; 

int 

grph— indx; 

long 

grph_color; 

int 

ddd_indx; 

int 

num_labels ; 

struct 

label_indices  *label_ptr; 
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/****★**********★*★★**★**★★***★******★**★★★***★******************************** 

* MODULE  NAME:  DDfg_graph.h 

★ 

* This  is  the  header  file  which  defines  the  foreground  graphic  types  used  by 

* the  data  display  functions. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Tod  Milam  - Ford  Aerospace  Corporation/Houston 

★ 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★a****************************************************************************/ 


/* 

* Structure  containing  the  information  representing  the  different  types  of 

* foreground  graphical  records  used  by  the  Displayer  Task. 

*/ 


struct  fg_line_rec 


short 

line_ type; 

float 

line_wdth; 

float 

pointl_x; 

float 

point l_y; 

float 

point  2_x; 

float 

point 2_y; 

int 

msidl_x; 

int 

msidl_jy; 

int 

msid2_x; 

int 

msid2_y; 

int 

scale_indl; 

int 

scale_ind2; 

int 

scale_ind3; 

int 

scale_ind4; 

int 

ddd_ind; 

int 

scale__ind; 

int 

pbi_ind; 

int 

labe  l__num; 

struct 

label_index 

int 

re v_video ; 

int 

rot_ind; 

int 

vis_ind; 

long 

cur_color ; 

XPoint 

points [2] ; 

}; 


/*  graphical  line  record  structure 

/*  line  type  of  object 
/*  line  width  of  object 
/*  x world  coordinate  of  first  point 
/*  y world  coordinate  of  first  point 
/*  x world  coordinate  of  second  point 
/*  y world  coordinate  of  second  point 
/*  msid  x coordinate  for  1st  point 
/*  msid  y coordinate  for  1st  point 
/*  msid  x coordinate  for  2nd  point 
/*  msid  y coordinate  for  2nd  point 
/*  index  for  appending  scales 
/*  index  for  appending  scales 
/*  index  for  appending  scales 

/*  index  for  appending  scales 

I*  index  for  appending  DDDs 

/*  scale  nbr  thats  not  used 

/*  index  for  pbi  indicator 
/*  number  of  label  entries 
* 1 ine_lbl— pt  r ; 

/*  pointer  to  label  entry  index 

/*  flag  for  label  reverse  video 

/*  index  to  rotate  msid 

/*  index  to  visible  msid 

/*  save  the  most  recent  color  value 

/*  save  the  most  recent  values  for  redraw 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

V 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


struct  fg_rectangle_rec 
{ 

short  line_type; 
float  line_wdth; 
short  pat_type; 
float  pat_sizex; 
float  pat_sizey; 
float  ul_x; 
float  lr_y; 


/ * graphical  rectangle  record  structure  */ 

/*  line  type  of  object  */ 
/*  line  width  of  object  ★/ 
/*  pattern  type  ★/ 
/*  pattern  x size  */ 
/*  pattern  y size  ★/ 
/*  upper  left  x world  coordinate  * / 
/*  lower  right  y world  coordinat  */ 
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float 

lr_x; 

/* 

float 

ul_y; 

i* 

int 

msid__ul_x; 

/* 

int 

msid_lr_y ; 

/* 

int 

msid_ lr_x; 

/* 

int 

maid_ul_y; 

/* 

int 

acale_indl ; 

/* 

int 

scale_ind2 ; 

/* 

int 

scale_ind3 ; 

/* 

int 

scale_ind4 ; 

/* 

int 

ddd— ind; 

/* 

int 

scale_ind; 

/* 

int 

pbi__ind; 

/* 

int 

label_num; 

/* 

lower  right  x world  coordinat 
upper  left  y world  coordinate 
maid  x coordinate  for  upper  left 
maid  y coordinate  for  lower  right 
maid  x coordinate  for  lower  right 
maid  y coordinate  for  upper  left 
index  for  appending  acalea 
index  for  appending  scales 
index  for  appending  acalea 
index  for  appending  scales 
index  for  appending  DDDa 
index  for  appending  scale 
index  for  pbi  indicator 
number  of  label  entries 


}; 


In- 
struct fg__curve_rec 
{ 

short  line_type; 
float  line_wdth; 
short  pat_type; 
long  fnmbr_pta; 
long  mnmbr— pta; 
atruct  fg_graph_pts 
struct  maid_index 
struct  scale_index 
int  ddd_ind; 
int  scale_ind; 
int  pbi_ind; 


/*  graphical  polygon  record  structure 


/* 

/* 

/* 

/* 

/* 


*/ 

V 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


struct 

label_index 

*rect_lbl_ptr; 

*/ 

/*  pointer  to  label  entry  index 

int 

rev_video; 

/*  flag  for  label  reverse  video 

*/ 

int 

vis_ind; 

/ * index  to  visible  maid 

*/ 

long 

cur_color; 

/*  save  the  most  recent  color  value 

*/ 

XPoint 

rect ; 

/*  current  pixel  coordinates  for  redraw 

*/ 

short 

width,  height 

; /*  current  width/height  of  rectangle 

*/ 

:ruct  fg_polygon— rec 

/*  graphical  polygon  record  structure 

*/ 

short 

line_type; 

/*  line  type  of  object 

*/ 

float 

line_wdth; 

/*  line  width  of  object 

*/ 

short 

pat_type ; 

/*  pattern  type 

*/ 

float 

pat_sizex; 

/*  pattern  x size 

*/ 

float 

pat_sizey; 

/*  pattern  y size 

*/ 

long 

fnmbr_pta; 

/*  number  of  fixed  points 

*/ 

long 

mnmbr_jpts ; 

/*  number  of  points 

*/ 

struct 

fg_graph_ pts 

*po  ly_jpt  s_pt  r ; 

/*  ptr  to  x and  y coord,  pts 

*/ 

struct 

msid_index 

*ms id_ind_pt  r ; 

/*  ptr  to  maid  indexes 

*/ 

struct 

scale_index 

*poly_acale— ptr; 

/*  ptr  to  index  for  appending  scales 

*/ 

int 

ddd_ind; 

/*  index  for  appending  DDDs 

*/ 

int 

scale_ind; 

/*  index  for  appending  scales 

*/ 

int 

pbi_ind; 

/*  index  for  pbi  indicator 

*/ 

int 

label_num; 

/*  number  of  label  entries 

*/ 

atruct 

label_index 

*POly_lbl_ ptr; 

/*  pointer  to  label  entry  index 

*/ 

int 

rev_video; 

/*  flag  for  label  reverse  video 

*/ 

int 

rot_ind; 

/*  index  to  rotate  maid 

*/ 

int 

via_ind; 

/*  index  to  visible  maid 

*/ 

long 

cur_color; 

/*  save  the  moat  recent  color  value 

*/ 

XPoint 

points [100] ; 

/*  save  the  values  for  redraw 

*/ 

line  type  of  object 
line  width  of  object 
pattern  type 
number  of  fixed  points 
number  of  maid  points 
*cur_pts_ptr;  /*  ptr  to  x and  y coord,  pta 
*maid_ind_ ptr;  /*  ptr  to  maid  index 

♦cur^scale^ ptr;  /*  ptr  to  index  for  appending  scales 
/*  index  for  appending  DDDs 
/*  index  for  appending  scales 
/*  index  for  pbi  indicator 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 
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int  label_num; 
struct  label_index 
int  rev__video; 
int  vis_ind; 
long  cur_color/ 
XPoint  points [100] ; 


truct  fg_circle_rec 

/*  circle  record  structure 

short 

line_type; 

/*  line  type  of  object 

float 

line_wdth; 

/*  line  width  of  object 

short 

pat_type; 

/*  pattern  type 

float 

pat_sizex; 

/*  pattern  x size 

float 

pat_sizey; 

/*  pattern  y size 

float 

center_x; 

/*  x coordinate  of  center 

float 

center_y; 

/*  y coordinate  of  center 

float 

radius; 

/*  circle  radius 

int 

msid_cen_x; 

/*  msid  x coordinate  for  center  point 

int 

msid_cen_y ; 

/*  msid  y coordinate  for  center  point 

int 

msid_radius; 

/*  msid  index  for  radius 

int 

scale_indl; 

int 

scale— ind2; 

/*  index  for  appending  scale 

int 

scale  ind3; 

/*  index  for  appending  scale 

int 

ddd_ind; 

/*  index  for  appending  DDDs 

int 

scale_ind; 

/*  index  to  scale  record 

int 

pbi_ind; 

/*  index  for  pbi  indicator 

int 

label^num; 

/*  number  of  label  entries 

struct 

label_index 

*c^r_ibi^ptr;  /*  pointer  to  label  entry  index 

int 

rev^video; 

/*  flag  for  label  reverse  video 

int 

vis_ind; 

/*  index  to  visible  msid 

long 

cur_color; 

/*  save  the  most  recent  color  value 

float 

cur  rad; 

/*  save  for  redraw 

XPoint 

bb; 

/*  save  for  redraw 

/*  number  of  label  entries 
*cur_lbl_ptr;  /*  pointer  to  label  entry  index 
/*  flag  for  label  reverse  video 
/*  index  to  visible  msid 
/*  save  the  most  recent  color  value 
/*  save  the  values  for  redraw 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

V 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*t 

*/ 

*/ 

*/ 

*/ 


struct  fg_arc_rec 


short 

line_type; 

float 

line_ wdth; 

short 

pat_type; 

float 

pat_sizex; 

float 

pat_sizey; 

float 

center_x; 

float 

center_y; 

double 

angle 1; 

double 

angle2 ; 

float 

ma j_axis; 

float 

min__axis; 

int 

msid_cen_x; 

int 

maid ceny; 

int 

msid_angl; 

int 

msid_ang2; 

int 

ms  id__ma  j ; 

int 

msid_min; 

int 

scale_indl ; 

int 

scale_ind2; 

int 

scale_ind3; 

int 

scale_ind4; 

int 

scale__ind5; 

int 

scale_ind6; 

int 

ddd_ind; 

int 

scale_ind; 

int 

pbi_ind; 

/*  arc  record  structure  */ 

/*  line  type  of  object  */ 
/*  line  width  of  object  */ 
/*  pattern  type  */ 
/*  pattern  x size  */ 
/*  pattern  y size  */ 
/*  x coordinate  of  center  */ 
/*  y coordinate  of  center  * / 
/*  angle  1 in  radians  */ 
/#  angle  2 in  radians  */ 
/*  major  axis  length  */ 
/*  minor  axis  length  ★/ 
/*  msid  x coordinate  for  center  point  */ 
/*  msid  y coordinate  for  center  point  */ 
/*  msid  for  angle  1 ★/ 
/*  msid  for  angle  2 ★/ 
/*  msid  x for  major  axis  */ 
/*  msid  y for  minor  axis  */ 
/*  index  for  appending  scale  */ 
/*  index  for  appending  scale  */ 
/*  index  for  appending  scale  */ 
/*  index  for  appending  scale  */ 
f*  index  for  appending  scale  * / 
/*  index  for  appending  scale  ★/ 
/*  index  to  DDD  record  */ 
/*  index  to  scale  record  ★/ 
/*  index  for  pbi  indicator  ★/ 


int 

struct 
int 
int 
int 
long 

short  smajor; 
short  sminor; 

XPoint  center; 
float  cur_angl; 
float  cur_ang2 ; / * 

}; 
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/*  number  of  label  entries 

/*  pointer  to  label  entry 
flag  for  label  reverse  video 
index  to  rotate  msid 
index  to  visible  msid 
save  the  most  recent  color  value 
save  for  redraw 
save  for  redraw 
save  for  redraw 
save  for  redraw 
save  for  redraw 


label_num; 
label_index 
rev_video ; 
rot_ind; 
vis_ind; 
cur  color; 


*arc_lbl_jptr  ? 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


*/ 

index*/ 

*/ 

*/ 

V 

*/ 

V 

*/ 

V 
*/ 
*/ 


struct  fg_ellipse_rec  /*  ellipse  record  structure  */ 


short 

line_type; 

/*  line  type  of  object 

*/ 

float 

line_wdth; 

/*  line  width  of  object 

*/ 

short 

pat__type ; 

/*  pattern  type 

*/ 

float 

pat_sizex; 

/*  pattern  x size 

*/ 

float 

pat_sizey; 

/*  pattern  y size 

float 

center_x; 

/*  x coordinate  of  center 

*/ 

float 

center_y; 

/*  y coordinate  of  center 

*/ 

float 

ma  j_axis ; 

/*  semi-major  axis  of  ellipse 

V 

float 

min_axis ; 

/*  semi -minor  axis  of  ellipse 

*/ 

int 

msid_cen_x; 

/*  msid  x coordinate  for  center  point 

*/ 

int 

msid_cen_y ; 

/*  msid  y coordinate  for  center  point 

*/ 

int 

msid_len; 

/*  msid  coordinate  for  length 

*/ 

int 

msid_hgh; 

/*  msid  coordinate  for  heigth 

*/ 

int 

scale_indl; 

/*  index  for  appending  scale 

*/ 

int 

scale_ind2 ; 

/*  index  for  appending  scale 

*/ 

int 

scale_ind3; 

/*  index  for  appending  scale 

*/ 

int 

scale  ind4; 

/*  index  for  appending  scale 

*/ 

int 

ddd_ind; 

/*  index  to  ODD  record 

*/ 

int 

scale_ind; 

/*  index  to  scale  record 

*/ 

int 

pbi_ind; 

/*  index  for  pbi  indicator 

*/ 

int 

label_num; 

/*  number  of  label  entries 

*/ 

struct 

label_index 

*ell_lbl_j>tr;  /*  pointer  to  label  entry  index 

*/ 

int 

rev_video; 

/*  flag  for  label  reverse  video 

*/ 

int 

vis_ind; 

/*  state  of  visibility 

*/ 

long 

cur_color; 

/*  save  the  most  recent  color  value 

*/ 

float 

smajor; 

/*  save  for  redraw 

*/ 

float 

sminor; 

/*  save  for  redraw 

*/ 

XPoint 

center; 

/*  save  for  redraw 

*/ 

} ; 


struct  fg_piechrt_ rec 
{ 


long 

def_col; 

/* 

default  color  for  pie  volume 

*/ 

short 

P*t_type; 

/* 

pattern  type 

*/ 

float 

pat_sizex; 

/* 

pattern  x size 

*/ 

float 

pat_sizey; 

/* 

pattern  y size 

*/ 

float 

center^ x; 

/* 

x coordinate  of  center 

*/ 

float 

center^ y; 

/* 

y coordinate  of  center 

*/ 

float 

radius ; 

/* 

radius  of  pie  chart 

*/ 

short 

sum_f lag; 

/* 

pie  sum  of  volume  flag 

*/ 

double 

sum_pie ; 

/* 

pie  sum  of  volume 

*/ 

int 

num_msid; 

/* 

number  of  msid  appended 

*/ 

struct 

pie_ms  id_index 

*pie  msid  ptr;  /*  pointer  to  msid 

for  pie  chart 

*/ 

float 

smajor; 

/* 

smajor  for  redraw  of  pie 

chart 

*/ 

float 

sminor; 

/* 

sminor  for  redraw  of  pie 

chart 

*/ 

float 

angle 1; 

/* 

beginning  angle  of  closing  slice 

*/ 

float 

angle2; 

/* 

ending  angle  of  closing  slice 

*/ 

); 
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struct  fg_clkmtr_rec 

{ 


} ; 


In- 


short 

line_type; 

/*  line  type  of  object 

*/ 

float 

line_wdth; 

/*  line  width  of  object 

*/ 

long 

clkmtr_col; 

/*  clock/meter  color  for  dial 

*/ 

short 

pat_type; 

/*  pattern  type 

V 

float 

pat_sizex; 

/*  pattern  x size 

*/ 

float 

pat_ sizey; 

/*  pattern  y size 

*/ 

float 

center^ x; 

/*  x coordinate  of  center 

*/ 

float 

center_y; 

/*  y coordinate  of  center 

*/ 

float 

radius; 

/*  radius  of  clock/meter  chart 

*/ 

double 

angle_l ; 

/*  starting  angle  of  the  clock/meter 

*/ 

double 

angle_2 ; 

/*  ending  angle  of  the  clock/meter 

*/ 

double 

angle_ dif f ; 

int 

num_msid; 

/*  number  of  ms id 

*/ 

short 

hand_type [10] ; 

/*  hand  type 

*/ 

struct 

cm_ms id— index 

*clk_msid _ptr;  /*  pointer  to  maid  appended  to  clock*/ 

struct 

scale_index  * 

clk_scale _ptr;  /*  ptr  to  index  for  appending  scales 

V 

int 

label_num; 

/*  number  of  label  entries 

V 

struct 

label_index  * 

clk_lbl jptr;  /*  pointer  to  label  entry  index 

*/ 

int 

r®v_vid®o ; 

/*  flag  for  label  reverse  video 

*/ 

short 

init_ draw; 

/*  initial  pass  of  clock/meter 

*/ 

:ruct  fg_bar_rec 

short 

line_type; 

/*  line  type  of  object 

*/ 

float 

line_wdth; 

/*  line  width  of  object 

*/ 

char 

direction; 

/*  direction  of  movement 

*/ 

short 

pat_type; 

/*  pattern  type 

V 

float 

pat_sizex; 

/*  pattern  x size 

*/ 

float 

pat_sizey; 

/*  pattern  y size 

*/ 

float 

ul_x; 

/*  upper  left  x coordinate 

*/ 

float 

lr_y; 

/*  lower  right  y coordinate 

*/ 

float 

lr^x; 

/*  lower  right  x coordinate 

*/ 

float 

ul_y; 

/*  upper  left  y coordinate 

V 

int 

numjmsid; 

/*  number  of  ms id  appended 

*/ 

int 

msid_indx; 

/*  index  for  msid  to  drive  bar  chart 

*/ 

int 

scale_indx; 

/*  ndex  for  appending  scale 

*/ 

int 

label_num; 

/*  number  of  label  entries 

*/ 

struct 

label_index  *bar_lbl_ptr;  /*  pointer  to  label  entry  index 

*/ 

int 

rev_video; 

/*  flag  for  label  reverse  video 

*/ 

long 

cur_color; 

/*  save  the  most  recent  color  value 

*/ 

struct  fgr_record 


{ 


} ; 


short  graph_typ; 
int  graph_ent; 
char  *graphj>tr; 
short  redra w_f lag ; 


/*  flag  set  if  graphic  needs  to  be  redrawn*/ 


struct  fg_recs 
{ 


} ; 


long  graph_num; 

struct  fgr_record  *graph_rec; 


/*  number  of  graphical  records 
/*  ptr  to  graphical  records 


*/ 

*/ 


struct  fg_graph_pts 


float 

float 


); 


point_ x; 
point_y; 
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/*  x coordinate  of  object 
/*  y coordinate  of  object 


*/ 

*/ 


struct  1 abe l_i nde  x 

short  label_ind[10] ; /*  label  entry  index  */ 

In- 


struct scale_index 

{ 

long  scale_ind_num;  /*  index  for  appending  scales  */ 

In- 
struct ms id_ index 

long  msid_ind;  /*  index  for  appending  ms ids  */ 

In- 
struct cm_msid_index 
{ 

long  msid_ind;  /*  index  for  appending  msids  */ 

long  cur_color; 

XPoint  end_pt; 

In- 


struct pie_msid_index 

{ 

long  msid_ind; 
long  cur_color; 
float  anglel; 
float  angle2; 


*/ 


/*  index  for  appending  msids 
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/★★★a************************************************************************** 

* MODULE  NAME:  DDplot.h 

* 

* This  include  file  defines  structures  and  constants  needed  for  plot  display. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Tod  Milam  - Ford  Aerospace  Corporation/Houston 

* 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

**★★**★**★★*★★******  ***★***★★*★★**★****★★★**★*********************************/ 


/* 

* These  structures  contain  information  for  plot  processing. 
*/ 


struct  plot_ptrs 

( 

struct  plot_tmplt  *plot_jpos; 
double  seconds_elapsed; 
struct  plot_hdr  * header; 
struct  axis_info  *axis; 
struct  msid_info  *msids; 
struct  lim_lines  *nline; 
struct  lim_lines  *lline; 
struct  shm_decom  *plt_decom; 
char  *plot_data; 
char  plot_name  [DNAME_LEN]  ; 
char  plot_data_f  ile  [DNAME_LEN]  ; 
char  user_disp_ name  [DNAME_LEN] ; 
char  plot_ovr [DNAME_LEN] ; 

Widget  scrl^win; 

Widget  draw_win; 
short  act_flg; 
short  prev_act_f lg; 
short  ovr^flg; 
int  plot_f pr- 
int buf_size; 
short  ovl_color_f lg; 
sho rt  redr a w_f lag ; 

} ; 


/*  ptr  to  the  plot  position  */ 
/*  nbr  secs  since  plot  was  started  */ 
/*  ptr  to  plot  header  */ 
/*  ptr  to  axis  information  */ 
/*  ptr  to  maid  information  */ 
/*  ptr  to  nominal  line  information  */ 
/*  ptr  to  limit  line  information  */ 
/*  ptr  to  plot  decom  buffer  */ 
/*  ptr  to  plot  data  buffer  */ 
/*  plot  file  name  */ 
/*  plot  file  name  for  data  file  */ 
/*  plot  file  name  with  user-display  */ 
/*  plot  overlay  file  name  */ 
/*  widget  id  for  scrolling  window  */ 
/*  widget  id  for  drawing  area  */ 
/*  1 if  plot  is  active  */ 
/*  1 if  plot  is  or  has  been  active  */ 
/*  1 if  plot  has  been  overlayed  */ 
/*  file  pointer  to  plot  data  file  */ 
/*  size  of  data  buffer  */ 
/*  overlay  color  change  flag  */ 
/*  flag  set  if  needs  to  be  redrawn  */ 


/* 

* Structure  containing  the  information  representing  the  plot  definition 

* files. 

*/ 

struct  plot__tmplt 
{ 


long 

tmplt_entr ; 

short 

tmplt_type ; 

short 

bb_xul; 

short 

bb_ yul; 

short 

bb_width; 

short 

bb_height ; 

short 

drw_width; 

short  drw_height; 
short  offset_x; 
short  offset_y; 
double  factor_x; 
double  facto r_ y; 
double  o r g_f  a c t o r_x ; 
double  o r g_f a c t o r_y ; 
char  tmplt_nam[9]  ; 


); 
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/*  current  pixel  offset  for  plot  points  */ 


/*  (used  to  keep  zoom  focus) . */ 
/*  current  world  coordinate  */ 
/*  transformation  factors.  */ 
/*  original  world  coordinate  */ 
/*  transformation  factors.  */ 


struct  plot_hdr 


short 

version; 

char 

plot_titl [33] ; 

char 

position [17] ; 

int 

xaxes_num; 

int 

yaxes_num; 

int 

msid_num; 

int 

actual^ ms ids ; 

int 

nline_num; 

int 

lline_num; 

short 

upd_rate; 

short 

access  rs; 

in- 


struct axis_info 
{ 


char 

axis_xory; 

/*  specifies  if  an  x axis  or  y axis 

*/ 

int 

axis_num; 

/*  numeric  identifier. . .unique  by  x/y  only 

*/ 

short 

axis_type; 

/*  cartesian,  logarithmic,  or  polar 

*/ 

char 

scal_ type; 

/*  N - number,  T - Time 

*/ 

int 

end_code ; 

/*  what  to  do  when  time  plot  reaches  axis 

*/ 

short 

axis_pos; 

/*  x or  y position  of  the  y or  x axis 

*/ 

short 

pixel_axis_pos ; 

/*  permanent  pixel  axis  position 

*/ 

short 

cur_axis_pos ; 

/*  current  pixel  axis  pos  (save  for  redraw) 

*/ 

short 

axis_col; 

/*  color  of  the  axis 

*/ 

char 

low^scale [15] ; 

/*  ascii  version  of  original  low  scale 

*/ 

char 

high_scal [15] ; 

/*  ascii  version  of  original  low  scale 

*/ 

double 

low__value; 

/*  current  low  scale  in  float 

*/ 

double 

high_value; 

/*  current  high  scale  in  float 

* / 

double 

org_low_val ; 

/*  original  low  scale  in  float 

*/ 

double 

o r g_h igh_va 1 ; 

/*  original  high  scale  in  float 

*/ 

char 

auto__f  lag; 

/*  auto  scaling  on  enabled?  YES /NO 

*/ 

short 

grad_vals; 

/*  # of  graduations  from  low  to  high  scale 

*/ 

char 

vis_flag; 

/*  is  this  axis  visible? 

*/ 

char 

grid_flag;  v 

/*  are  grid  lines  parallel  to  this  axis? 

*/ 

short 

grid_gran; 

/*  granularity  of  the  grid  lines 

*/ 

short 

grid_type; 

/*  line  type  of  grid  (solid,  dashed,  dot-dash 

*/ 

short 

grd_color; 

/*  color  of  the  grid  lines 

*/ 

short 

ma  j_ticks; 

/*  # of  major  tick  marks  (incl.  ends) 

*/ 

short 

min_ticks; 

/*  # of  minor  tick  marks  (excl.  maj  tick  inks) 

*/ 

short 

end_of_plot; 

/*  end-of-plot  flag  for  time  plots 

*/ 

short 

auto_scale; 

/*  1-update  low  scale,  2-update  high  scale 

*/ 

double 

new  scale; 

/*  new  scale  value  for  rescale 

*/ 

short  axis  active; 

/*  YES  to  plot  on  axis 

*/ 

double 

scale  ratio; 

/*  ratio  of  plot  length  / scale  units 

*/ 

float  logval; 

/*  log  value  fbr  axis 

*/ 

} ; 


^ struct  msid_info 

( 

short  msid_indx; 
char  msid_name [11] ; 
short  sample; 


char 

data_src  [ 4]  ; 

char 

xory_axis; 

int 

axis_num; 

char 

plot_msid[ll]  ; / 

char 

plot_type; 

int 

line_type; 

float 

line_width; 

char 

plot_char [2]  ; 

Font 

plot_font ; 

short 

icon_indx; 

char 

plot_conn; 

short 

plot_color; 

int 

stat_f  lag; 

int 

miss_f lag; 

short 

stat_color; 

short 

miss_color; 

short 

ovl_ color ; 

short 

limt_color; 

short 

crit_ color; 

int 

ope retype; 

float 

oper_width; 

int 

crit_type; 

float 

crit_width; 

struct 

msid_info  *pair_ptr; 

short 

first_pt ; 

short 

prevjpt_x; 

short 

prev_pt_y; 

} ; 


DDplot.h 


name  of  the  msid  pair  */ 


/*  YES,  if  first  point  plotted 
/*  last  x coordinate  in  pixels 
/*  last  y coordinate  in  pixels 


struct  lim__lines 
{ 

char  line_type; 

short  line_color; 

int  xaxis_num; 

int  yaxis_num; 

char  line_def; 

short  point_num; 

short  polyn_num; 

struct  plot^pts  *plotjpts_ptr; 

char  coeff [6] [15] ; 


*/ 

*/ 

*/ 


struct 

{ 

char 

plot_pts 

/* 

plot  points  struct  for  poly 

*/ 

point_x[15] ; 

/* 

x coordinate  of  object 

*/ 

char 

point— y [15] ; 

/* 

y coordinate  of  object 

*/ 

>; 
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/★★***** *********************************************************************** 
* MODULE  NAME:  constant s.h 


* 

* This  file  defines  constants  and  structures  needed  by  the  Display  Manager. 

★ 


★ 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

★ Mark  D.  Collier  - Software  Engineering  Section 

★ Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************/ 


/* 

* Courier  fonts 
*/ 


♦define  R_0  8 
♦define  B_08 
♦define  I_08 
♦define  R_10 
♦define  B_10 
♦define  I_10 
♦define  R_12 
♦define  B_12 
♦define  I_12 
♦define  R_14 
♦define  B_14 
♦define  I_14 
♦define  R_18 
♦define  B_18 
♦define  I_18 
♦define  R_24 
♦define  B_24 
♦define  I 24 


" -adobe -courier-medium-r-normal — 8-80-75-75 -m- 50-iso8859-l" 
"-adobe-courier-bold-r-normal--8-80-75-75-m-50-iso8859-l" 
"-adobe-courier-medium-o-normal — 8-80-75-75-m-50-iso8859-l" 

" -adobe -courier -medium- r -normal — 10-100-75-75-m-60-iso8859-l" 
"-adobe-courier-bold-r-normal — 10-100-75-75-m-60-iso8859-l" 
"-adobe-courier-medium-o-normal --10-100-75-7  5-m-60-iso8  85  9-1 " 
"-adobe -courier-medium-r-normal — 12-120-75-75-m-70-iso8859-l" 
"-adobe-courier-bold-r-normal--12-120-75-75-m-70-iso8859-l" 
"-adobe -courier-medium-o -normal — 12-120-75-75-m-70-iso8859-l" 
"-adobe-courier-medium-r-norroal — 14-140-75-7 5-m- 9 0-iso8 85 9-1" 

" -adobe -courier-bold-r-normal — 14-1 40-7 5-7 5-m- 90 -iso8 8 5 9-1" 
"-adobe-courier-medium-o-normal — 1 4-1 40 -7 5-7 5-m- 90 -iso8 8 5 9-1" 

" -adobe - courier -medium- r -normal — 18-180-75-75-m-110-iso8859-l" 
"-adobe-courier-bold-r-normal--18-180-75-75-m-110-iso8859-l" 
"-adobe-courier-medium-o-normal — 18-180-75-75-m-110-iso8859-l" 
" -adobe -courier -medium- r-normal--2 4-2 4 0-7 5-7 5-m- 150-iso 8 8 59-1” 
tt-adobe-courier-bold-r-normal--24-240-75-75-m-150-iso8859-l" 
"-adobe-courier-medium-o-normal — 24-240-75-75-m-150-iso8859-l" 


/* 

* Masscorr ip  fixed  fonts 
*/ 


♦define  R_3X5 
♦define  B_3X5 
♦define  I_3X5 
♦define  R_5X7 
♦define  B_5X7 
♦define  I_5X7 
♦define  R_7X9 
♦define  BJ7X9 
♦define  I_7X9 
♦define  R_9X11 
♦define  B_9X11 
♦define  I_9X11 

♦define  MAX_COLORS 
♦define  NUM_MOTIF_COLORS 
♦define  CLR_SIZE 
♦define  CLR_NUM 
♦define  CLR_SPACE 
♦define  CLR_TOTAL 
♦define  CLR_WIDTH_RGB 
♦define  CLR  LEFT  RGB 


"3x5" 

"3x5" 

"3x5" 

"5x7" 

"5x7_bold" 

"5x7_italic" 

"7x9" 

"7x9Jx>ld" 

"7x9_italic" 

"9x11" 

"9xll_bold" 

" 9xll— italic" 

256 

16 

15 

16 
3 

{ ( CLR_SIZE  + CLR_SPACE  ) 

308 
1 


* CLR  NUM  + CLR  SPACE  ) 


♦define  HELP_MAX 

26 

♦define  HELP  BUF_SIZE 

5000 

♦define  HELP_DIR 

"/home/p 

ro ject /290  4/db/ dm/help/" 

♦define  W_RED 

1 

/*  WEX  advisory  color 

*/ 

♦define  w_yellow 

2 

/*  WEX  advisory  color 

*/ 

♦define  w_GREEN 

3 

/*  WEX  advisory  color 

*/ 

♦define  W_BLUE 

4 

/*  WEX  advisory  color 

*! 

♦define  W_WHITE 

5 

/*  WEX  advisory  color 

*/ 

♦define  NO_CHANGE 

-1 

♦define  BAD 

-1 

♦define  GOOD 

1 

♦define  QT2 

1 

♦define  YES 

1 

♦define  NO 

0 

♦define  START 

1 

♦define  STOP 

0 

♦define  ON 

1 

♦define  OFF 

0 

♦define  NONE 

•1 

♦define  INVALID 

“1 

♦define  ERROR 

-1 

♦define  SETUP  ERROR 

1 

♦define  VALID 

0 

♦define  CREAT_SHM 

1 

♦define  NO_CREAT 

2 

♦define  READY 

1 

♦define  NOT_READY 

0 

♦define  SCREEN  XSIZE 

1152.0 

/*  Masscomp/Sun  Screen  X pixels 

* 

♦define  SCR£EN_YSIZE 

910.0 

/*  Masscorop/Sun  Screen  Y pixels 

it 

♦define  MAJOR_TICK_LEN 

2.0 

♦define  MINOR  TICK  LEN 

1.0 

♦define  SRC_NUM 

1.0 

♦define  MAX  DISP 

4 

/*  max  number  of  Displayer  tasks  per  DM 

*/ 

♦define  MAX_DISPS 

4 

/*  max  number  of  Displayer  tasks  per  DM 

*/ 

♦define  MAX_WINDOWS 

14 

/*  windows  per  terminal 

*/ 

♦define  DM_SHM_KEY 

414 

/*  Display  Manager  shared  memory  key 

*/ 

♦define  DISP_NAME  LEN 

10 

/*  max  length  of  a display  name 

*/ 

♦define  NO  PATH  DISP 

8 

/*  max  length  of  a display  name  with  no  path 

*/ 

♦define  FLT_ID 

4 

/*  length  of  the  flight  id 

*/ 

♦define  DISP_LOOP 

30 

/*  loop  cntr  for  Display  Init  check 

*/ 

♦define  DDH_LOOP 

30 

/*  loop  cntr  for  Data  Handler  Init  check 

*/ 

♦define  HALT_T IME 

5 

/*  loop  cntr  for  task  halts 

*/ 

♦define  MAX_FLTS 

2 

/*  max.  number  of  flights 

*/ 

♦define  GDR_SOURCE 

"GR" 

/*  pseudo  source  for  GDR  data  sources 

*/ 

♦define  NBR_D AT A_S RC 

( NUM_PPM  + NUM  GDR  + NUM  USR  + 5 ) 

/*  PPM,  GDR,  USR,  PTM,  NDM,  MTM,  2 ENV  src 

*/ 

♦define  PRIV_DECOM 

( ( 15  * 

MAX_FLTS  ) + 7 + MAX_DISP  ) 

/*  private  decom  - 13  data  source  statuses 

*/ 

/*  2 entries  for  flight  and  data  type 

*/ 

/*  total  15  entries  for  each  flight 

*/ 

/*  7 for  traj  count  and  6 msgs . , 

★ > 

/*  MAX  DISP  disp  rates 

\ k 

♦define  TOTAL_DECOM 

( PRIV  DECOM  + MAX  MS IDS  ) 

/*  total  decom  entries 

*/ 

♦define  PR_MSID_OFF  3000 

/*  start  of  private  msids  in  decom  table 

*/ 

constants  Ji 


♦define 

ACT  NDM  PR  MS ID  OFF 

/* 

active  NDM  data  source  flag 

*/ 

♦define 

ACT_PTM  ( 

ACT_NDM  + 

MAX_FLTS  ) 

/* 

active  PTM  data  source  flag 

*/ 

♦define 

ACT_MTM  ( 

ACT__PTM  + 

MAX_FLTS  ) 

/* 

active  MTM  data  source  flag 

*/ 

♦define 

ACT  MOC  ( 

ACT  MTM  + 

MAX_FLTS  ) 

/* 

active  MOC  data  source  flag 

*/ 

♦define 

ACT_GDR  ( 

ACT_MOC  + 

MAX_FLTS  ) 

/* 

active  GDR  data  source  flag 

*1 

♦define 

ACT_PPM  ( 

ACT_GDR  + 

MAX_FLTS  ) 

/* 

active  PPM  data  source  flag 

*/ 

♦define 

ACT_USR  ( 

ACT_PPM  + 

MAX_FLTS  ) 

/* 

active  USR  data  source  flag 

*/ 

♦define 

TRJ_MSG_LEN 

20 

♦define 

HM_NDM 

( ACT_USR  + MAX_FLTS 

> ) 

/*  homog.  NDM  data  source  flag 

*/ 

♦define 

HM_PTM 

( HM_NDM  + MAX_FLTS 

) 

/*  homog.  PTM  data  source  flag 

*/ 

♦define 

HM  MTM 

( HM  PTM  + MAX_FLTS 

) 

/*  homog.  MTM  data  source  flag 

*/ 

♦define 

HM_MOC 

( HM  MTM  + MAX_FLTS 

) 

/*  homog.  MOC  data  source  flag 

*/ 

♦define 

HM_PPM 

( HM_MOC  + MAX_FLTS 

) 

/*  homog.  PPM  data  source  flag 

*/ 

♦define 

HM_USR 

( HM_PPM  + MAX_FLTS 

) 

/*  homog.  USR  data  source  flag 

*/ 

♦define 

TRAJ_CNT 

( HM  USR  + MAX  FLT S 

) 

/*  trajectory  message  count 

*/ 

♦define 

TRAJ_MSG1 

( TRAJ_ 

CNT  + 1 ) 

/*  trajectory  message  1 

*/ 

♦define 

TRAJ_MSG2 

( TRAJ 

MSG1  + 1 ) 

/*  trajectory  message  2 

*/ 

♦define 

TRAJ_MSG3 

( TRAJ_ 

MSG2  + 1 ) 

/*  trajectory  message  3 

*/ 

♦define 

TRAJ_MSG4 

( TRAJ_ 

MSG3  + 1 ) 

/*  trajectory  message  4 

*/ 

♦define 

TRAJ_MSG5 

( TRAJ_ 

MSG4  + 1 ) 

/*  trajectory  message  5 

*/ 

♦define 

TRAJ_MSG6 

( TRAJ_ 

MSG5  + 1 ) 

/*  trajectory  message  6 

*/ 

♦define 

UPD_MS ID 

( TRAJ 

MSG 6 + 1 ) 

/*  start  of  update  rates  per  display 

*/ 

♦define 

FLT  MS  ID 

( UPD  MS ID  + MAX_DISP  ) 

/*  start  of  flight  Id's 

*/ 

♦define 

STRM_MS ID 

( FLT  MS ID  + MAX  FLTS  ) 

/*  start  of  stream  type 

*/ 

♦define 

GDR_MSG1 

0x80 

/*  mask  for  tra j . message  1 status 

*/ 

♦define 

GDR  MSG2 

0x10 

/*  mask  for  traj.  message  2 status 

*/ 

♦define 

GDR_MSG3 

0x08 

/*  mask  for  traj.  message  3 status 

*/ 

♦define 

GDR_MSG4 

0x04 

/*  mask  for  traj.  message  4 status 

*/ 

♦define 

GDR_MSG5 

0x02 

/*  mask  for  traj.  message  5 status 

V 

♦define 

GDR_MSG6 

0x01 

/*  mask  for  traj.  message  6 status 

*/ 

♦define 

NEW_GDR 

"255" 

/* 

retrieve  data  on  update  only 

*/ 

♦define 

ADD 

1 

/* 

add  a new  maid 

*/ 

♦define 

START  DISPLAY 

1 

/* 

function  code  to  start  a display 

*/ 

♦define 

STARTED  I SPLAY 

2 

/* 

function  code  to  start  a particular  display 

*/ 

♦define 

CLEAR  DISPLAY 

3 

/* 

function  number  to  clear  a display 

*/ 

♦define 

SCRN_DUMP 

4 

/* 

function  number  for  a screen  dump 

*/ 

♦define 

MAIN  HELP 

5 

/* 

function  number  to  main  menu  help 

*/ 

♦define 

HALT  DISPLAY 

6 

/* 

function  number  to  halt  the  Display  Manager 

*/ 

♦define 

LIM  MENU 

7 

/* 

function  number  to  bring  up  limit  change  mnu 

*/ 

♦define 

CHG_LIM 

8 

/* 

function  number  to  change  limits 

*/ 

♦define 

DRAW_PF 

9 

/* 

function  number  to  draw  PF  definitions 

V 

♦define 

DRAW_MAIN 

10 

/* 

function  number  to  draw  main  menu 

*/ 

♦define 

UPD  RATE 

11 

i* 

function  number  to  change  display  update 

V 

♦define 

LIM_GRP 

12 

/* 

function  number  to  change  limit  group 

*/ 

♦define 

POS  ALARM 

13 

/* 

function  number  to  turn/off  w/s  alarm 

*/ 

♦define 

PLOT 

14 

/* 

function  number  to  start/stop  a plot 

*/ 

♦define 

PLOT  OVRLAY 

15 

/* 

function  number  to  overlay  a plot 

*/ 

♦define 

HISTJTAB 

16 

/* 

function  number  to  process  history  tabs 

*/ 

♦define 

ZOOM_DIS 

17 

/* 

function  number  for  zooming  the  display 

*/ 

♦define 

ZOOM_RES 

18 

/* 

function  number  for  reseting  the  display 

*/ 

♦define 

ZOOM  FAC 

19 

/* 

function  number  for  changing  the  zoom  factor 

*/ 

♦define 

LOGENABLE 

DISPLAY 

20 

/* 

function  number  for  display  log  enable 

*/ 

♦define 

LOGDISABLE  DISPLAY 

21 

/* 

function  number  for  display  log  disable 

*/ 

♦define 

LOGENABLE 

ALL 

22 

/* 

function  number  for  all  DM  log  enable 

*/ 

♦define 

LOGDISABLE  ALL 

23 

/* 

function  number  for  all  DM  log  disable 

*/ 

♦define 

GDR_GETNEXT 

24 

/* 

function  number  for  GDR  get  next  option 

*/ 

♦define 

PBI  ENABLE 

25 

/* 

function  number  to  enable  PBIs 

*/ 

♦define 

PBI_DISABLE 

26 

/* 

function  number  to  disable  PBIs 

*/ 

♦define 

EXMSG_SEND 

27 

/* 

function  number  to  send  an  EXmsg 

*/ 

♦define 

DDD  UNLATCH 

26 

/* 

function  number  to  unlatch  DDDs 

*/ 

♦define  DDD_UNL_ALL 
♦define  SET  FLIGHT 


♦define  GDR_CHG 
♦define  LIM_GRP_OFF 
♦define  LIM_LIST 
♦define  PLOT_OFF 
♦define  PLOT_LIST 
♦define  SAVE_OVRLAY 
♦define  PLOT_UNV 
♦define  POS_ALARM_OFF 
♦define  DISPLAY 
♦define  MSG_ON 
♦define  MSG_OFF 
♦define  EDIT_COLORS 
♦define  FREEZE_DISPLAY 
♦define  RESTART_DISPLAY 
♦define  UNIX  COMMAND 


29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

40 

41 

42 

43 

44 

45 
90 
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/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


function  number  to  unlatch  DDDs 
function  number  used  to  save  f light/datatype 
function  number  used  to  save  change  GDR 
function  number  used  to  turn  off  limit  group 
function  number  used  to  list  limits 
function  number  used  turn  a plot  off 
function  number  used  list  plots 
function  number  used  save  an  overlay 
function  number  used  to  define  a UNV  plot 
function  number  used  to  turn  a POS  alarm  off 
used  by  Data  Handler  for  disp  initialization 
function  number  for  turning  on  messages 
function  number  for  turning  off  messages 
function  number  for  editing  the  colors 
function  number  for  freezing  a display 
function  number  for  restarting  a display 
function  number  to  send  a unix  command 


*r 

*/ 

*/ 

*/ 

*/ 

v 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


♦define  NEW_SCALE 

1 

/* 

♦define  READ_PLOT 

2 

/* 

♦define  STRT_PLOT 

1 

/* 

♦define  STOP_PLOT 

2 

/* 

♦define  SAVE_OVERLAY 

3 

/* 

♦define  OVERLAY 

4 

t* 

update  universal  scale  values  only  */ 
read  the  universal  plot  file  in  again  */ 

action  flag  to  start  a plot  */ 
action  flag  to  stop  a plot  */ 
action  flag  to  save  a plot  overlay  */ 
action  flag  to  overlay  a plot  ★/ 


♦define  MAX_PLOTS  20 

♦define  MAX_POS_ID  4 

♦define  PLOT_MSID$  30 

♦define  PLOTJ3ECOMJ3IZE  24 

♦define  MEDICAL_USR  1 

♦define  PAYLOAD  USR  2 


/*  w/s  max.  of  active  plots  */ 
/*  max.  position  Id's  for  a * workstation  */ 
/*  max  ms ids  to  plot  */ 

/*  size  of  a plot  decom  entry  * 


♦define  OPS 
♦define  CERT 
♦define  DEV 


1 /*  WEX  Operational  mode 

2 /*  WEX  Certification  mode 

3 /*  WEX  Development  mode 


*/ 

*/ 

*/ 


♦define  TRIG_LIM_FILE  0x0001 
♦define  TRIG_CRT_HIGH  0x0002 
♦define  TRIG_CRT_LOW  0x0004 
♦define  TRIG_OPS_HIGH  0x0008 
♦define  TRIG_0PS  LOW  0x0010 


/*  mask  to  trigger  a limit  group  change 
/*  mask  to  trigger  a limit  group  change 
/*  mask  to  trigger  a limit  group  change 
/*  mask  to  trigger  a limit  group  change 
/*  mask  to  trigger  a limit  group  change 


*/ 

*/ 

*/ 

*/ 

*/ 


♦define  DISCRETE 
♦define  NO_MSID 
♦define  DISP_INFO 
♦define  FILE  DESC 


0x00000001  /*  discrete  data  mask 

1 /*  in  limit  change  - no  match  found 

♦8  /*  Display  information  size 

33  /*  File  desc  size 


*/ 

*/ 

*/ 

*/ 


♦define  MAX_AXES  3 

♦define  TOTAL_AXES  6 

♦define  AXES_OFFSET  ( MAX  AXES  - 1 


/*  maximum  nbr  of  axes  pairs 
/*  maximum  nbr  total  axes 
) /*  offset  to  axis  information 


*/ 

*/ 

*/ 


♦define  RR 
♦define  Rl 
♦define  R2 
♦define  SR 
♦define  SI 
♦define  S2 


0x5252  /*  ASCII 
0x5231  /*  ASCII 
0x5232  /*  ASCII 
0x5352  /*  ASCII 
0x5331  /*  ASCII 
0x5332  /*  ASCII 


*/ 

*/ 

*/ 

*/ 


♦define  TWO  BLANKS 


0x2020  /*  ASCII 


*/ 


♦define  DNAME  LEN 


41 


/*  max.  name  length  for  a display 


*/ 


constants  .h 


♦define 

PPL_NAME_LEN 

14 

t* 

max.  name  length  for  a ppl  file 

*/ 

♦define 

UPD_ADJ 

150 

/* 

plot  update  rate  ad j . in  ma . 

*/ 

♦define 

BYTE_MASK 

0x0e700001 

/* 

save  bits  4,  5,  6,  9,  10,  11  of  * status  word*/ 

♦define 

BYTE_CLR 

Oxf 997f f fd 

/* 

clear  bits  12  and  30  of  the  status  * word 

*/ 

♦define 

DATA  DIFF 

0x10 

/* 

set  bit  11  of  the  status  word  - * data  update 

*/ 

♦define 

NO  DIFF 

OxEF 

/* 

clr  bit  11  of  the  status  word  - * data  update 

*/ 

♦define 

LOW_LIM 

0x02 

/* 

set  bit  low  bit  of  the  status  - * limit  chk 

*/ 

♦define 

HIGH_LIM 

0x04 

/* 

set  bit  high  bit  of  the  status  - * limit  chk 

*/ 

♦define 

CRIT_LOW 

0x20 

/* 

set  bit  low  bit  of  the  status  - * limit  chk 

*/ 

♦define 

CRIT_HIGH 

0x40 

/* 

set  bit  high  bit  of  the  status  - * limit  chk 

*/ 

♦define 

MAX  MS IDS 

3000 

/* 

maximum  nbr  of  msids  to  process  in  * a w/s 

*/ 

♦define 

MAX_SAMPLES 

3000 

/* 

maximum  nbr  of  samples  to  process  * in  a w/s 

*/ 

♦define 

STATUSES I ZE 

4 

/* 

size  of  the  status  word  in  the  data 

*/ 

♦define 

INVAL ID_ENTRY 

0x00000020 

/* 

invalid  bit  set  in  status  field 

*/ 

♦define 

NUM_USR 

24 

/* 

max.  nbr  of  User  Comp  data  sources  * per  w/s 

*/ 

♦define 

NUM_PPM 

4 

/* 

max.  nbr  of  PPM  data  sources  per  * stream 

*/ 

♦define 

NUM_GDR 

6 

/* 

max.  nbr  of  GDR  data  sources  per  * w/s 

*/ 

♦define 

TAB_ENT_SIZE 

41 

/* 

size  of  a tabular  entry 

*/ 

♦define 

VAL_TXT_SIZE 

12 

/* 

size  of  a value  text  pair 

*/ 

♦define 

MUL_TXT_SKIP 

14 

/* 

amount  to  skip  before  the  * value/text  pair 

*/ 

♦define 

ALL 

-1 

/* 

number  of  MSIDs  to  retrieve 

*/ 

♦define 

LAST 

0 

/* 

retrieve  the  last  sample 

*/ 

♦define 

UNLATCH_MSID 

1 

/* 

unlatch  one  DDD  maid 

*/ 

♦define 

MS  ID_LENGTH 

10 

/* 

length  of  an  MSID  for  string  * compare 

*/ 

♦define 

RETRY_COUNT 

60 

/* 

counter  for  a connect  or  getkeys  * retry 

*/ 

♦define 

EXTRA_BYTES 

100 

/* 

extra  bytes  added  to  size  of  data  * buffer 

*/ 

♦define 

UPDATE_RATE 

850 

/* 

time  in  ms.  to  wait  to  call  * getparms 

*/ 

♦define 

TRIG_ADJ 

( 1000.0/ UPD ATE_RATE  ) 

♦define 

UPDATE^ WAIT 

200 

/* 

time  in  ms.  to  wait  after  a call  to  * chk_upd*/ 

♦define 

DISP_WSID 

48 

/* 

Displayer  workstation  id 

*/ 

♦define 

MENU_WS_BASE 

1 

i* 

MENU  workstation  base  Id 

*/ 

♦define 

STRM  LEN 

2 

/* 

length  of  the  stream  type 

*/ 

♦define 

DD_SHM_KEY 

415 

i* 

Displayer  key  number 

*/ 

♦define 

STOP  TIME 

10 

/* 

Displayer  halt  time  for  loop 

*/ 

♦define 

WAIT_CNT 

10 

/* 

number  of  times  to  loop  waiting  for  flags  to 

*/ 

♦define 

UNAVAI L_D AT A 

0x00000040 

/* 

data  is  unavailable 

*/ 

♦define 

DEAD  DATA 

0x40000000 

/* 

Dead  data  mask  for  status  bit  1 

*/ 

♦define 

MISSING_DATA 

0x80000000 

/* 

Missing  data  mask  for  status  bit  0 

*/ 

♦define 

S TAT I C_D AT A 

0x08000000 

/* 

Static  data  mask  for  status  bit  4 

*/ 

♦define 

HOMOG__D  AT  A 

0x01000000 

i* 

homogeneous  data  mask  for  status  * bit  7 

*/ 

♦define 

LXMIT_HXGH 

0x04000000 

/* 

Limit  high  data  mask  for  status  bit  * 5 

*/ 

♦define 

LIMIT  LOW 

0x02000000 

t* 

Limit  low  data  mask  for  status  bit  * 6 

*/ 

♦define 

CRITICAL  HIGH 

0x00400000 

/* 

Critical  high  data  mask  for  status  * bit  9 

*/ 

♦define 

CRITICAL_LOW 

0x00200000 

/* 

Critical  low  data  mask  for  status  * bit  10 

*/ 

♦define 

DOUBLE  UP  ARROW 

144 

/* 

status  character  double  up  arrow 

*/ 

♦define 

DOUBLE_DOWN_ARROW 

146 

/* 

status  character  double  down  arrow 

*/ 

♦define 

UP— ARROW 

218 

/* 

status  character  up  arrow 

*/ 

♦define 

DOWN  ARROW 

250 

/* 

status  character  down  arrow 

*/ 

♦define 

MAX_FONTS 

10 

/* 

status  character  down  arrow 

*/ 

♦define 

COLOR_OFF  SET 

110 

/* 

color  offset  for  color  palette 

*/ 

constants  Ji 


♦define  SEC  YR  CONV 

{ 1/ 

( 60*60*2 

♦define  BASE_YEAR 

70 

/* 

♦define  BASE_YEAR2 

0 

/* 

♦define  COMP  BASE_YEAR 

1970 

/* 

♦define  YEAR_DIFF 

30 

/* 

♦define  NEW  LOW  SCALE 

1 

/* 

♦define  NEW_H I GH_SCALE 

2 

/* 

♦define  CARTESIAN 

0 

/* 

♦define  POLAR 

1 

/* 

♦define  LOGARITHMIC 

2 

/* 

/* 

^*365. 25  ) ) /*  seconds  to  year  conversion 

system  clock  begins  in  Jan  1,  1970 
system  clock  diff.  for  the  next  decade 
system  clock  begins  in  Jan  1,  1970 
system  clock  diff.  for  the  next  decade 

calculate  a new  low  scale 


POLAR  axis  type 
LOGARITHMIC  axis  type 


* Constant  to  check  if  bit  is  set  for  binary  display. 
*/ 


*/ 

*/ 

*/ 

*/ 

*/ 


♦define  BIT_IS_SET  ( bit,  pointer  ) \ 

< pointer [ ( bit/8  ) ] 4 ( unsigned  char  ) ( 1 « ( 7 - ( bit  % 8 ) ) ) ) 


/* 

* Constants  for  graphical  records 
*/ 


♦define  LINE  1 

♦define  RECTANGLE  2 

♦define  POLYGON  3 

♦define  CIRCLE  4 

♦define  ARC  5 

♦define  ELLIPSE  6 

♦define  VECT_TXT  7 

♦define  CURVE  8 

♦define  ELLIPTICAL_ARC  9 

♦define  PIE_CHART  11 

♦define  CLOCK_METER  12 

♦define  BAR_CHART  13 


/*  graphical  line  records 
/*  graphical  rectangle  records 
/ * graphical  polygon  records 
/*  graphical  circle  records 
/*  graphical  arc  records 
/*  graphical  ellipse  records 
/*  graphical  vector  text  records 
/*  graphical  curve  records 
/*  graphical  ellipse  records 
/*  pie  chart  records 
/*  clock  meter  records 
/*  bar  chart  records 


*/ 
*/ 
*/ 
*/ 
*/ 
★ / 


*/ 

*/ 

*/ 

*/ 


♦define  OFF_S C ALE_H I GH 
♦define  OFF  SCALE  LOW 


0x20000000  /*  Off  scale  high  data  mask  for  status  * bit  2 */ 
0x10000000  /*  Off  scale  low  data  mask  for  status  * bit  3 */ 


♦define  VERSION 


/*  Software  release  version 


*/ 


♦define  HOLLOW 
♦define  SOLID 
♦define  HATCH 


0 

1 

2 


/*  type  of  fill  pattern 
/*  type  of  fill  pattern 
/*  type  of  fill  pattern 


*/ 

*/ 

*/ 


♦define  DBUFFSIZE 


14 


/*  size  of  the  data  buffer  in  bytes 


*/ 


♦define  LOCAL_T IME 
♦define  PLOT_ADVISE 
♦define  PLOT  BELL 


" LOCAL_T IME " / * for  the  local  time  msid 
0x00000001  /*  WEX  advisory  bit  0 plot  end  code 

0x00000002  /*  alarm  bit  1 for  plot  end  code 


*/ 

*/ 

*/ 


♦define  END  CODE  MASK 


0x0000000c  /*  mask  off  bits  0 and  1 


*/ 


♦define  PI 
♦define  TWO  PI 


3.1415926536  /*  mathematical  constant  */ 

( 2 * 3.1415926536  ) /*  mathematical  constant  mult,  by  2 */ 


♦define  PLOT_STOP  0 

♦define  PLOT_WRAP  4 

♦define  PLOT_RE SCALE  8 

♦define  PLOT_BELL_STOP  2 

♦define  PLOT_BELL_WRAP  6 

♦define  PLOT_BELL_RESCALE  10 
♦define  PLOT  ADV  STOP  1 


/*  stop  the  plot  bits  2 and  3 off  */ 

/*  wrap  bit  2 and  3 for  plot  end  code  * 

/*  rescale  bit  2 and  3 for  plot  end  code  * , 

/*  stop  the  plot  bits  2 and  3 off,  bit  1 on  */' 

/*  wrap  bit  1,2  and  3 for  plot  end  code  */ 

/*  rescale  bit  1,2  and  3 for  plot  end  code  */ 

/*  stop  the  plot  bits  2 and  3 off  */ 


♦define  PLOT  ADV  WRAP 

5 

/*  wrap  bit  2 and  3 for  plot  end  code 

*/ 

♦define  PLOT_ADV_RESCALE 

9 

/*  rescale  bit  2 and  3 for  plot  end  code 

*/ 

♦define  PLOT  BELL_ADV_STOP 

3 

/*  stop  the  plot  bits  2 and  3 off 

*/ 

♦define  PLOT  BELL  ADV  WRAP 

7 

/*  wrap  bit  2 and  3 for  plot  end  code 

*/ 

♦define  PLOT_BELL_ADV_RESCALE  11 

/*  rescale  bit  2 and  3 for  plot  end  code 

*/ 

♦define  MIN  FONT_SIZE 

0.5 

/*  minimum  character  height  for  plot  labels 

*/ 

♦define  MAX_FONT_SIZE 

1.0 

/*  maximum  character  height  for  plot  labels 

*/ 

♦define  LABEL_STYLE 

"ital" 

/*  font  style  of  plot  axis  labels 

*/ 

♦define  OFFSET_INTO_COLORMAP  110 

/*  offset  for  colors  in  the  colormap 

V 

♦define  PBI  PRESET_NONE 

0 

/*  PBI  has  no  backlighting  selected 

*/ 

♦define  PBI  PRESET_OFF 

1 

/*  PBI  has  preset  backlight  selection  off 

*/ 

♦define  PBI_PRESET_ON 

2 

/*  PBI  has  preset  backlight  selection  on 

*/ 

♦define  PBI_BKLGHT_OFF 

0 

/*  PBI  backlight  condition  is  off 

*/ 

♦define  PBI_BKLGHT_ON 

1 

/*  PBI  backlight  condition  is  on 

*/ 

♦define  PBI  HOST_DEST 

"MOCrt 

/*  PBI  Host  Destination  code 

*/ 

♦define  PBI  LOCAL  DEST 

"DMR" 

/*  PBI  Local  Destination  code 

*/ 

♦define  PBI_HST_RSP_OVRD 

'N' 

/*  Host  Response  Override  flag  for  Pbi's 

*/ 

♦define  PBI_ACTIVE 

1 

/*  Pbi  is  active  with  "1"  — ie  on  display 

*/ 

♦define  MULTIDEF 

100 

/*  Multi-definition  offset 

*/ 

♦define  LOCAL_PBI 

20 

/*  Offset  for  a local  Pbi 

*/ 

♦define  SP 

1 

/*  Give  names  for  Pbi  types:  SP  - Standard 

*/ 

♦define  FS 

2 

/*  Field  select  pbi  type 

♦define  DP 

3 

/*  Dependent  Pbi  type 

*/ 

♦define  DE 

4 

/*  Dependent  Execute  type 

*/ 

♦define  DC 

5 

/*  Dependent  Clear  type 

*/ 

♦define  DG 

6 

/*  Dependent  Group  type 

*/ 

♦define  FP 

7 

/*  Forward  for  Multi  def  PBI  type 

*/ 

♦define  RP 

8 

/*  Reverse  for  Multi  def  PBI  type 

*/ 

♦define  ME 

9 

/*  MED  PBI  type 

*/ 

♦define  DT 

10 

/*  DTE  PBI  type 

*/ 

♦define  CD 

11 

/*  Command  PBI  type 

*t 

♦define  EN 

12 

/*  Dependent  Enable  pbi  code 

*/ 

♦define  DS 

13 

/*  Dependent  Disable  pbi  code 

*/ 

♦define  TOGGLE_FORWARD 

1 

/*  Multidef  pbi  processing  direction 

*/ 

♦define  TOGGLE_RE VERSE 

-1 

/*  Multidef  pbi  processing  direction 

*/ 

♦define  NO_BCKLGHT 

0 

/*  Backlighting  disabled  code 

*/ 

♦define  INIT_BCKLGHT 

2 

/*  Backlighting  enabled  and  initially  on 

*/ 

♦define  MFS 

102 

/*  multidef  Field  Selection  Option 

V 

♦define  MFP 

107 

/*  multidef  Forward  Button 

*/ 

♦define  MRP 

108 

/*  multidef  Reverse  Button 

*/ 

♦define  DISABLED 

1 

/*  flag  for  disabling  PBIs 

*/ 

♦define  ENABLED 

0 

/*  flag  for  enabling  PBIs 

♦define  PBI 

0 

/*  signifies  PBIs  being  parsed 

*/ 

♦define  PFKEY 

1 

/*  signifies  PF  keys  being  parsed 

*/ 

♦define  COMMAND_L INE 

100 

/*  lenghth  of  a command  line 

*/ 

♦define  MAX_SCREEN_LEN 

100 

/*  maximum  screen  length  in  world  coord. 

*/ 

♦define  MIN_SCREEN_LEN  0 

/*  minimum  screen  length  in  world  coord. 

*/ 

♦define  BORDER 

20 

/*  border  for  help  menus  with  elevator 

♦define  SLIDER_BAR 

16 

/*  slider  bar  interactive  input  type 

*/ 

♦define  TOGGLE_S WITCH 

17 

/*  toggle  switch  interactive  input 

*/ 

♦define  HAND  ANG 

( PI/48  ) 

/*  angle  for  poly,  hands 

♦define  LG  LINE  HAND 

0 

/*  large  clock/meter  line  hand  type 

*/ 

♦define  MED_LINE_HAND 

1 

/*  medium  clock/meter  line  hand  type 

*/ 

♦define  SM_LINE  HAND 

2 

/*  small  clock/meter  line  hand  type 

*/ 

♦define  LG_POLY_HAND 

3 

/*  large  clock/meter  poly  hand  type 

*/ 

♦define  MED_POLY_HAND 
♦define  SM  POLY  HAND 


constants  .h 


4 /*  medium  clock/meter  poly  hand  type 

5 /*  small  clock/meter  poly  hand  type 


disp.h 


/a***************************************************************************** 

* MODULE  NAME:  disp.h 

* 

* This  function  defines  structures  required  for  a display. 

* 

* 


* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

a*****************************************************************************/ 


# include  <X11/Xlib.h> 

# include  <X11/Intrinsic .h> 

/* 

* This  structure  contains  information  for  each  displayer  task  that  is  acti- 

* vated.  This  information  is  used  by  all  Display  Manager  tasks  within  a 

* workstation. 

*/ 

struct  ppl_record  { 


char 

ppl_f  ilename [51] ; 

/* 

PPL  Filename 

*/ 

char 

host_name  [ 4 ] ; 

/* 

host  name  ( "MOC"  or  "DSC"  ) 

V 

char 

retrieval_qualif ier [11] 

;/* 

PPL  Retrieval  Qualifier 

*/ 

char 

rate_units [2] ; 

/* 

unit  of  time  ( 'D',  'H',  'M',  'S' 

*/ 

/* 

for  days,  hours,  minutes,  secs  ) 

*/ 

char 

duration_units [2] ; 

/* 

unit  of  time  ( 'D' , 9 H' , 'M',  'S' 

*/ 

/* 

for  days,  hours,  minutes,  secs  ) 

*/ 

char 

ppl_rate [5] ; 

/* 

PPL  rate  ( 0 - 255  > 

*/ 

char 

duration [5] ; 

/* 

PPL  duration  ( 0 - 255  ) 

*/ 

long 

total_bytes; 

/* 

total  bytes  in  data  value  buffer 

*/ 

short 

get_next ; 

/* 

YES,  if  get  command  for  GDR 

*/ 

short 

update_retr; 

/* 

YES,  if  retrieval  qual.  updated 

*/ 

short 

src_indx; 

/* 

source  index  into  source  info 

*/ 

short 

strm  id; 

/* 

stream  Id  of  the  source 

*/ 

In- 
struct limit_chg  { 


char 

msid_name  [11]  ; 

/*  MS  ID  name 

V 

short 

limt_f  lag; 

/*  limit  sense  flag 

*/ 

double 

low_  limit; 

/*  ops  low  limit 

*/ 

short 

ol_alrra; 

/*  ops  low  alarm  flag 

*/ 

short 

ol_adv; 

/*  ops  low  advisory  flag 

*/ 

double 

hi_limit ; 

/*  ops  high  limit 

*/ 

short 

oh_ alrm; 

/*  ops  high  alarm  flag 

*/ 

short 

oh_adv; 

/*  ops  high  advisory  flag 

*/ 

short 

crit_f lag; 

/*  crit  limit  sense  flag 

*/ 

double 

crit_low; 

/*  crit  low  value 

*/ 

short 

cl_alrm; 

/*  critical  low  alarm  flag 

*/ 

short 

cl_adv; 

/*  critical  low  advisory  flag 

*/ 

double 

crit_high; 

/*  crit  high  value 

*/ 

short 

ch_alrm; 

/*  critical  high  alarm  flag 

*/ 

short 

ch_adv; 

/*  critical  high  advisory  flag 

*/ 

char 

src  [4]  ; 

/*  MS ID  source 

*/ 

short 

updated; 

/*  YES  when  limits  retrieved  or 

*/ 

/*  updated 

*/ 

char 

option [4] ; 

/*  option  of  EVN  or  PPM  data  source 

*/ 

short 

indx; 

/*  index  of  limit  entry 

*/ 

short 

alarm; 

/*  set  to  yes  if  alarm  is  enabled 

*/ 

I; 


struct  disp_info 
short 

long 

short 

short 

short 

short 

short 

short 

short 

short 

short 

short 

short 

short 

short 

short 

short 

short 

short 

short 

short 

struct  limit_ 
short 

short 

int 

char 

char 

char 

char 

char 

char 

char 

short 

char 

short 

short 

short 

short 

short 

char 

short 

char 

char 

float 

float 

float 

float 

float 

float 

float 


disp_active; 

update_rate; 

disp_init; 

active_display; 

clear; 

dh_clear; 

halt; 

disp_ pause; 
new_display; 

disp_  halt_ack; 
get_lim; 

upd_l  im; 

grp_lim; 

dh_g  r p_l  imi  t ; 

dh_plot ; 
dh_plot_ack; 

read_plot ; 

dd_strt; 

dd_stop; 

dd_ovrl; 

action; 

_chg  limits; 

dh_new_disp; 

dh_disp_init ; 


/* 

/* 

/* 

/* 

/* 

/* 

/* 


*/ 

*/ 


flag  set  by  display  manager  when  a display 
manager  is  started 

update  rate  for  the  display  in  milliseconds 
flag  set  by  a displayer  when  initialized 
flag  s^t  by  Display  Mgr  when  display  is  up 
flag  set  by  display  manager  to  clear  a disp 

flag  set  by  display  manager  to  clear  a 

/*  used  by  DDH 

/*  flag  set  by  display  manager  to  halt  a 

flag  set  by  display  manager  to  "pause  _ 

flag  set  by  display  manager  for  a change  in  */ 
/*  displays  * / 

/*  flag  set  by  displayer  when  ready  to  exit  */ 

flag  set  by  display  manager  to  get  limit  */ 


/* 

/* 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

a disp*/ 


disp 

disp 


/* 

/*  values 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


*/ 


flag  set  by  display  manager  to  notify  the  DDH*/ 
to  update  the  limits  in  displays  and  its  list*/ 
flag  set  by  display  manager  to  notify  the  DDH*/ 


to  turn  on  or  off  limit  groups 
flag  set  by  Data  Handler  to  acknowledge  if 
a good  limit  group  cmd  executed 
command  to  start  or  stop  a plot  for  the  DH 
flag  set  by  Data  Handler  to  acknowledge  if 
a good  plot  command  executed. 


/*  command  to  read  a plot  def.  file  for  the  DD 


/* 

/* 


disp^pid; 
display_name [DNAME_LEN] ; 
plot_name  [DNAME_LEN]  ; 
plot_overlay  [DNAME_LEN]  ; 
plot_path  [DNAME_LEN]  ; 
disp_path  [DNAME_LEN]  ; 
flighted [5]  ; 
strm_type[3] ; 
strra  no; 


pos_id[14]; 

log_enable; 

dd_zoom; 
pos_id_indx; 
dh_htab; 
dd  htab; 


/*  command  to  overlay  a plot  for  the  Displayer 
/*  type  of  action  to  take,  i.e.  start,  stop... 
limits  to  change 

flag  set  by  display  manager  for  a change  in 
/*  displays  - used  by  DDH 

/*  flag  set  by  Data  Handler  to  acknowledge  if 
/*  good  display  initialization 
/*  process  Id  of  the  Displayer  task 
/*  name  of  display 
/*  name  of  plot 
/*  name  of  plot  overlay 
/*  default  plot  path 
/*  default  display  path 
/*  flight  associated  with  display 
stream  type  associated  with  this  display 
stream  number  associated  with  this  display 


/* 

/* 


/*  position  id  of  the  user 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


used  by  the  Displayer  to  log  display  data  set*/ 


htab_f  ile [DNAME_LEN] ; 


/*  by  the  Display  Manager 
/*  zoom  flag  for  displayer 

index  to  the  matching  pos.  Id  for  w/s  alarm 
history  tab  command  for  handler 
set  by  DH  for  displayer  to  update  hist  tabs 


/* 

/* 

/* 


/*  name  of  the  history  tab  file  to 
/*  update 

unlatch;  /*  ddd  unlatch  fig  1-  all;  2 - particular  msid  */ 

ins id— name  [MS ID LENGTH  + 1];  /*  MSID  to  unlatch 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


src  [4]  ; 
dd_zfact ; 
dd_xpt ; 
dd _ypt; 
low_x; 

i°w_y ; 

high_x; 

high_y; 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


source  of  msid  to  unlatch 
zoom  factor  for  displayer 
zoom  in  to  x coordinate 
zoom  in  to  y coordinate 
world  coord,  for  displayer  zoom 
world  coord,  for  displayer  zoom 
world  coord,  for  displayer  zoom 
world  coord,  for  displayer  zoom 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


int 

int 

float 

float 


}; 


size_x;  /*  Size  in  pixels  of  the  display 

size _y;  /*  Size  in  pixels  of  the  display 

factor  x;  /*  Multiply  value  for  WC  ->  pixels  conversion 

factory;  /*  Multiply  value  for  WC  ->  pixels  conversion 


*/ 

*/ 

*/ 

*/ 


struct  stream_info  { 
char 
char 
short 

} ; 


f lt— id[5] ; 
strm_type  [3]  ; 
nbr  conn; 


/*  flight  Id  for  this  stream 
/*  stream  type  for  this  stream 

/*  number  of  displays  using  this  flight 


*/ 

*/ 


struct  flags 
short 

short 

short 

short 

short 

short 

short 

short 

short 

int 

short 

short 

short 

int 

short 

short 

char 

short 

short 


dh  not  halted;  /*  Data  Handler  halt  flag  - set  to  FALSE  when  */ 


/*  task  is  to  be  halted  */ 

disp  halt_nbr;  /*  display  nbr  which  is  being  halted  when  the  */ 

' " " /*  Data  Handler  is  being  halted  */ 

(Uninitialized;  /*  set  by  Data  Handler  when  the  task  is  */ 

~ /*  successfully  initialized.  */ 

dh_num;  /*  Data  Handler  display  number  for  event  file  */ 

dh_evnt;  /*  read  the  event  trigger  files  */ 

dh_ack_evnt;  /*  processed  event  and  default  limit  files  */ 

disp_init;  /*  set  by  the  Data  Handler  after  new  display  is  */ 

/*  is  initialized  */ 

dh_halt_ack;  /*  Data  Handler  halt  acknowledge  flag  */ 

disp_nbr;  /*  number  of  active  displays  in  a workstation  */ 

dh_ pid;  /*  process  id  of  Data  Handler  */ 

gdr_get_next ; /*  YES,  if  GDR  get  next  command  */ 

upd_retrieval;  /*  YES,  for  retrieval  qualifiers  update  */ 

nbr— streams;  /*  number  of  active  streams  */ 

data_ shm_id;  /*  shared  memory  Id  for  the  Data  segment  */ 

wex_mode;  /*  set  to  OPS  if  in  operational  mode  */ 

alarm [MAX_POS_ID] ; /*  set  to  ON  if  audible  alarm  is  enabled  for*/ 

/*  w/s  within  a position  Id  */ 

pos_id[MAX_POS_ID] [14] ; /*  pos.  id  for  each  w/s  alarm  flag  */ 

nbr_pos [MAX_POS_ID] ; /*  number  display  managers  to  pos.  Id  */ 

log_enable;  /*  Enable/Disable  all  DM  logging  flag  */ 


struct  plot_info  { 

char  act_plots  [MAX_PLOTS]  [DNAME_LEN]  ; /*  list  of  all  the  active  plots*/ 

char  stop_plot  [MAX_PLOTS]  [DNAME_LEN] ; /*  list  of  all  plots  to  stop  */ 

char  unvjplot [DNAME_LEN] ; /*  universal  plot  file  to  update  */ 

long  plot— cycles [MAX_PLOTS] ; /*  number  of  plot  data  cycles  in  plot  */ 

} ; 


/* 

* PBI  Display  Definition  Structures  for  Shared  Memory 
*/ 


struct  pbi_changes  { 


short 

pbi_chg_ndx; 

/* 

index  of  the  pbi 

to  be  changed 

*/ 

short 

pbi_ act  ive_  flag; 

/* 

new  value  of  the 

active  flag  for  the  pbi 

*/ 

short 

pbi_ feedback_flag; 

/* 

new  value  of  the 

fdbk  indicator  for  pbi 

*/ 

In- 
struct pbi_shm  { 

short  disp_num; 

short  number_of_changes  ; 

struct  pbi_changes  pbi_change [ 128] ; 


struct  pbi_redraw_rect  ( 
double  ulx; 


*/ 


/*  upper  left  x of  the  rect  to  be  drawn 


double 

double 

double 


} ; 


uly; 

lrx; 

iry; 


dispJi 


/*  upper  left  y of  the  rect  to  be  drawn 
/*  lower  right  x of  the  rect  to  be  drawn 
/*  lower  right  y of  the  rect  to  be  drawn 


*/ 

*/ 

*/ 


struct  dm_shmemory  { 
struct  flags 
struct  disp_info 
short 

struct  stream_info 

struct  plot_info 

Window 

Display 

Widget 

char 

GC 

XGCValues 
struct  ppl_record 
struct  pbi_shm 
struct  pbi_redraw_ 

} ; 


/* 

/* 

/* 

/* 

/* 

/* 


process; 

display [MAX_DISP ] ; 
dmj>id[MAX_DISP]  ; 
strm[MAX_FLTS]  ; 
plots; 

window [MAX_DISP] ; 
*xdisplay [MAX_DISP] ; /* 
shell [MAXJ5ISP ] ; /* 

display_name [MAX_DISP] 
gc[MAX_DISP] ; 
gc_val [MAX_DISP] ; 
ppl_ recs [NUMJ3DR] ; /* 

pbi_shmemory;  /* 

rect  pbi_redraw;  /* 


structure  containing  halt/count  flags*/ 
information  used  in  display  proc 
pid's  for  all  the  active  manager's 
stream  information 
plot  information 
window  information 
X display  information 
X display  widget  */ 

[10];  /*  X display  name 


ppl  record  information 
changes  to  PBIs 

area  to  be  redrawn  for  pbi  updates 


*/ 

*/ 

*/ 

*/ 

*/ 

V 


/ 


*/ 

*/ 

*/ 


struct  file_info 
char 
char 
short 
char 

} ; 


{ 


name  [15] ; 
desc  [33] ; 
inverse_f lag; 
act_flag[9] ; 


/*  display  file  name 
/*  display  description 
/*  display  select  inverse  video  flag 
/*  plot  active/inactive  flag 


*/ 

*/ 

*/ 

*/ 


* Structure  for  universal  plot  msid  definitions. 
*/ 


struct  msid 
char 
char 
char 
char 
short 
char 
short 
char 
char 
char 
short 

}; 


l_record  { 


/* 

★ 

*/ 


msid_name [MSID_LENGTH+1] ; 

source [4] ; 

sample [4] ; 

axis [2] ; 

axis_nbr ; 

plot_msid[MSID_LENGTH  + 1]; 
plot_axis; 
plot_type[2] ; 
plot_source [4] ; 
plot_sample  [4] ; 
plot  indx; 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

I* 

/* 

/* 

f* 


actual  msid  name 
msid  data  source 
sample  nbr  for  this  msid 
x or  y axis 

axis  nbr  to  plot  this  msid  on 
msid  to  plot  against 
axis  nbr  of  plot  msid 
axis  type  of  plot  msid 
source  of  the  plot  msid 
plot  msid  sample  nbr 
plot  msid  index 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

V 

*/ 

*/ 

*/ 


PBI  Display  Definition  Structure  for  Display  Manager  PBI  Internal  Processes 


struct  pbi_def  { 
short 

pbi_disable; 

/* 

double 

pbi_ul_x; 

/* 

double 

pbi_ul_y; 

/* 

double 

pbi_lr_x; 

/* 

double 

Pbi_lr_y; 

/* 

int 

pbi_ul_x_ p; 

/* 

int 

pbi_ul  _y_p; 

/* 

int 

pbi_lr_x_p; 

/* 

int 

pbi_lr  _y_p; 

/* 

short 

pbi_bklght; 

/* 

short 

pbi_mesg_len; 

/* 

char 

*pbi_me  s s age ; 

/* 

Lower  Left 
Lower  Left 
Upper  Left 
Upper  Left 
Lower  Left 
Lower  Left 


for  PBI  hot  box 
for  PBI  hot  box 
for  PBI  hot  box 
for  PBI  hot  box 
for  PBI  hot  box 
for  PBI  hot  box 
for  PBI  hot  box 


coordinate 
coordinate 
coordinate 
coordinate 
coordinate 
coordinate 
coordinate  for  PBI  hot  box 


Pbi  backlight  feedback  preset  opt:  0,  1,  3 
Message  length  for  local  command  PBIs  0~none 
Message  for  local  command  PBIs 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

★ 

*/ 

*/ 

*/ 

*/ 

*/ 


short  pbi_dest_ len;  /*  Destination  length  for  PBI  record  */ 
char  *pbi_dest;  /*  Destination  of  the  PBI  record  entry  */ 
short  pbi_dep— msid_cnt;  /*  Number  of  Dependent  group  MSID's  */ 
char  *pbi_dep_msids;  /*  Pointer  to  arrays  of  Dependent  Group  MSID's  */ 
short  pbi_cmd_cnt;  /*  Number  of  command  structures  */ 
struct  pfkey__defs  *pbi_cmd_ptr ; /*  Pointer  to  array  of  command  structures  */ 


In- 
struct pbi_msid_rec  { 

char  pbi_msid [MSID_LENGTH] / /*  Entry  for  PBI  MSIDs  for  Dependent  Groups  */ 

In- 
struct limit_file  { 

struct  limit— file  *next_ptr; 
struct  limit_file  *prev_ptr; 
char  f ile_name  [DNAME_LEN]  ; 

}; 


ds_stub.h 

/*************************★**************************************************** 

* MODULE  NAME:  ds_stub.h 

* 

* This  is  the  header  file  for  the  stubbed  versions  of  ds__connect, 

* ds__getkeys,  ds_getparms. 

* 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

******************************************************************************y 


/* 

* Constants 
V 


♦define  FAKE  KEY  7 


♦define  EVN 
♦define  MTM 
♦define  GDR 
♦define  NDM 
♦define  PTM 
♦define  PPM 
♦define  USR 


1 

2 

3 

4 

5 

6 
7 


♦define  INVALID 
/*  ^define  md_fn 
♦define  md_fn 
♦define  md_fn_new 
♦define  NUM_SRCS 
♦define  MAX  DEF 


-1 

"nvdef " */ 
"new_radef " 
"new_mdef " 

1 

1050 


♦define  MAX_FLOAT 
♦define  HALF_MAX_FLOAT 
♦define  MAX_LONG 
♦define  HALF_MAX_LONG 
♦define  MAX_DBL 
♦define  HALF  MAX  DBL 


40000.0 

20000.0 
64000 
32767 

40000.0 

20000.0 


♦define  DATA  DIR 


”/WEX/Dataf iles /display/ SWRITEST" 


/* 

* Structures. 

*/ 

struct  mdef_node  { 
char  msid [20]  ; 
long  length; 
int  attribute; 
int  low_scale; 
int  high^scale; 
struct  mdef_node  *next; 

}; 


pfjcey.h 


* MODULE  NAME:  pf_key.h 


★ 

* This  header  defines  the  structure  used  to  keep  track  of  a command  (and 

* function  keys) . 

* 


★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

★ Mark  D.  Collier  - Software  Engineering  Section 

★ Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 

a*****************************************************************************/ 


♦define  P FKE Y__COUNT  28 
/* 

* This  structure  contains  information  used  to  cause  limit  changes. 
*/ 


struct  new_ 

^limits  { 

double 

ops_ll; 

/* 

int 

ol_alrm; 

/* 

int 

ol_adv; 

/* 

double 

ops_ul; 

/* 

int 

oh_alrm; 

/* 

int 

oh_adv; 

/* 

double 

crit_ll; 

/* 

int 

cl_alrm; 

/* 

int 

cl_adv; 

/* 

double 

crit_ul; 

/* 

int 

ch_alrm; 

/* 

int 

ch_adv; 

/* 

char 

msid [11] ; 

/* 

char 

arc [ 4] ; 

/* 

char 

option [4] ; 

/* 

int 

flag; 

/* 

i* 

/* 

new  operational  lower  limit  */ 

ops  low  alarm  flag  */ 

ops  low  advisory  flag  */ 

new  operational  upper  limit  */ 

ops  high  alarm  flag  */ 

ops  high  advisory  flag  */ 

new  critical  lower  limit  */ 

crit  low  alarm  flag  */ 

crit  low  advisory  flag  */ 

new  critical  upper  limit  */ 

crit  high  alarm  flag  */ 

crit  high  advisory  flag  */ 

MS ID  on  which  to  change  limits  */ 

MSID  source  where  limits  will  change  */ 
option  for  the  EVN  and  PPM  data  sources  */ 

0 ■ change  operational  limits  */ 

1 - change  critical  limits  */ 

2 - change  both  */ 


} ; 

/* 

* This  structure  contains  information  for  each  PF  key  binding. 
*/ 


struct  pfkey_defs  { 


int 

key_no ; 

/* 

int 

prompt_f lag; 

/* 

int 

valid_f lag; 

/* 

int 

defined; 

/* 

int 

func_no; 

/* 

char 

disp_name [DNAME_LEN] ; 

/* 

char 

ovr__name  [DNAME_LEN]  ; 

/* 

struct 

new_limits  limit^change; 

/* 

long 

upd_rate; 

/* 

long 

rate; 

/* 

int 

action; 

/* 

float 

factor; 

/* 

char 

*mesg_ptr; 

/* 

} ; 


PF  key  number  */ 
prompt  flag  for  pf  keys  */ 
Set  to  0 for  valid,  -1  for  invalid  */ 
set  to  0 if  not  defined  */ 
number  pertaining  to  the  function  */ 
display,  or  limit  group,  or  plot  file  */ 
plot  overlay  file  name  */ 
pointer  to  list  of  new  limit  values  */ 
display  update  rate  in  milliseconds  */ 
display  update  rate  in  seconds  */ 
set  to  one  if  start  limit  group  or  plot  */ 
zoom  factor  */ 
message  for  pbi  external  commands  */ 


user_inter.h 


* MODULE  NAME:  user  inter. h 


* Define  the  types  of  the  user  interface  library  functions  used  to  create 

* the  various  * types  of  widgets. 

* 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 


* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


extern  Widget  tui_create_app_shell  ( ) , 
tui_create_pushbutton  ( ) , 

tui_create_cascade  ( ) , 

tui_create_f ileselector  ( ) , 

tui_create_form  { ) , 

tui_create_label  ( ) , 

tui_create_rb  { ) , 

tui_create_sel  ( ) , 

tui_create_separator  ( ) , 

tui_create_scale  ( ) , 

tui_create_text  ( ) , 

tui_create_toggle  ( ) , 

tui_create_trans_shell  ( ) , 

tui__display_me3sage  ( ) ; 

*tui_radio_get_value  ( ) ; 


char 


DDpbi_updt.c 


* MODULE  NAME:  DDpbi_updt 


* 

* This  function  process  requests  to  reconfigure  or  change  backlighting 

* of  a pbi  button. 


* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Scott  Zrubek  - Ford  Aerospace  Corporation/Houston 

★ 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************/ 


♦include  <stdio.h> 
♦include  <wex/EXmsg. h> 
♦include  Cconstants .h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 


extern  struct  dm_shmemory  *Dm_Address; 


/*  Ptr  to  DM  shared  memory. 


int  DDpbi_updt  (disp_num) 

short  disp_num;  /*  Effective  display  number. 

{ 


struct  pbi_changes  *pbi_chg_ptr ; 

struct  pbi_redraw_rect  redraw_rect; 


/*  Pointer  to  change  flags. 

/*  Rectangle  for  redraw  to  redraw. 


int 


i,  /*  Loop  counter. 

num_of_changes;  /*  Number  of  phis  changed. 


char 


*calloc () ; 


/*  Get  malloc  as  a pointer. 


D (print f ("START  DDpbi_updt\n" ) ) ; 

/* 

★ Copy  all  of  the  necessary  pbi  shared  memory  information 
*/ 


num_of_changes  • Dm_Address->pbi_shmemory  .number_of_changes; 

pbi_chg_ptr  - (struct  pbi_changes  *) 

calloc ( (unsigned) num_of_changes,  sizeof (struct  pbi_changes) ) 

for  (i  - 0;  i < num_of_changes;  i++)  { 

pbi_chg_ ptr [i] .pbi_chg_ndx  - 

Dm_Address->pbi_shmemory .pbi_change [i] .pbi_chg_ndx; 
pbi_chg_j>tr  [i]  .pbi_active_f  lag  - 

Dm_Address->pbi_shmemory . pbi_change [i] ,pbi_act ive_f lag; 
pbi_chg_ptr [i] . pbi_feedback_f lag  - 

Dm_Address->pbi_ shmemory  . pbi_change  [i]  .pbi_feedback_f lag; 


} 


DDpbi_updt.c 

* Reset  shared  memory  flags 
*/ 

redraw_rect  - Dm_Address->pbi_redraw; 

Dm_Address->pbi_shmemory .number_of_changes  - 0; 
Dm_Address->pbi_shmemory . disp_num  " -1; 

pbi_config(disp_num,  redraw_rect,  pbi_chg_ptr,  num_of_changes) ; 

/* 

* Normal  return. 

*/ 

Dtprintf ("END  DDpbi_updt\n") ) ; 
return  ( 0 ) ; 


add_pt.c 


/a***************************************************************************** 

* MODULE  NAME : add_pt . c 

♦ 

★ This  function  returns  the  value  of  the  function  defined  for 

★ the  limit  or  nominal  line  for  the  input  value. 

★ 

* 

★ ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

★ Tod  Milam  - Ford  Aerospace  Corporation/Houston 

★ 


* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough  - Software  Engineering  Section 

★ Data  Systems  Department 

* Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 


♦include  <math.h>  /*  to  be  able  to  use  pow  */ 


float  add_pt  (xnum,  coeffs,  poly_num) 


float  xnum; 

double  coeffs  [6]; 

int  poly__num; 


float 

ynum  ■ 0 ; 

/* 

the  summations  variable 

*/ 

int 

count ; 

/* 

a general  purpose  loop  variable 

*/ 

/* 

* Loop  to 

sum  all  of 

the  coefficient 

values 

*/ 

for  (count  - 0;  count  < poly_num;  count++)  { 

if  (xnum  *-  0.0  &&  (poly_num  - count  -1.0)  ■■  0) 
ynum  +-  coeffs [count ] ; 


} 


else  if  (xnum  !«  0.0) 

ynum  +-  coeffs [count ] 

* pow ( (float)  xnum,  (float)  (poly_num  - count 


1.0)  ) ; 


/* 

* Return  the  summed  value. 
*/ 


> 


return  (ynum)  ; 


cb_cmd.c 

/a***************************************************************************** 

* MODULE  NAME:  cb_cmd.c 

* 

* This  callback  function  handles  menu  and  function  key  generated  commands.  It 

* calls  the  (command)  function  to  actually  handle  the  command. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************^ 


♦include  <stdio.h> 

♦include  <memory.h> 

♦include  <X11/Intrinsic .h> 
♦include  <Xll/StringDefs .h> 
♦include  <X11/Shell .h> 
♦include  <constants . h> 
♦include  <disp.h> 

♦include  <pf_key.h> 

♦include  <wex/EXmsg.h> 


extern  struct  pfkey_ defs 


Act_Pfkeys [] , 
Current  Com; 


/*  Contains  the  set  of  act.  function  keys.  */ 
/*  Contains  the  current  command.  */ 


/*  ARGSUSED  */ 

XtCallbackProc  cb_cmd  ( w,  closure,  calldata  ) 

Widget  w;  /*  Set  to  widget  which  in  which  callback  originated. 

caddr_t  closure,  /*  Callback  specific  data.  Set  to  desired  command. 

*calldata;  /*  Widget-specific  information. 

{ 

D(printf ("START  cb_cmd\n") ) ; 

/* 

* If  the  closure  value  is  greater  than  zero,  then  the  command  was  generated 

* via  a menu.  In  this  case,  save  the  command,  set  the  prompt  flag  to  NO  and 

* call  (command)  to  actually  process  the  command. 

*/ 


*/ 

*/ 

*/ 


if  ( (int) closure  > 0 ) ( 

Current^ Com. func_no  - (int ) closure; 
Current_Com.prompt_f lag  - NO; 
command  ( YES  ) ; 


/* 

* Otherwise  the  command  was  generated  from  a function  key.  If  the  command 

* does  not  need  to  be  verified  or  if  it  does  and  the  user  verified  it,  copy 

* the  command  information  into  the  current  command  structure  and  then  call 

* (command)  to  actually  execute  the  command. 

*/ 


} else  { 

if  ( Act_Pfkeys [- (int) closure] .prompt_f lag  — 0 j| 
pf_chk  ( &Act_Pfkeys [- (int) closure]  ) ) ( 
memcpy  ( (char  *) &Current_Com,  (char  *) &Act_Pf keys [- (int ) closure] , 
sizeof (struct  pfkey_defs)  ); 
command  ( NO  ) ; 


Normal  return. 


D (printf ("END  cb_cmd\n") ) ; 
return; 


cb_exp_plot.c 


* MODULE  NAME:  cb_expose_plot 


* This  callback  function  is  responsible  for  keeping  track  of  all 

* expose  events  generated  for  plots.  When  the  expose  event  count 

* reaches  zero,  all  plot  axes,  grid  lines,  labels,  and  tick  marks, 

* and  plot  data  lines  are  redrawn. 

* 


* Expose  events  occur  upon  window  creation,  when  an  obscuring  window  is 

* removed  or  moved  to  the  back  of  the  window  stack,  and  when  the  user 

* uses  the  scrolled  window  to  pan  through  the  image. 

* 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

it 


* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


# include 
# include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 


<stdio.h> 
<X11/Intrinsic .h> 
<f cntl .h> 
<unistd.h> 
<Xm/Xm.h> 
<Xm/DrawingA . h> 
<constants .h> 
<disp,h> 

<DDplot . h> 
<wex/wex.h> 


extern  struct  dm_shmemory  *Dm_Address; 
extern  struct  plot_ptrs  *Plot_info_ptr; 
extern  short  Nbr_of jplots; 

extern  short  End  of  file; 


/*  ptr  to  DM  shared  memory  */ 
/*  ptr  to  list  of  plots  */ 
/*  number  of  plots  in  plot  list  */ 
/*  plot  data  file  EOF  flag  ★/ 


/*  ARGSUSED  */ 

XtCallbackProc  cb_expose _plot ( widget,  closure,  calldata) 


Widget  widget; 

/* 

widget  in  which  callback  originated 

*/ 

caddr_t  closure; 

/* 

callback  specific  data  (display  number 

*/ 

XmDrawingAreaCallbackStruct 

*calldata; 

/* 

widget-specific  data 

*/ 

XExposeEvent  ^expose ; 

/*  expose  event  structure 

*/ 

struct  plot_ptrs  *plot_ptr; 

/*  ptr  thru  plot  list 

*/ 

int  i ; 

/*  loop  counter 

*/ 

short  disp_num; 

/*  effective  display  number 

*/ 

D (print f ( M START 


cb_expose_plot\n") ) ; 


/* 

If  another  expose  event  is  pending,  exit  from  function. 


cb_exp_plot.c 

expose  ■ &calldata->event->xexpose; 

if  ( expose->count  !-  0 ) 
return; 


* Extract  display  number  from  the  arg  list. 

*/ 

disp_num  - (short ) closure; 

/* 

* Locate  the  plot  associated  with  this  expose  event 
*/ 


i - 0; 

plot_ptr  - Plot_infojptr; 
while  (widget  !-  plot_ptr->draw_win)  { 
plot_ptr  - Plot^infojtr  + i; 
i++; 

} 


/* 

* If  an  associated  plot  is  found,  redraw  the  plot  axes, 

* grid  lines,  labels,  and  tick  marks.  If  the  plot  has 

* been  active,  rewind  the  plot  data  file  and  redraw  the 

* plot  data  lines . 

*/ 


if  (widget  — plot_ptr->draw__win)  { 

draw_plt (disp_num,  plot_ ptr,  expose->x,  expose->y, 

expose->width,  expose->height ) ; 


if  (plot_ ptr->prev_act_f  lg  « YES)  ( 


/* 

* Reset  all  first  point  flags. 

*/ 

for  (i-0;  i<plot_ptr->header->actual_msids;  i++) 

(plot— ptr->msids  + i) ->f irst _pt  ■ YES; 

/* 

* Rewind  plot  data  file  to 

* beginning  of  plot  data. 

*/ 

lseek (plot^ ptr->plot_fp,  0,  SEEK_SET) ; 
lseek (plot_ptr->plot_fp, 

80  + (plot_ptr->header->msid_ num  * 24),  SEEK_SET) ; 

/* 

* Reset  seconds  elapsed  to  0 (only  meaningful 

* for  time  plots) . 

*/ 

plot_ ptr->seconds_elapsed  - 0; 

/* 

* Initialize  end_of_file  flag  and  call  proc_ plt()  to  plot 

* data  points.  Continue  calls  to  proc_ plt()  until  EOF,  signalling 


* 


* 

*/ 


cb_exp_plot.c 


all  data  points  plotted.  Check  for  EOF  necessary  since 
proc_ pit ( ) and  subordinate  plot_msid()  may  exit  prematurely  due 
to  an  out-of-scale  data  point. 


End  of  file  - NO; 


} 


while  (End_of_file  " NO) 

proc_plt  (disp_num,  plot_ptr)  ; 


) 

D (print  f ( "END  cb_expose_plot \n" ) ) ; 
return; 


/*★★*★*★★★*★**★ 
* MODULE  NAME: 


cb_expose.c 

cb_expose_display 


* This  callback  function  is  responsible  for  keeping  track  of  all  current 

* expose  events  and  the  exposed  rectangle  coordinates  for  the  base  display 

* window  (expose  events  on  plots  are  handled  by  cb_expose_plot) . When  the 

* expose  event  count  reaches  zerof  this  function  calls  redraw  for  each 

* exposed  rectangle . 


* 

★ Expose  events  occur  upon  window  creation,  when  an  obscuring  window  is 

★ removed  or  moved  to  the  back  of  the  window  stack,  and  when  the  user 

★ uses  the  scrolled  window  to  pan  through  the  image.  This  function 

★ collects  all  exposed  rectangles  and  only  refreshes  the  required 

★ portions  of  the  image. 


* DEVELOPMENT  NOTES: 

* 

* o This  routine  keeps  track  of  all  exposed  rectangle  coordinates. 

* However,  in  its  current  implementation,  it  will  keep  track  of  expose 

* area  coordinates  for  a single  display  only. 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
************************************************************ ******************/ 


♦include  <stdio.h> 

♦include  <X11/Intrinsic .h> 
♦include  <Xm/Xm.h> 

♦include  <Xm/DrawingA.h> 
♦include  cconstants .h> 
♦include  <disp.h> 

♦include  <wex/wex.h> 


extern  struct  dm_shmemory  *Dm_Address; 


/*  ptr  to  DM  shared  memory 


*/ 


/*  ARGSUSED  */ 

XtCallbackProc  cb_expose_display ( widget,  closure,  calldata) 

Widget  widget;  /*  widget  in  which  callback  originated  */ 

caddr_t  closure;  /*  callback  specific  data  (display  number)  */ 

XmDrawingAreaCallbackStruct 

♦calldata;  /*  widget-specific  data  */ 


static  int  index 

** 

o 

N 

/* 

static  XRectangle 

rects  [50] ; 

/* 

XExposeEvent  *expose; 

/* 

short 

disp_num; 

/* 

number  of  outstanding  expose  areas  */ 
coord,  of  outstanding  expose  areas  */ 
ptr  to  current  expose  event  structure  */ 
disp  ♦ extracted  from  cb  arg  list  */ 


D (print f ("START  cb_expose_di splay \n" ) ) ; 


cb__expose.c 


Extract  expose  event  structure  address  from  the  callback  data 
and  save  the  expose  area  coordinates  in  the  save  array. 


expose  ” &calldata->event->xexpose; 

if  (expose->width  ~0||  expose->height  --  0) 
return; 

rects [index] .x  - expose->x; 

rects [index] .y  - expose->y; 

rects [index] .width  - expose->width; 
rects [index] .height  - expose->height; 
index++; 


If  another  expose  event  is  pending,  exit  from  function 
to  prevent  extraneous  screen  refreshes. 


if  ( expose->count  !-  0 ) 
return; 


Extract  display  number  from  the  arg  list. 
disp_num  - (short) closure; 


Clear  each  exposed  rectangle  and  redraw  its  contents 


for  (;  index;  index — ) ( 

XClearArea (Dm_Address->xdisplay [disp_num] , XtWindow (widget) , 
rects [index-1] .x,  rects [index-1] .y, 
rects [index-1] .width,  rects [index-1] .height.  False) 

redraw (disp_n urn,  rects [index-1] .x,  rects [index-1] .y, 

rects [index-1] .x  + rects [index-1] .width  - 1, 
rects [index-1] .y  + rects [index-1] .height  - 1) ; 


D (printf ("END  cb_expose_display\n") ) ; 
return; 


* MODULE  NAME:  cb_help.c 


★ 

* This  function  displays  a help  popup.  The  popup  is  non-transient  and  may 

* remain  displayed  as  long  as  needed  by  the  user . 

* 


* 

* INTERNAL  FUNCTIONS: 

★ 

★ o cb— remove  - Callback  used  to  delete  the  help  popup. 

* 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


* 


* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 


* Southwest  Research  Institute 

************************************************************ 


♦include  <stdio.h> 

♦include  <X11/Intrinsic .h> 
♦include  <Xll/StringDe£s . h> 
♦include  <X11/Shell.h> 
♦include  <Xm/Xm.h> 

♦include  <Xm/Form.h> 
♦include  <user_inter .h> 
♦include  <constants .h> 
♦include  <wex/EXmsg .h> 


extern  Widget  Top; 


/*  The  top  level  widget  used  as  the  help  parent  */ 


static  char  *help_f iles [HELP_MAX]  - { 
"enable_msg" , 

"f light_data", 

"screen_du mp", 

"edit_colors", 

"exit", 

"select_ disp" , 

" r emo  ve_di  s p " , 

”f reeze_disp ", 

"update_rate" , 

"unlatch_ddd" , 

"unlatch_all" , 

"change_gdr", 

"enable^ alarm s", 

"enable_pbis" , 

"enable_log", 

"enable_all_log" , 

"list_limits", 

" change_l  ixni  t s " , 

"list_plots", 

"disp_ovl", 

"save_ovl" , 

"def__univ", 

"zoom"  , 

"reset_zoom", 

"set_zoom" , 

"keys"  }; 


cb_help.c 

/*  ARGSUSED  */ 

XtCallbackProc  cb_help  ( w,  closure,  calldata  ) 


Widget 

w; 

/* 

Set  to  widget  which  in  which  callback  originated. 

caddr_t 

closure^ 

/* 

Callback  specific  data.  Set  to  desired  command. 

*/ 

^calldata; 

/* 

Widget-specific  information . 

*/  ' 

register  int 

^ r 

size  * 0; 

Widget 

shell, 

form; 

Arg 

args [10]  ; 

XtCallbackProc 

cb_remove  ( ) 

FILE 

*fp; 

char 

^buffer, 
string [50] , 
*malloc  ( ) ; 

D (print f ("START  cb  help\n") ) ; 

/* 

* Output  an  error  if  an  invalid  help  index  was  passed. 

*/ 

if  ( (int) closure  < 0 II  (int) closure  > HELP_MAX-1  ) { 

tui_msg  ( M_YELLOW,  "Help  called  with  invalid  help  text  index"  ) ; 
return; 

} 

/* 

* Allocate  buffer.  Output  an  error  if  this  fails. 

*/ 

if  ( ( buffer  - malloc  ( HELP_BUF_SIZE  ) ) — NULL  ) { 

tui_msg  ( M YELLOW,  "Could  not  allocate  buffer  for  file"  ) ; 

return; 

} 

/* 

* Attempt  to  open  the  help  file.  Output  an  error  if  this  fails 

*/ 

Strcpy  ( string,  HELP_DIR  ) ; 

strcat  ( string,  help_files [ (int) closure]  ); 

if  ( ( fp  - fopen  ( string,  "r"  ) ) NULL  ) { 

tui_msg  ( M_YELLOW,  "Could  not  open  requested  help  file"  ) ; 
return ; 

1 

/* 

* Read  help  file  into  buffer.  Terminate  the  buffer  with  a NULL. 

* / 

while  ( size  < HELP BUF_SIZE  S&  ( * (buf fer+size)  * fgetc  ( fp  ) ) !»  — l ) 

size++; 


* (buffer+size) 


NULL; 


/* 

* Close  the  file. 
*/ 


fclose  ( fp  ) ; 


* Create  the  shell  widget,  the  main  form,  the  text  area,  a separator,  and 

* a push  button  widgets  to  allow  the  popup  to  be  removed.  Note  that  the 

* push  button  causes  a callback  to  the  (cb_remove)  function  which  in  turn 

* removes  the  popup . 

*/ 


/* 

* 

*/ 


/* 

* 

*/ 


i “ 0; 

shell  - tui _create_trans_shell  < "Display  Manager  Help",  args,  x ); 


i - 0; 

form  - tui_create_f orm  ( shell,  "form",  TRUE,  args,  x ); 
i - 0; 

tui  create  text  ( form,  "text",  buffer,  0,  XmMULTI_LINE_EDIT,  FALSE,  args. 


i - 0; 

X t Ma nageCh i Id  ( XmCreateSeparator  ( form,  "sep",  args,  i ) ); 

i - 0; 

tui  create_pushbutton  ( form,  "Done",  cb_remove,  (caddr_t) shell,  args,  i ) 


Realize  all  widgets,  popup  the  shell,  and  set  the  color  map. 


XtRealizeWidget  ( shell  ) ; 
XtPopup  ( shell,  None  ) ; 
set_cmap  ( shell  ) ; 

Free  the  text  buffer. 


free  ( buffer  ) ; 


/* 

* Normal  return . 
*/ 


D(printf ("END  cb_help\n") ) ; 
return; 


cb_help.c 


Z*******************************************************************^^^,^^^ 

* MODULE  NAME:  cb_remove 

★ 

* This  function  removes  the  help  popup.  It  is  passed  the  shell  widget  which 

* is  the  parent  of  the  widget  hierarchy  to  remove. 

**********************************************************w***#^^^^^^^^ 


/*  ARGSUSED  */ 

static  XtCallbackProc  cb_remove  { w,  closure,  calldata  ) 

Widget  w;  /*  Set  to  the  widget  which  initiated  this 

* callback  function. 

*/ 


( 

/* 

* 

*/ 


caddr_t  closure,  /*  Callback  specific  data.  This  parameter 

* is  set  to  the  shell  of  the  help  popup. 

*/ 

♦calldata;  /*  Specifies  any  callback-specific  data  the 

* widget  needs  to  pass  to  the  client. 

* / 

D (print f ("START  cb_remove\n") ) ; 

Destroy  the  shell  which  is  the  parent  of  the  help  popup. 


XtDestroy Widget  ( (Widget) closure  ); 

/* 

* Normal  return. 

*/ 


D (printf ("END  cb_remove\n") ) ; 
return; 


cb_pbi.c 


* MODULE  NAME:  cb_pbi . C 

* 


* This  callback  function  is  called  when  the  user  selects  the  left  mouse  but- 

* ton  in  the  display  window.  This  event  corresponds  to  selection  of  a PBI. 

* If  a PBI  is  defined  at  the  coordinates  of  the  cursor  where  the  button  was 

* selected,  the  PBI  will  be  executed  (if  enabled) . 

* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio .h> 

<X11/ Intrinsic . h> 
<Xll/StringDef s .h> 
<X11/Shell.h> 
<Xm/Xm.h> 
<Xm/DrawingA . h> 
<constants . h> 
<disp.h> 

<pf_key . h> 
<wex/EXmsg . h> 


extern  struct  pfkey_defs 

Act_Pfkeys  [ ] ; 

/* 

extern  short 

Pbi_Hot_Ndx, 

/* 

Pbi_Num, 

/* 

Pbi  Disable; 

/* 

Array  of  active  function  keys.  */ 

Pointer  to  the  current  PBI.  */ 
Number  of  PBI's.  */ 
Flag  indicating  if  PBI's  are  active.  */ 


/*  ARGSUSED  */ 

XtCallbackProc  cb_pbi  ( w,  closure,  calldata  ) 

Widget  w;  /*  Set  to  widget  which  in  which  callback  originated. 

caddr_ t closure;  /*  Callback  specific  data. 

XmDrawingAreaCallbackStruct 

*calldata;  /*  Widget-specific  information. 


{ 


XButtonEvent  *button; 


D (print f ("START  cb_ pbi\n") ) ; 

/* 

* If  the  event  was  a button  press,  return.  The  only  events  processed  are 

* button  releases . 

*/ 


button  - &calldata->event->xbutton; 
if  ( button->state  »-  0 ) 
return; 


* If  PBI's  are  disabled  or  if  there  are  no  PBI's  active  in  the  display, 

* output  the  appropriate  warning. 

*/ 


*/ 

*/ 


*/ 


if  ( Pbi_Disable  ) { 

tui_msg  ( M_YELLOW,  "Input  to  PBI's  Disabled"  ); 
return; 

} else  if  ( Pbi_Num  --  0 ) { 

tui_msg  ( M_YELLOW,  "No  PBI's  are  active”  ); 
return; 

} 

/* 

* PBI's  enabled  and  present,  so  if  the  coordinates  of  the  events  are  with 

* in  the  bounding  box  of  any  PBI,  call  (pbi_cmd)  to  execute  the  command. 
*/ 

if  ( Pbi_Hot_Ndx  - pbi_hot  ( button->x,  button->y  ) ) 
pbi_cmd  ( ) ; 

/* 

* Normal  return. 

*/ 

D(printf ("END  cb_pbi\n") ) ; 
return ; 


cb  zoom.c 


★ MODULE  NAME:  cb_zoom.c 

★ 


* This  function  is  added  as  a callback  routine  to  all  active  plots  by  zoom() 

* on  the  effective  display  whenever  the  Zooin  Display  or  Zoom  Reset  command  is 

* called.  This  function  removes  the  callbacks  added  by  zoom(),  restores  the 

* cursor  to  its  normal  mode,  does  all  the  calculations  necessary  to 

* effect  the  zoom  or  zoom  reset  and  calls  the  function  to  redraw  the  plot . 


* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* K.  Noonan  - Ford  Aerospace  Corporation 

* 


★ MODIFIED  FOR  X WINDOWS  BY: 

★ 

★ Ronnie  Killough  - Software  Engineering  Section 

★ Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 

a*****************************************************************************/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio .h> 

<fcntl . h> 
<unistd.h> 

<X11/ Intrinsic . h> 
<Xll/cursorfont .h> 
<Xm/Xm.h> 
<constants . h> 

<disp . h> 

<DDplot . h> 
<wex/EXmsg.h> 


extern 

Widget 

Top; 

/* 

top-level  widget 

*/ 

extern 

struct 

dm_shmemory  *Dm_Address ; 

/* 

ptr  to  DM  shared  memory 

*/ 

extern 

struct 

plot_ptrs  *Plot_info_ptr; 

/* 

ptr  thru  plot  records 

*/ 

extern 

float 

Zoom_f actor ; 

/* 

current  zoom  factor 

*/ 

extern 

short 

Nbr_of  jplots; 

/* 

♦ of  plots  in  display 

*/ 

extern 

short 

End  of  file; 

/* 

EOF  flag  for  plot  data  file 

*/ 

XtCallbackProc 

cb_zoom  (widget, 

closure,  calldata) 

Widget 

widget ; 

/* 

widget  in  which  callback  originated 

caddr_t 

closure; 

/* 

callback-specific  data  (disp_num) 

XmDrawingAreaCallbackStruct 

*calldata; 

/* 

widget -specific  data 

*/ 

*/ 


*/ 


XButtonEvent  ^button; 

XPoint  focus; 


/*  container  for  button  event  */ 
/*  zoom  focus  point  */ 


*plot_ptr ; 
*tmplt_ptr; 
*axis— ptr; 


struct  plot_ptrs 
struct  plot_ tmplt 
struct  axis  info 


/*  ptr  thru  plot  records 
/*  ptr  to  plot  positional  info 
/*  ptr  thru  x/y  axes  records 


*/ 

*/ 

*/ 


double 

wc_base; 

/* 

zoomed  wrld  ccord 

base  size 

*/ 

int 

i; 

/* 

loop  control 

*/ 

short 

disp_num. 

/* 

effective  display 

number 

V 

command; 

/* 

zoom  (17)  or  zoom 

reset  (18) 

*/ 

D(printf ("START  cb_zoom\n" ) ) ; 


/* 

* If  the  event  was  a button  press,  return.  The  only  events  processed  are 

* button  releases. 

*/ 


button  - &calldata->event->xbutton; 
if  ( button->state  mm  0 ) 
return; 


/* 

* Extract  display  number  from  arg  list 

* and  determine  which  zoom  command  to  process . 
*/ 


disp_num  ■ (short) closure; 

command  “ Dm_Address->display [disp_num] .dd_zoom; 


/* 

* Remove  the  plot  callbacks . 

*/ 

for  (i-0;  i<Nbr_of_plots;  i++)  { 
plot_ptr  - Plot_info_ptr  +i; 

Xt RemoveCa llback ( plot_pt  r->draw_win , 

XmNinputCallback,  cb_zoom,  disp_num) ; 


/* 

* Restore  the  cursor  to  normal 
*/ 


XDef ineCursor  (XtDisplay (Top) , XtWindow(Top) , None); 

if  (Dm_Address->shell [disp_num] ) 

XDef ineCursor (XtDisplay (Top) , 

XtWindow (Dm_Address->shell [disp_num] ) , None) ; 


/* 

* Determine  which  plot  was  selected  by  comparing 

* the  callback  widget  ID  to  the  plot  widget  IDs. 
*/ 


i - 0; 

plot_ptr  - Plot_info_ptr; 

while  (widget  !-  plot_ptr->draw_win  S&  i < Nbr_of jplots)  { 
plot_ptr  - Plot_info_ptr  + i; 
i++; 

) 

if  (i  > Nbr_of_plots)  { 

tui_msg (M_YELLOW,  "Error  in  processing  zoom"); 
return; 


) 


>-v.v -x-v 

4 . ; 


tmplt_ptr  - plot_ pt  r->plot_ pos ; 


cb_zoom.c 


/* 

* If  the  command  is  Zoom  Display,  restore  the  cursor, 

* obtain  the  focus  point  from  the  event  structure, 

* and  compute  the  new  world  coordinate  transformation 

* factors  and  the  zoom  focus  offset  values. 

*/ 


if  (command  ” ZOOM__DIS)  { 


/* 

* If  ESCAPE  was  selected,  return.  Else,  obtain  the  coordinates 

* of  the  mouse  cursor  as  the  zoom  focus  point. 

if  (calldata->event . xkey . keycode  " ESCAPE_KEYCODE) 
return (0) ; 

*/ 

focus. x - button->x; 
focus. y - button->y; 

/* 

* Calculate  the  zoom  coordinate  offset  values 

* and  the  zoom  world  coordinate  transformation  factors. 

*/ 


Dm_Address->display [disp_num] .dd_zfact  - Zoom_factor; 
wc_base  - 100.0  / Zoom_f actor; 

tmplt_ptr->factor_x  * (double)  ( (tmpltjptr->drw_width  - 1)  / wc_base) ; 
tmplt_ptr->factor— y - (double) ( (tmplt^ ptr->drw_height  - 1)  / wc_base) ; 

tmplt_ ptr->of f set_x  - (short)  ((50.0  * tmplt_ ptr->org_f actor_x) 

- ( (focus. x / tmplt_ptr->org__factor_x)  * tmplt_ ptr->factor_x)  ) ; 

tmplt_ ptr->of f set_y  - (short)  ({50.0  * tmplt_ptr->org_factor_y) 

- { (focus. y / tmplt_ ptr->org_factor_y)  * tmplt_ptr->f  actor_y) ) ; 


/*  RLK  11/19/90  This  is  partial  code  to  insure  an  offset  too  small  or  large 
isn't  calculated. 


*/ 

/* 

* 

* 

*/ 


if  ( (xaxis— ptr->org_low_val  * tmplt_ptr->factor_x 

+ tmplt_pt  r —>o f f set x)  > 0) 

tmplt^ ptr->of fset_x  - 0; 

else  if  ( (xaxis_ptr->org_high_val  * tmplt_jptr->factor_x 
+ tmplt_ptr->of f set_x)  < tmplt_ ptr->drw_width) 


if  ( (yaxis_ptr->org__low_val  * tmplt_ptr->factor_y 
+ tmplt__ptr->of  f set_y)  > 0) 
tmplt_ptr->of  f set_x  - 0; 


Adjust  current  axis  positions  to  insure 
axis  remains  visible. 


axis_ptr  - plot— ptr->axis; 

for  (i-0;  i<plot_ptr->header->xaxes_num;  i++)  { 

axis_ptr->cur_axis_pos  - {<100.0  - axis__pt r->axis_pos ) 


cb_zoom.c 


* tmplt _j?tr->factor_y)  + tmplt  jpt  r->of  f set_y ; 

if  (axis_ ptr->cur_axis_pos  < 0) 
axis— ptr->cur_axis_pos  - 0; 

else  if  (axis_ptr->cur__ axis_pos  > tmplt_ptr->drw_height  - 1) 
axis_ptr->cur_axis_pos  - tmplt_ptr->drw_height  - 1; 


} 

axis_ptr  - plot— ptr->axis  + plot_ptr->header->xaxes_num; 

for  (i-0;  i<plot_pt r“>header->yaxes_num;  i++)  { 

axis_ ptr->cur_axisjpos  - (short)  (axis_ ptr->axis_pos 

* tmplt^ ptr->factor_x)  + tmplt_ptr->of f set_x; 

if  (axis_ptr->cur_axis-pos  < 0) 
axis_jptr->cur_axis_pos  - 0; 

else  if  <axis_ptr->cur_ axis_j>os  > tmplt_ptr->drw_width  - 1) 
axis_ptr->cur_axis_ pos  - tmplt_ptr->drw_width  - 1; 

) 


If  the  command  is  Zoom  Reset,  restore  the  original 
world  coordinate  transformation  factors  and  zero 
the  offset  values.  Restore  axis  original  positions. 


} else  if  (command  — ZOOM_RES)  { 

tmplt_ ptr->factor_x  - tmplt--ptr->org_factor_x; 
tmplt_ptr->f actor_y  - tmplt_ptr->org_ factor  _y; 
tmplt_ptr->offset_x  - 0; 
tmplt_ ptr->of fset_y  * 0; 

axis_ptr  - plot_ptr->axis; 

for  (i-0;  i<plot_ptr->header->xaxes_num;  i++) 

axis_ptr->cur_axis_j>os  - axis_ptr->pixel_axis_pos ; 

axis _ptr  - plot_pt r->axis  + plotjptr->header->xaxes_num; 

for  (i-0;  i<plot_ptr->header->yaxes_num;  i++) 

axis_ptr->cur_axisjpos  - axis_ptr->pixel_axis_pos; 


Clear  the  plot  command  in  shared  memory. 


Dm_Address->display  [disp_num]  . dd_zoom  - 0; 


Clear  the  plot  and  issue  a redraw  on  the  plot. 


XClearArea  (Dm_Address->xdisplay  [disp__num] , Xt Window (plot_ptr->draw_win)  , 

0,  0,  tmplt_ptr->drw_width,  tmplt _ptr->drw_height , False)  ; 

draw_jplt  (disp_num,  plot_ptr,  0,  0, 

tmplt_ptr->drw_width,  tmplt_ptr->drw_height ) ; 


if  (plot_ptr->prev_act_f lg  -« 


YES)  { 
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Reset  all  first  point  flags. 


for  (i-0;  i<plot_ptr->header->actual— ms ids ; i++) 
(plotj?tr~>msids  + i)->first_pt  - YES; 


Rewind  plot  data  file  to 
beginning  of  plot  data. 


Iseek (plot  _ptr->plot_f p,  0,  SEEK_SET) ; 

Iseek (plot  _ptr->plot_f p, 

80  + (plot_ptr->header->msid— num  * 24) , SEEK_SET) 


Reset  seconds  elapsed  to  0 (only  meaningful  for  time  plots) . 


plot_ptr->seconds_elapsed  * 0; 


Initialize  end_of_file  flag  and  call  procjpltO  to  plot 
data  points.  Continue  calls  to  proc_plt()  until  EOF,  signalling 
all  data  points  plotted.  Check  for  EOF  necessary  since 
proc_plt ( ) and  subordinate  plot_msid<)  may  exit  prematurely  due 
to  an  out-of-scale  data  point. 


End  of  file 


NO; 


while  (End_of_file  — NO) 

proc_plt (disp_num,  plot_ptr) ; 


D (print f ("END  cb_zoom\n" ) ) ; 


chg_gdr.c 

* MODULE  NAME:  chg_gdr . c 


* This  function  allows  the  user  to  change  GDR  retrieval  information.  After 

* all  data  is  entered,  the  Data  Handler  is  notified  of  the  retrieval  infor- 

* mation  change  via  a flag  in  shared  memory.  This  function  currently  does 

* not  have  any  effect  because  GDR' s are  not  handled  by  the  stubbed  data 

* handler. 

* 

★ 

* INTERNAL  FUNCTIONS: 

* 

* o gdr_menu  - This  function  presents  the  menu  which  allows  the 

* GDR  source  to  be  changed. 

* 

* o cb_data  - This  function  handles  all  callbacks  generated  by 

* the  menu . 

* 
it 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* K.  Noonan  - Ford  Aerospace  Corporation 

it 

it 

* MODIFIED  FOR  X WINDOWS  BY: 

* 


Mark  D.  Collier  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 

A******************************************************** 


♦include  <ctype.h> 

♦include  <X11/Intrinsic . h> 
♦include  <X11/Shell .h> 
♦include  <Xm/Text.h> 
♦include  cconstants .h> 
♦include  <disp.h> 

♦include  <user_inter . h> 
♦include  <wex/EXmsg . h> 


extern  Widget 

extern  struct  pfkey_defs 

extern  struct  dm_s hmemo r y 


Top; 

/* 

Current_Com; 

/* 

*Dm_Address; 

/* 

Top  level  widget . 

current  commands  definition 

Display  Manager  shared  memory 


extern  short 


Disp_Num; 


/*  Display  Manager  number 


extern  char 


Disp_Path  [DNAME_LEN]  ; 


/*  Default  path  for  ppl  file 


♦define  NUM_DURS 
static  char 


4 

♦durations [NUM_DURS]  - { "S",  "M",  "H",  "D"  }; 


static  struct  ppl_record  new_j>pl; 


static  Widget 


t_ppl, 

t_host, 

t_rq, 

t_duration, 
t_ppl_rate, 
r_dur_units, 
r _ppl_units; 


*/ 

*/ 

*/ 

*/ 

*/ 


static  short 


chg_gdr.c 


flag, 

ppl_nbr; 


int  chg_gdr  ( ) 

{ 

D (print f ( "START  chg_gdr\n") ) ; 

/* 

* Display  a popup  waiting  for  the  user  to  enter  data.  Note  that  the  (chg_gdr)  function 

* is  not  called  from  a function  key  or  PBI . 

*/ 

gdr_menu  ( ) ; 

/* 

* If  OK  was  selected,  then  store  the  information  in  shared  memory  and 

* notify  the  Data  Handler  of  the  retrieval  information  update. 

*/ 

if  ( flag  ) { 


strcpy  { Dm_Address->ppl_recs [ppl_nbr] .host_name,  new_ppl . host_name  ) 

strcpy  { Dm_Address->ppl_recs [ppl_nbr] . rate_ units,  newjppl . rate_units  ) 

strcpy  { Dm__Address->ppl__recs  [ppl_nbr]  .ppl_ rate,  new_ppl  .ppl__rate  ) 

strcpy  ( Dm_Addres3->ppl_recs [ppl_nbr] .duration,  new_ppl .duration  ) 

strcpy  ( Dm_Address->ppl_recs [ppl_nbr] .duration_units, 

new_ppl .duration_units  ) 

strcpy  ( Dm_Addres3->ppl_recs [ppl_nbr] . retrieval_qualif ier. 


new_ppl . retrieval_qualif ier  ) 

Dm_Address->ppl_recs [ppl_nbr] . update_retr  - YES; 

) 

/* 

* Return  the  status  of  the  popup. 

*/ 


} 


D (printf ("END  chg_gdr\n" ) ) ; 
return  ( flag  ) ; 


/******************************************************************************* 

* MODULE  NAME:  gdr_menu 

Hr 

* This  function  actually  presents  the  popup  which  allows  the  user  to  change 

* GDR  information. 

★★★a**************************************************************************/ 

static  int  gdr_menu  ( ) 

{ 


register  int 

i; 

Arg 

args [10]  ; 

Widget 

shell, 
form, 
f_ppi, 
f_data, 
f _cmd  ; 

XtCallbackProc 

cb_ data  ()  ; 

XEvent 

event ; 

D (print f ("START 

gdr_menu\n 

/* 

* Create  the  shell  widget. 
*/ 


i - 0; 

shell  - tui_create_trans_shell  { "Change  GDR",  args,  i ); 

/* 

* Create  the  main  form  and  all  sub-forms. 

V 


i - 0; 
form  - 

f_ppl  " 

f_data  - 
f cmd  - 


/* 

* Create  a 

* filename 
*/ 


tui_create_form 
tui_create_form 
tui_create_form 
tui  create  form 


( shell,  "form”, 

( form,  "f_ppl", 

( form,  "f_data", 
( form,  "f_cmd". 


TRUE,  args,  i ) ; 
FALSE,  args,  i ); 
FALSE,  args,  i ) ; 
FALSE,  args,  i ); 


label  and  text  widget  to  allow  the  user  to  specify  the  PPL 


i - 0; 

tui_create_label  ( f_ppl,  "l_ppl",  "PPL  File  Name",  args,  i ); 

t_ppl  ■ tui_create_text  { f _ppl,  "t_ppl",  new_j>pl  ,ppl_f  ilename,  DNAME_LEN- 1 , 

XmSINGLE_LINE_EDIT,  TRUE,  args,  i ); 

/* 

* Create  labels  for  the  host  name,  retrieval  qualifier,  duration,  duration 

* units,  PPL  rate,  and  PPL  rate  units. 

*/ 

i - 0; 

tui_create_label 
tui_create_label 
t u i_c  r e a t e_l abe 1 
t u i_c  rea t e_labe 1 
tui_create_label 
tui  create  label 


( 

f 

ji  at  a. 

"1  host". 

"Host  Name", 

args. 

i 

) ; 

< 

f 

_data. 

"Retrieval  Qualifier", 

args. 

i 

) ; 

< 

f" 

_data. 

"l_duration". 

"Duration", 

args. 

i 

) ; 

( 

f" 

_data. 

"l_dur  units". 

"Duration  Units", 

args. 

i 

) ; 

< 

f 

_data. 

"l_ppl_rate". 

"PPL  Rate", 

args. 

i 

) ; 

< 

£ 

_data. 

"l_ppl_units". 

"PPL  Units", 

args, 

i 

) ; 
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* Create  text  widgets  and  radio  boxes  for  the  actual  input  fields  for  the 

* host  name,  retrieval  qualifier,  duration,  duration  units,  PPL  rate,  and 

* PPL  rate  units. 

*/ 


i - 0; 
t_host 

t_rq 

t_duration 
t_ppl_ rate 


- tui_create_text  { f_data,  "t_host",  new_ppl.host_name, 

3,  XmSINGLE_LINE_EDIT,  TRUE,  args,  i ) ; 

- tui_create_text  ( f_data,  "t_rq",  new_ppl . retrieval_qualif ier, 

10,  XmS INGLE_LINE_EDIT , TRUE,  args,  i ); 

- tui  create_text  ( f_data,  "t_duration",  new_ppl .duration, 

3,  XmS INGLE_LINE_ED IT , TRUE,  args,  i ); 

- tui  create_text  ( f_data,  "t_ppl_rate",  new_ppl .ppl_rate, 

3,  XmS INGLE_L INE_ED IT,  TRUE,  args,  i ) ; 


r_dur_units  - tui_create_rb  ( f_data,  "r_dur_units",  durations,  NUM_DURS, 
~ durations [0] , args,  i ); 

r_ppl_units  - tui_create_rb  ( f_data,  "r_ppl_units",  durations,  NUM_DURS, 
' durations [0] , args,  i ); 


/* 

* Create  separator  widgets . 

*/ 

i - 0; 

tui_create_separator  ( form,  "sepO",  args,  i ) ; 
tui  create_separator  ( form,  "sepl",  args,  i ) ; 


/* 

* Create  pushbuttons  with  the  appropriate  callbacks. 

*/ 

1 - 0? 

tui_create_pushbutton  ( 
tui_create_pushbutton  ( 
tui_create_pushbutton  ( 
tui_create_pushbutton  ( 

/* 

* Put  all  input  widgets  in  a tab  group.  Note  that  at  this  time,  radio  boxes 

* do  not  work,  but  may  in  the  future. 

*/ 

XmAddTabGroup  ( tjppl  ) ; 

XmAddTabGroup  ( t_host  ) ; 

XmAddTabGroup  ( t_rq  ) ; 

XmAddTabGroup  ( t_duration  ) ; 

XmAddTabGroup  < r_dur_units  ) ; 

XmAddTabGroup  ( t_ppl_rate  ) ; 

XmAddTabGroup  ( r_ppl_units  ) ; 

/* 

* Realize,  popup,  and  set  the  colormap  of  the  shell. 

*/ 


f_cmd,  "OK",  cb_data,  (caddr_t) 1,  args,  i ) 
f_cmd,  "PPL",  cb_data,  (caddr_t)2,  args,  i ) 
f_cmd,  "Cancel",  cb_data,  (caddr_t)0,  args,  i ) 
f cmd,  "Help",  cb_data,  (caddr_t)3,  args,  i ) 


XtRealizeWidget  ( shell  ) ; 
XtPopup  ( shell,  None  ) ; 
set_cmap  ( shell  ) ; 


/* 

* 

*/ 


Wait  in  a loop  until  the  user  is  finished  with  the  popup. 
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flag  - -1; 

while  ( flag  " -1  ) { 

XtNextEvent  ( &event  ) ; 

XtDispatchEvent  ( Sevent  ) ; 


XtDestroyWidget  ( shell  ) ; 


/* 

* Normal  return. 
*/ 


D (print f ("END  gdr_menu\n") ) ; 
return  ( 0 ) ; 
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/ *************** ******************************************************** ******** 

* MODULE  NAME:  cb_data 

★ 

★ This  function  processes  commands  from  the  popup.  This  includes  OK,  PPL, 

* and  CANCEL. 

**★***★***★***★★★* ****★*******★***********************************************/ 


/*  ARGSUSED  */ 

static  XtCallbackProc  cb_data  ( w,  closure,  calldata  ) 


Widget 


caddr  t 


w;  /★  Set  to  widget  which  in  which  callback  originated.  */ 

closure,  /*  Indicates  the  selected  button.  */ 

*calldata;  /*  Widget -specif ic  information.  */ 


register  int  i, 

new_num; 

XtCallbackProc  cb_help ( ) ; 


short 


string [DNAME_LEN  + 5] ; 


match  - NO; 


D (print f ("START  cb_data\n") ) ; 

fit 

* Process  OK  button.  If  no  valid  PPL  filename  has  been  entered  yet,  generate  a warning 

* and  return. 


( (int) closure  ~ 1 ) { 

if  ( *new_jppl  .ppl_f ilename  " NULL  ) ( 

tui  msg  ( M__YELLOW,  WA  valid  PPL  filename  must  be  entered"  ) ; 
return; 


Retrieve  and  check  the  host  name.  Shift  the  hostname  to  uppercase  and  verify 
that  it  is  valid.  If  not  generate  a warning  and  return.  If  valid,  save  in  the 
(new_ppl)  structure . 


strcpy  ( string,  s - XmTextGetString  ( t_host  ) ) ; 
free  ( s ) ; 


s - string; 
while  ( *s  ) ( 

*s  * toupper  ( *s  ) ; 
s++; 
i 

if  ( strcmp  ( string,  "MOC"  ) &&  strcmp  ( string,  "DSC"  ) ) ( 

tui_msg  ( M_YELLOW,  "Invalid  host  name  - input  either  'MOC'  or  'DSC'"  ); 
return; 

) 

strcpy  ( new__ppl . host__name,  string  ); 


Retrieve  the  retrieval  qualifier.  No  checking  is  required  for  this  value. 
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strcpy  ( now_ppl.retrieval_qualifier,  s - XmTextGetString  ( t_rq  ) ); 
free  ( s ) ; 


Retrieve  and  check  the  duration.  Verify  that  all  characters  are  digits 
and  then  verify  that  the  value  is  in  the  range  of  0 to  255.  If  not, 
generate  a warning.  If  valid,  save  in  the  (new_ppl)  structure. 

strcpy  ( string,  s - XmTextGetString  ( t_duration  ) ) ; 
free  ( s ) ; 

s * string; 
while  { *s  ) 

if  ( isdigit  ( *s++  ) — NO  ) { 

tui_msg  ( M_YELLOW,  "Invalid  duration  - input  integer  between  0 and  255" 
return; 

} 

new_num  - atoi  ( string  ) ; 

if  ( new_num  < 0 | | new_num  > 255  ) { 

tui_msg  { M__YELLOW,  "Invalid  duration  - input  integer  between  0 and  255"  ) ; 
return; 

> 

strcpy  ( newjppl. duration,  string  ); 

Retrieve  and  check  the  duration  units.  No  verification  is  necessary  because 
the  user  cannot  select  an  invalid  value. 


strcpy  ( newjppl .duration units,  tui_radio_get__value  ( r dur  units  ) ) ; 


Retrieve  and  check  the  ppl  rate.  Verify  that  all  characters  are  digits  and  then 
verify  that  the  value  is  in  the  range  of  0 to  255.  If  not,  generate  a warning. 
If  valid,  save  in  the  (new  ppl)  structure. 


strcpy  ( string,  s - XmTextGetString  ( t_ppl_rate  ) ) ; 
free  ( s ) ; 

s - string; 
while  ( *s  ) 

if  ( isdigit  ( *s++  ) --  NO  ) ( 

tui_ msg  ( M_YELLOW,  "Invalid  ppl  rate  - input  integer  between  0 and  255"  ) 
return ; 

} 

new_num  - atoi  ( string  ) ; 

if  ( new_num  < 0 | | new_num  > 255  ) { 

tui_msg  ( YELLOW,  "Invalid  ppl  rate  - input  integer  between  0 and  255"  ); 
return; 

} 

strcpy  ( newjppl .ppl^rate,  string  ); 


Retrieve  and  check  the  ppl  rate  units.  No  verification  is  necessary  because 
the  user  cannot  select  an  invalid  value. 


strcpy  ( new _ppl . rate_units,  tui_radio_get_value  ( r_ppl_units  ) ); 
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Everything  is  valid,  so  set  (flag)  to  cause  the  popup  to  be  removed, 
flag  - (int) closure; 


The  user  selected  the  PPL  button,  so  process  entry  of  a PPL  filename.  First 
retrieve  the  filename  and  return  if  invalid. 


) else  if  ( (int) closure  — 2 ) { 

strcpy  ( fn,  s - XmTextGetString  ( t_ppl  ) ); 
free  ( s ) ; 

if  ( val_ppl  { fn  ) “ 0 ) 
return; 


If  the  filename  is  not  path  qualified,  then  add  the  default  path  to  the 
filename.  If  the  filename  is  path  qualified,  then  strip  off  the  path  name. 
The  simple  name  of  the  file  is  used  for  the  change  retrieval  information 
menu  title. 


if  ( *fn  t-  '/'  ) { 

strcpy  ( new_ppl . ppl_ filename , 
strcat  ( new_j>pl  .pp l_filename, 
} else  { 

strcpy  < new_ppl .ppl_f lie name , 
get_fn  { new_ppl .ppl_f ilename, 

} 


Disp_Path  ) ; 
f n ) ;. 

fn  ) ; 
fn  ) ; 


Search  for  a match  on  the  PPL  filename  that  the  retrieval  information  is 
to  be  changed.  If  match  is  found,  copy  the  information  in  shared  memory 
into  local  memory  and  call  a routine  to  size  the  change  retrieval 
information  menu.  If  no  match  is  found,  then  advise  and  remain  in  a loop 
to  receive  another  ppl  filename. 


i - 0; 

match  * NO; 

while  { i < NUM_GDR  &&  match  — NO  ) { 

if  ( strcmp  ( new_ppl .ppl_f ilename, 

Dm_Address->ppl_recs  [i]  .ppl_ filename  ) " 0 ) { 

match  - YES; 
ppl_nbr  - i; 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 
strcpy 

} else 
i++; 

} 

if  ( match  " NO  ) 

tui_msg  { M_YELLOW,  "PPL  file  %s  is  not  active",  new _ppl .ppl_f ilename  ); 


( new jppl.hoat_ name,  Dm_Address->ppl_recs [i] .nost_name  ); 

( new  ppl . rate  _unlts,  Dm_^Address— >ppl recs  [i]  ,rate_units  ); 

( newppl .duration  units,  Dm_Address— >ppl recs [i] . duration_units  ); 

( new_j>pl  .ppl_rate,  Dm__Address->ppl_recs  [i]  .ppl_rate  ); 

( new_j>pl. duration,  Dm_Address->ppl_recs [i] . duration  ); 

( new_ppl . retrieval_cjualif  ier, 

Dm_Address->ppl_recs [i] . retrieval_qualif ier  ) ; 


Process  CANCEL  button. 
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*/ 


} else  if  ( (int) closure  — 0 ) { 
flag  - (int ) closure; 


/* 

* If  help  button  was  selected,  display  appropriate  help  text. 
*/ 


} else  if  ( (int) closure  — 3 ) 

cb_help  ( (Widget) 0,  (caddr_t)ll,  <caddr_t)0  ); 

D (print f ("END  cb_data\n" ) ) ; 
return; 


< i . V « •?  J 
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/*********★**★***** ************ 
* MODULE  NAME:  chg_lim.c 


* This  function  is  invoked,  when  the  user  selects  the  change  limits  option 

* from  the  utilities  menu  or  a PF  key  is  entered  to  change  the  limits.  This 

* function  allows  the  user  to  retrieve  limits  for  a given  MSID  and  then 

* change  the  limits  themselves  and  enable/disable  alarms  and  advisories. 

* 

* INTERNAL  FUNCTIONS: 


* 

★ o chgl_menu 

★ 

* 

* o cb_limit 

* 

★ 


This  function  presents  the  form  which  allows 
the  limits  to  be  reviewed  and  changed. 

This  callback  function  processes  each  of  the 
commands  from  the  popup  form. 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* K.  Noonan  - Ford  Aerospace  Corporation 

* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************/ 


# include 
♦ include 
#include 
* include 
#include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 


<stdio .h> 

<X11/ Intrinsic .h> 
<X11/Shell.h> 
<Xm/Xm.h> 
<Xm/MessageB . h> 
<Xm/Text .h> 
<constants . h> 
<disp.h> 
<DDdisp.h> 

<pf_key . h> 
<user__inter  .h> 
<wex/EXmsg . h> 


extern  Widget 
extern  struct  msid_ent 
extern  struct  pfkey_defs 
extern  struct  dm_ shmemory 

extern  short 

extern  char 

extern  int 


Top; 

/* 

The  top 

*Msid; 

/* 

List  of 

Current_Com; 

/* 

Current 

*Dm_Address; 

/* 

Display 

Disp_ Num; 

/* 

Display 

**Msid_list_lim; 

/* 

List  of 

Ms  id  num  lim; 

/* 

Number  < 

level  widget . 

MSID  entries, 
commands  definition 
manager  shared  memory. 

manager  number 

MSID  strings  for  limits. 

>f  MSID's  available  for  limits 


static  Widget 


static  int 


shell, 
t_msid, 
tl  [4], 
tg  [4], 
tga [4] ; 

flag; 
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static  struct  disp_info 


♦display; 


int  chg_lim  ( ) 

{ 

short  error;  /♦  Return  value  from  chk_flg. 

D (print f ("START  chg_lim\n" ) ) ; 

/* 

* Save  pointer  to  the  display  structure  and  initialize  the  display  information 

♦ limit  change  index  to  INVALID. 

V 


display  - &Dm_Address->display [Disp_Num] ; 
display->limits . indx  - INVALID; 


/* 

* If  called  from  menu,  clear  command  values  and  display  the  popup. 

*/ 

if  ( Current_Com. f unc_no  — LIM_MENU  ) { 

Current_Com.  limit_change .msid  [0]  - '\0'; 

Current_Com.limit_change.src  [0]  - '\0'; 

Current_Com. limit_change .option [0]  - 9 \0f ; 
chgl_menu  ( ) ; 

/* 

* Otherwise,  new  limits  were  already  given  through  a PF  key  selection.  Store  the 

* limits  and  alarm  commands  from  the  current  command  structure  into  the  display 

* information  table  for  the  Data  Handler.  Copy  the  source  and  MSID  into  the 

* display  information  table.  Set  the  finished  flag  to  YES  so  the  limit  change 

* menu  will  not  be  redrawn  and  set  the  advise  flag  to  YES  to  advise  of 

* successful  limit  changes 

V 


} else  { 

♦if  FAC  “ NO 

i - strlen  ( Current_Com.limit_change.msid  ); 
for  ( j - i;  j < MS ID_LENGTH ; j++  ) 

Current_Com.limit_change.msid[ j]  - ' 
Current_Com.  limit_change  .msid  [MSI D_LENGTH]  * 0; 

♦endif 


( display->limits  .msid_name,  Current_Com.  limit_change  .msid  ); 
{ display->limits.erc,  Current_Com.limit_change.src  ); 

( display->limits. option,  Cur rent_Com. limit_change . option  ); 

< Current_Com. limit_change . flag  — 0 ) || 

Cur rent_Com. limit  change. flag  — 2 ) ) { 


strcpy 
strcpy 
strcpy 
if  < 


display->limit  s . ol_alrm 
display->limits . ol_adv 
display->limits . hi_limit 
display->limits . oh_alrm 
display->limits . oh_adv 
display->limits . limt_f  lag 
} else  { 

display->limits . limt_f  lag 

} 


- Current_Com . limit_change . ops_ll  ; 

• Current_Com.limit_change.ol_alrm; 

- Current_Com.limit_change.ol_adv; 

- Current_Com.limit_change.ops_ul; 

- Current_Cora.limit_change.oh_alrm; 

- Current_Com.limit_change.oh_adv; 

- YES; 

- NO; 


( 


display->limits . low  limit 


if  ( { Current_Com.limit_change.flag  — 1 ) | | 

( Current_Com.  limit_change  . f lag  — 2 ) ) { 

display->limits .crit_low  - Current_Com. limit_change.crit_ll; 
display->limits  .cl_alrm  » Current_Com.limit_change.cl_alrm; 
display->limit  s . cl_adv  - Current_Com.  limit_change . cl_adv; 
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display->limits .crit_high 
display->limits . ch_alrm 
display->limits . ch_adv 
display->limits . crit_f lag 
else  ( 

display->limit3 .crit_flag  - NO 


Current_Com. limit_change . crit_ul; 
Current_Com.  limit_change . ch_alrm; 
Current_Com. limit_change .ch_adv; 
YES; 


* New  limits  were  given  through  a PF  key  selection  then  set  the  command  in  the 

* display  information  table  for  the  Data  Handler.  Wait  for  a response  and  advise 

* if  no  response  is  given.  An  advisory  is  given  for  updated  limits  if  the  command 

* came  from  a PF  key  with  the  limits  specified. 

*/ 


display->limit s .updated  - NO; 
display->upd_lim  ■ YES; 

error  * chk_flg  ( &display->limit 3 .updated,  5,  1 ); 


) ; 


if  ( error  ) . , 

tui  msg  ( M_YELLOW,  "Error  in  msid  %s  limit  update" , display->limits .msid_name 


else 

tui  msg  ( M_WHITE,  "MSID  %s  limits  updated",  display->limits  .msid_name  ); 


} 


D (print f ("END  chg_lim\n" ) ) ; 
return  ( 0 ) ; 
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/A**********************************************************************^^^^ 

* MODULE  NAME:  chgl_menu 

* 

* This  function  presents  the  actual  popup  form  which  allows  limits  to  be 

* changed. 

a***************************************************************************^^ 

static  int  chgl_menu  ( ) 

{ 


register  int 

i; 

Arg 

args [10] ; 

Widget 

form, 
f_msid, 
f_data, 
f _cmd ; 

XtCallbackProc 

cb_limit  ( ) ; 

XEvent 

event ; 

D (print f ("START 

chgljnenu\n 

/* 

* Create  the  shell  widget . 
*/ 


i - 0; 

shell  - tui_create_trans_shell  ( "Change  Limits",  args,  i ) ; 

/* 

* Create  the  main  and  all  sub-forms. 

*/ 


i - 0; 


form  - 

tui_ 

create^ 

form 

< 

shell, 

"form". 

TRUE,  args, 

i 

) ; 

f_msid  - 

tui" 

create^ 

form 

( 

form. 

"f  msid". 

FALSE,  args. 

i 

) ; 

f_data  - 

tui" 

_create_ 

form 

< 

form. 

"f_data". 

FALSE,  args. 

i 

) ; 

f_cmd  - 

tui" 

_create_ 

form 

< 

form. 

"f  cmd”. 

FALSE,  args. 

i 

) ; 

/* 

* Create  all  widgets.  First  create  a selection  list  which  allows  the  user  to  select 

* the  desired  MSID  to  change  limits  for. 

*/ 


i - 0; 

t_msid  - tui_create_sel  ( f_msid,  "t_msid",  Msid_list_lim,  Msid_num_lim,  "MSID's", 

args,  i ) ; 


/* 

* Create  labels  for  the  high  and  low  values 
*/ 


for  operational  and  critical 


limits . 


i - 0; 

tui_create_label 
tui_create_label 
tui_create_label 
tui  create  label 


( 

f 

_data. 

"l_opslow", 

"Ops  Low", 

args, 

i 

) ; 

( 

f" 

data. 

"l_opshigh". 

"Ops  HI", 

args. 

i 

) ; 

( 

f" 

_data. 

"l_critlow". 

"Crit  Low", 

args. 

i 

) ; 

( 

f" 

_data. 

"l_crithigh". 

"Crit  HI", 

args. 

i 

) ; 

/* 

* Create  text  widget 
*/ 


for  the  high  and  low  values  for  operational  and  critical  limits 


i - 0 
tltO] 

till] 

tl  [2] 

tl  [3] 
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tui_create_text  ( f_data,  "t_opslow", 
args,  i ) ; 

tui_create_text  ( f_data,  "t_opshigh", 
args,  i ) ; 

tui_create_text  ( f_data,  ”t_critlow", 
args,  i ) ; 

t u i_c re a t e_t ext  ( f_data,  "t_crithigh" 
args,  i ) ; 


"",  14,  XmSINGLE_LINE_EDIT,  TRUE, 
14,  XmSINGLE_LINE_EDIT,  TRUE, 
"",  14,  XmSINGLE_LINE_EDIT,  TRUE, 

14,  XmS I NGLE_L I NE_ED IT,  TRUE, 


/★ 

* Create  toggles  for  the  alarm  and  advisory  flags  for  each  limit  value. 
*/ 


) 

) 

) 

) 

) 

) 

) 


) ; 


i - 0; 
tg  [0] 

tg  [1] 

tg  [2] 

tg  [3] 

tga [0] 

tga [ 1 ] 

tga [2] 

tga [3] 


tui_ 

_c  reat  e_ t oggle 

c 

f_ 

_data. 

"tg_ opslow", 

"Alarm",  FALSE, 

NULL, 

o. 

args, i 

tui_ 

_create— toggle 

( 

f_ 

_data. 

"tg_opshigh". 

"Alarm",  FALSE, 

NULL, 

0, 

args, i 

tui_ 

_create_toggle 

< 

f_ 

_d  at  a, 

"tg_critlow". 

"Alarm",  FALSE, 

NULL, 

0, 

args, i 

tui_ 

_create_t oggle 

( 

f_ 

jiata, 

"tg_crithigh". 

"Alarm",  FALSE, 

NULL, 

0, 

args, i 

tui_ 

_create_t oggle 

< 

f 

jiata. 

" t g_op  a lo w_a  " , 

"Advisory" , FALSE, 

NULL, 

0, 

args, i 

tui_ 

_create— toggle 

< 

f_ 

jiata. 

rttg_opshigh_a" , 

"Advisory",  FALSE, 

NULL, 

0, 

args, i 

tui_ 

_create_t oggle 

< 

f_ 

jiata, 

" t g_c r it low_a " , 

"Advisory", FALSE, 

NULL, 

0, 

args, i 

tui_ 

_create_toggle 

< 

f_ 

_data, 

"tg_crithigh_a" 

, "Advisory" , FALSE, 

NULL, 

0, 

args, i 

/* 

* Create  separator  widgets. 
*/ 


i - 0; 

XtManageChild  ( XmCreateSeparator  ( form,  "sepO",  args,  i ) ); 
XtManageChild  ( XmCreateSeparator  ( form,  "sepl",  args,  i ) >; 


/* 

* Create  command  widgets  with  the  appropriate  callbacks. 
*/ 


i - 0; 

tui_create_pushbutton  ( f_cmd, 
tui_create__pushbutton  ( f_cmd, 
tui_create_pushbutton  ( f_cmd, 
tui_create_pushbutton  ( f_cmd, 


"Done", 
"Save", 
"MS ID", 
"Help", 


cb_ 

limit. 

(caddr_ 

t)  0, 

args. 

i 

> 

cb 

limit. 

(caddr_ 

t)l. 

args, 

i 

> 

cb~ 

limit. 

(caddr_ 

t)  2, 

args, 

i 

> 

cb 

limit. 

(caddr_ 

t)  3, 

args, 

i 

> 

/* 

* Put  all  input  widgets  in  a tab  group. 
*/ 


XmAddTabGroup  ( t_msid  ) ; 

for  ( i **  0;  i<4;  i++  ) { 

XmAddTabGroup  ( tl  [i]  ); 

XmAddTabGroup  ( tg  [i]  ) ; 
XmAddTabGroup  ( tga[i]  ); 

) 


Realize  and  popup  the  shell. 
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*/ 


XtRealizeWidget  ( shell  ) ; 
XtPopup  { shell.  None  ) ; 
set_cnvap  ( shell  ) ; 


/* 

* Wait  until  the  user  finishes  with  the  popup. 
*/ 


flag  ■ -1; 

while  ( flag  — -1  ) { 

Xt Next Event  ( & event  ) ; 

XtDispatchEvent  ( fievent  ) ; 


XtDestroyWidget  { shell  ) ; 


/* 

* Return  the  value  selected  by  the  user  (0  is  for  not  verified,  1 is  for 

* verified. 

*/ 


> 


D (print f ( "END  chgl_menu\n") ) / 
return  ( flag  ) ; 
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/******************************************************************************* 

* MODULE  NAME:  cb_limit 

★ 

* This  function  is  called  when  the  user  selects  any  of  the  commands  from  the 

* popup  form. 


/*  ARGSUSED  */ 

static  XtCallbackProc  cb_limit  ( w,  closure,  calldata  ) 


Widget 
caddr  t 


w; 


/ * set  to  widget  which  in  which  callback  originated. 


closure,  /*  Indicates  the  selected  button, 
★calldata;  /*  Widget-specific  information. 


register  int  i; 
XtCallbackProc  cb— help ( ) ; 


char 


*ptr, 

new_src  [4], 
real_src  [4] , 
limit  [ 4 ] [17] ; 


short  alarm_flg, 

error, 
advise, 
pos_indx; 

D (printf ("START  cb_limit\n") ) ; 

/* 

* Process  SAVE  button.  If  the  user  did  not  specify  an  MS ID  yet,  generate  a 

* warning  and  return. 

*/ 


if  ( (int) closure  — 1 ) { 

if  ( *Current_Com.  limit_change  .msid  — '\0'  ) { 

tui_msg  ( M— YELLOW,  "Use  MSID  to  specify  the  MSID  to  update"  ) ; 
return; 

} 


★ Retrieve  and  verify  the  new  limits.  First  retrieve  the  operational  low  limit 
*/ 

display->limits . limt_ f lag  - NO; 
ptr  - XmTextGetString  ( tl[0]  ); 
if  ( limit_val  ( ptr  ) ) { 

sscanf  ( ptr,  "%lf",  &display->limits . low_limit  ); 
display-> limits . limt_f lag  - YES; 
free  ( ptr  ) ; 

) else  { 

free  ( ptr  ) ; 

tui_msg  ( M_YELLOW,  "Invalid  value  for  low  limit"  ); 
return; 

} 

/* 

* Retrieve  and  verify  the  operational  high  limit. 

*/ 


ptr  - XmTextGetString  ( tl[l]  ); 
if  ( *ptr  &&  limit_val  ( ptr  ) ) { 


> 


} 
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sscanf  ( ptr,  "%lf”,  &display->limits  .hi_limit  ); 
display->limits . limt_f lag  - YES; 
free  ( ptr  ) ; 
else  { 

free  ( ptr  > ; 

tui_msg  ( M_YELLOW,  "Invalid  value  for  high  limit” 
return; 


) ; 


/* 

* Retrieve  and  verify  the  critical  low  limit. 

*/ 


display->limits . crit_f lag  - NO; 
ptr  - XmTextGetString  ( tl[2]  ); 
if  ( limit_val  { ptr  ) ) { 

3scanf  ( ptr,  ”%lf",  &display->limits . crit_low  ); 
display->limits .crit_f lag  - YES; 
free  ( ptr  ) ; 

} else  ( 

free  ( ptr  ) ; 

tui_msg  { M_YELLOW,  "Invalid  value  for  critical  low  limit”  ) ; 
return; 

} 


/* 

* Retrieve  and  verify  the  critical  high  limit. 

*/ 


ptr  - XmTextGetString  ( tl[3]  ); 
if  < lim±t_val  ( ptr  ) ) ( 

sscanf  ( ptr,  ”%lf",  £display->limits .crit_high  ); 
display->limits . crit_f lag  - YES; 
free  ( ptr  ) ; 

} else  { 

free  < ptr  ) ; 

tui_msg  ( M_YELLOW,  "Invalid  value  for  critical  high  limit"  ); 
return; 

} 


Retrieve  the  values  for  the  alarm  and  advisory  flags. 


display->limits . ol_alrm  - XmToggleButtonGadgetGetState  { tg  [0]  ); 
display->limits .oh_alrm  - XmToggleButtonGadgetGetState  ( tg  [1]  ); 
display->liraits .cl_alrm  - XmToggleButtonGadgetGetState  ( tg  [2]  ); 
display->limits .ch_alrm  - XmToggleButtonGadgetGetState  ( tg  [3]  ); 

display->limits.ol_adv  - XmToggleButtonGadgetGetState  ( tga[0]  ); 
display->limits .oh_adv  - XmToggleButtonGadgetGetState  ( tga[l]  ); 
display->limits .cl_adv  - XmToggleButtonGadgetGetState  ( tga[2]  ); 
display->limits .ch_adv  - XmToggleButtonGadgetGetState  ( tga[3]  ); 


If  the  position  Id  alarm  flag  has  been  disabled  and  one  of  the  limits  alarms 
has  been  enabled,  then  advise  that  the  alarm  will  not  be  enabled. 


pos_indx  - display->pos__id_indx; 
alarm_flg  - Dm_Address~>process  . alarm  [pos_indx]  ; 
if  < alarm_f lg  — NO  ) { 

i - 0; 

advise  - NO; 


• « 


) ; 


/* 

* 


* 

* 


*/ 


) ; 
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while  ( advise  NO  &&  i < 4 ) { 

if  ( XmToggleButtonGadgetGet State  ( tga[i]  ) ) { 

tui  msg  ( M_WHITE,  "Limit  alarm  not  enabled  - pos . Id  alarm  disabled” 

advise  - YES; 

} 

i++; 

} 

> 


Set  the  command  in  the  display  information  table  for  the  Data  Handler.  Wait 
for  a response  and  advise  if  no  response  is  given . An  advisory  is  given  for 
updated  limits  if  the  command  came  from  a PF  key  with  the  limits  specified. 


di sp 1 ay- > limits . updated  “ NO; 
display->upd_ lim  • YES; 

error  * chk fig  ( &display->limits .updated,  5,  1 ) ; 

if  ( error  ) 

tui  msg  ( M_YELLOW,  "Error  in  maid  %s  limit  update" , display->limits  .ms id_name 


else 

tui_msg  ( M_WHITE,  "MSID  %s  limits  updated",  display->limits  .msid_name  ); 


* Process  the  CANCEL  button.  Simply  set  the  global  flag  to  0. 
*/ 


} else  if  ( (int) closure  — 0 ) { 

flag  - (int) closure; 


* Process  the  MSID  button.  First  retrieve  the  new  MSID  and  if  necessary,  pad  with 

* blanks . 

*/ 


) else  if  ( (int) closure  — 2 ) ( 

ptr  - XmTextGetString  ( t__msid  ) ; 

#if  FAC  — NO 

for  ( i - strlen  ( ptr  ) ; i < MS ID_LENGTH ; i++  ) 

* (ptr+i)  - ' 

* (ptr+i)  - '\0'  ; 

#endif 

/* 

* Verify  that  the  specified  MSID  is  really  one  in  the  list.  Upon  return  from  the 

* (val_msid)  function,  (i)  will  be  set  to  the  index  of  the  MSID  in  the  (Msid) 

* list. 

*/ 

if  ( ( i - val_msid  ( Msid_list— lim,  Msid_num_lim,  ptr  ) ) --  -1  ) { 

free  ( ptr  ) ; 
return; 

} 

/* 

* MSID  is  valid,  so  first  clear  out  all  limit  flags  and  values. 

*/ 


*display->limits  .msid_name  - 
*display->limits . src  - 


*display->limit3  .option 
display->limit3 . low_ limit 
display->limit3 . hi_limit 
di3play->limit s . crit_low 
di3play->limit s . crit_high 
display->limits . ol_alrm 
display->iimit3 . ol_adv 
display->limit3 . oh_alrm 
display->limit3 . oh_adv 
display->limit3 . limt_f lag 
di3play->limit3 . cl_alm 
display->limit3 . cl_adv 
display->limit3 . ch_alrm 
di3play->liinit3  .ch_adv 
di3play->limits  .crit__flag 
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' \ 0 ' ; 


0.0; 


FALSE; 


/* 

c°py  the  specified  MSID  into  the  current  command  structure  and  free  temporary 

* storage. 

*/ 

strcpy  ( Current_Cora.limit_change.msid,  ptr  ); 
free  { ptr  ) ; 

/* 

* Save  the  corresponding  SOURCE  for  the  specified  MSID.  Verify  that  the  source  is 

* valid. 

*/ 


( 


strcpy  ( new_src,  (Msid+i) ->Data_Src  ); 
if  ( val_src  ( new_src,  real_src  ) — 0 ) { 

tui_msg  ( M_YELLOW,  "Invalid  data  source"  ); 
return; 

} 

strcpy  ( Current_Com.limit_change.src,  new_src  ); 

if  ( ( strcmp  < real_src,  "PPM"  ) 0 ) | | ( strcmp  ( real_src,  "EVN"  ) ”•  0 ) ) 

strcpy  ( Current_Com.limit_change.src,  real_src  ); 
strcpy  ( Current_Com.  limit_change . option,  new  src  ) ; 

} else  { ~ 

strcpy  ( Current_Com.limit_change.src,  new_src  ); 

Current_Com.limit_change. option [0]  ■ '\0'; 


Copy  the  source  and  MSID  into  the  display  information  table  and 
flag  for  the  Data  Handler. 


set  the  command 


strcpy  ( display->limits.msid_name, 
strcpy  ( display->limits . src, 
strcpy  ( display->limits. option, 
display->get_lim  *•  YES; 

display->limits .updated  - NO; 


Current_Com.limit_change.msid  ); 
Current_Com. limit_change .src  ) ; 
Current_Com. limit_change . option  ) ; 


/* 

Wait  for  the  limits  to  be  returned  from  the  Data  Handler.  If  an  error  occurs 
generate  a warning  and  return. 

*/ 


if  ( chk_flg  ( &display->liniit 3 .updated,  5,  1 ) o ) { 

tui_msg  ( M_YELL0W,  "Unable  to  get  MSID  %s  limit  information", 
display->limits .msid_name  ); 
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> 


/* 

★ 


*/ 


/* 

★ 

*/ 


/* 

* 

*/ 


At  this  point,  updated  limit  values  have  been  returned.  Initialized  the  text 
widgets  with  the  appropriately  formated  limits. 


sprint f ( limit [0],  "%e",  display->limits . low_limit  ); 
sprintf  ( limit  ( 1] , "%e",  display->limits .hi_limit  ); 
sprintf  ( limit  [2],  "%eH,  display->limits . crit_low  ); 
sprintf  ( limit [3],  n%e"f  display->limits .crit_high  >; 

XmTextSetString  ( tl[G],  limit [0]  ); 

XmTextSet St ring  ( tl[l],  limit [1]  ); 

XmTextSetString  ( tl[2],  limit [2]  ); 

XmTextSetString  { tl[3],  limit [3]  ); 


Set  toggles  based  on  the  state  of 


the  alarm  flags. 


XmToggleButtonGadget Set State 
XmToggleButtonGadgetSetState 
XmToggleButtonGadget Set St ate 
XmToggleButtonGadgetSetState 


( 

tg 

[0], 

display->limits . ol_ 

_alrm. 

FALSE 

) ; 

( 

tg 

[1], 

display->limits . oh_ 

_alrm. 

FALSE 

) ; 

( 

tg 

[2], 

display->limits .cl_ 

_alrm. 

FALSE 

) ; 

( 

tg 

13], 

display->limits . ch_ 

_alrm, 

FALSE 

) ; 

Set  toggles  based  on  the  state  of 


the  advisory  flags. 


XmToggleButtonGadgetSetState  ( 
XmToggleButtonGadgetSetState  ( 
XmToggleButtonGadgetSetState  { 
XmToggleButtonGadgetSetState  { 


tga [0] , display->limits .ol^adv,  FALSE  ) 
tga [ 1] , display->limits . oh_adv,  FALSE  ) 
tga [2],  display->limits .cl_adv,  FALSE  ) 
tga[3],  display->limits .ch_adv,  FALSE  ) 


* If  help  button  was  selected,  display  appropriate  help  text. 
*/ 


} else  if  ( (int) closure  — 3 ) 

cb_help  ( (Widget) 0,  (caddr_t)17,  (caddr_t)0  ); 

D (print f ("END  cb_limit\n" ) ) ; 
return; 


} 
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* MODULE  NAME:  chg_zoom.c 

★ 

* This  function  allows  the  user  to  change  the  zoom  factor.  At  this  time, 

* this  value  is  not  used. 


★ 

* INTERNAL  FUNCTIONS: 

* 

* o cb_chg_zoom  - Callback  function  which  processes  all  callbacks 

* from  the  form. 

* 

* o chg_zoom_menu  - This  function  displays  the  popup  and  waits  for  the 

* user  to  enter  the  new  zoom  factor. 

* 

it 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* K.  Noonan  - Ford  Aerospace  Corporation 

★ 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 


Mark 


D.  Collier  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


♦include  <X11/Intrinsic .h> 
♦include  <Xm/Scale.h> 
♦include  <constants .h> 
♦include  <disp.h> 

♦include  <user_inter . h> 
♦include  <wex/EXmsg.h> 


extern  Widget  Top; 

extern  struct  dm  shmemory  *Dm  Address; 


extern  short 
extern  float 


Disp_Num; 
Zoom  factor; 


/*  Top  level  widget  for  attaching  popup 
/*  Shared  memory  area 

/ * Display  Manager  number 

/*  current  zoom  factor 


static  widget 

static  int 

♦define  NUM_LABELS 
static  char 


scale; 

flag; 

2 

♦labels  [NUM_LABELS]  - 


{ "0.01",  "9.90"  } ; 


int  chg_zoom  ( ) 

{ 

D (print f ("START  chg  zoom\n") ) ; 

/* 

* Call  the  menu  function  to  allow  the  user  to  update  the  zoom  factor. 


/* 


chg__zoom_menu  { ) ; 
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Return  the  status  of  the  popup. 


D (printf ("END  chg_zoom\n" ) ) ; 
return  ( flag  ) ; 
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z***************************************************************************^^ 

* MODULE  NAME:  chg_zoom_ menu 

* 

* This  function  displays  the  form  and  waits  for  the  user  to  selecte  the  new 

* zoom  factor. 

fr****************************************************************^^^^^^^ 


static  int  chg_zoom_menu  { ) 

{ 


register  int 

Arg 

Widget 


1; 

args [10] ; 

shell,  form,  f_data. 


/* 

* 

*/ 


XtCallbackProc  cb_chg_zoom ( ) ; 
XEvent  event ; 

D (print f < "START  chg_zoom_menu\n" ) ) ; 
Create  the  shell  widget . 


f cmd; 


i - 0; 

shell  - tui_create_trans_shell  ( "Change  Zoom  Factor",  args,  i ) ; 

/* 

* Create  the  main  and  all  sub-forms . 

*/ 


i - 0; 
form 
f_data 
f cmd 


tui 

create^ 

form 

< 

shell. 

"form". 

TRUE,  args. 

i 

) ; 

tui~ 

c reate_ 

form 

< 

form. 

"f  data". 

FALSE,  args. 

i 

) ; 

tui_ 

_create_ 

form 

< 

form, 

"f_crod". 

FALSE,  args. 

i 

) ; 

/* 

★ 

★ 

★ 

★ 

* 

*/ 


Create  all  widgets.  Create  a label  widget  which  identifies  the  scale.  Create  a 
scale  widget  which  allows  the  new  value  to  be  selected.  Note  that  the  limits  of 
the  scale  are  1 to  990.  This  is  because  the  scale  only  handles  integer  values. 
The  1 and  990  correspond  to  0.01  and  9.90.  A resource  is  used  to  force  the 
current  value  to  be  displayed  as  the  proper  decimal  value. 


i - 0; 

tui_create_label  ( f_data,  "label",  "Zoom  factor",  args,  i ); 
i - 0; 

scale  - tui_create_scale  ( f_data,  "scale",  1,  990,  (int)  <Zoom_factor*100 . 0) , 

labels,  2,  args,  i ); 

/* 

* Create  separator  widget. 

*/ 


I* 

* 

*/ 


i - 0; 

XtManageChild  ( XmCreateSeparator  ( form,  "sepO",  args,  i ) 
Create  all  command  widgets  with  the  appropriate  callbacks. 


) ; 


i - 0; 


tui_ create_pushbutton  { f_cmd, 
tui__create_j>ushbutton  ( f_cmd, 
tui— create_jpushbutton  ( f_cmd. 
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Cancel" , 
OK” , 
Help” , 


cb__ chg_zoom, 
cb— chg_zoom, 
cb_chg_zoom. 


(caddr_t)  0 
(caddr_t) 1 
(caddr  t)2 


/* 

* Realize  and  popup  the  shell. 
*/ 


XtRealizeWidget  ( shell  ) ; 
Xt Popup  ( shell.  None  ) ; 
set_cmap  ( shell  ) ; 


* Wait  until  the  user  finishes  with  the  popup. 
*/ 


flag  - -1/ 

while  { flag  “ -1  ) ( 

XtNextEvent  ( &event  ) ; 

XtDispatchEvent  ( fievent  ) ; 


XtDestroyWidget  ( shell  ) ; 


* Return  the  value  selected  by  the  user  (0  is  for  not  verified,  1 

* verified. 

*/ 


D (print f ("END  chg_zoom_menu\n" ) ) ; 
return  ( flag  ) ; 


, args,  i ) 
, args,  i ) 
, args,  i ) 


is  for 
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/a************************************************************^^^^^^^^^ 

* MODULE  NAME:  cb_chg_zoom 

* 

* This  callback  function  is  called  when  the  user  selecta  one  of  the  buttona 

* on  the  form. 

* 

********************************** ********************************************^ 
/*  ARGSUSED  */ 

atatic  XtCallbackProc  cb_chg_zoom  ( w,  closure,  calldata  ) 


Widget  w; 


t*  Set  to  widget  which  in  which  callback  originated. 


{ 


caddr  t 


cloaure,  /*  Indicatea  the  aelected  button, 
‘calldata;  /*  widget-apecif ic  information. 


XtCallbackProc  cb_help(); 


int 


zoom  factor; 


D(printf ("START  cb_chg_zoom\n") ) ; 

/* 

* Process  OK  button.  Retrieve  the  value  of  the  scale.  Divide  the  value  by  100  and 

* save  in  the  extern  variable  (Zoom_f actor)  and  in  the  display  structure.  Note 

* that  the  scale  returns  values  in  the  range  of  1 to  990. 

*/ 

if  ( (int) closure  — 1 ) { 

XmScaleGet Value  < scale,  &zoom_factor  ) ; 

Zoom_f actor  - zoom_f actor  / 100.0; 

Dm_Address->display [Disp_Num] .dd_zfact  - Zoom_factor; 
flag  - (int) closure; 


/* 

* 

*/ 


Process  CANCEL  button.  Simply  set  (flag)  to  the  value  of  (cloaure) . 


*/ 

*/ 

*/ 


) else  if  ( (int) closure  --  0 ) { 
flag  — (int) closure; 


/* 

* If  help  button  was  selected, 
*/ 


display  the  appropriate  help  text. 


} else  if  ( (int) closure  2 ) 

cb_help  ( (Widget) 0,  (caddr_t)24,  (caddr_t)0  ); 

D (printf ( "END  cb_chg_zoom\n" ) ) ; 
return; 


» 


* MODULE  NAME:  chk_flg.c 


★ 

* This  function  sets  up  a counter  using  a timing  mechanism  to  monitor  the 

* setting  of  a flag.  The  flag  is  usually  a flag  used  for  communication  be- 

* tween  the  Display  Manager  and  the  Data  Handler. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

★ K.  Noonan  - Ford  Aerospace  Corporation 


★ 

* MODIFIED  FOR  X WINDOWS  BY: 


* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************/ 


♦include  <constants .h> 
♦include  <wex/EXmsg.h> 


int  chk_flg  ( flag,  wait_count,  value  ) 

*/ 
*/ 
*/ 

*/ 

D(printf ("START  chk_f lg\n" ) ) ; 

* 

* Digplay  the  wait  cursor  to  inform  the  user  that  a time-consuming  operation 

* is  about  to  take  place. 

*/ 


short  *flag, 

wait_count , 
value; 

{ 

short  pause_cnt  ■ 0; 


/*  flag  to  monitor 

/*  max.  number  of  pauses  to  do 

/*  end  value  of  the  passed  flag 

/*  counts  number  of  astpauses 


tui  start  wait  ( ) ; 


* Monitor  the  passed  flag  to  change  to  the  value  reguested*  If  no  change  then 

* pause  one  second  and  check  the  flag  again. 

*/ 

while  < ( *flag  !-  value  ) 66  ( pause_cnt  < wait_count  ) ) { 


fifdef 

SUN 

usleep  ( 

1000000  ) ; 

♦else 

astpause 

< 0,  1000 

fendif 

) 

pause_cnt++; 

/* 

* Restore  the  default  cursor. 

*/ 

tui_stop_ wait  ( ) ; 

/* 

* If  the  flag  was  not  set  within  the  specified  time  period,  return  an  error. 


if  { *flag  ! - value  ) 
return  { -1  ) / 


chk_flg.c 


/* 

* 

*/ 


Normal  return. 


D (printf ("END  chk_f lg\n") ) ; 
return  ( 0 ) ; 


I **★**★**★**★★* ******************* 

* MODULE  NAME:  chk_f  It . C 


chk_flt.c 


* This  function  validates  the  flight  ID  for  a given  display  by  checking  the 

* existing  flgiht  ID's  and/or  if  a new  flight  ID  can  be  added  to  the  work- 

* station. 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

★ K.  Noonan  - Ford  Aerospace  Corporation 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★a****************************************************************************/ 


♦include  <constants .h> 
♦include  <disp.h> 
♦include  <wex/EXmsg.h> 


extern  struct  dm  shmemory  *Dm  Address; 

/* 

address  of  shared  memory 

*/ 

extern  short 

Disp_Num, 

/* 

slot  nbr  where  the  display  info  is 

*/ 

Flt_Selected; 

/* 

Yes,  if  flight  and  data  type  have  been 

*/ 

int  chk_f It  ( add  ) 

short 

{ 

struct  disp_info 

add; 

/* 

set  to  yes  if  a fit  is  to  be  added 

*/ 

^display; 

/* 

ptr  to  current  display  information 

*/ 

int 

error  - NO; 

/* 

return  value  for  valid  fit  info 

*/ 

short 

match  - NO, 

/* 

set  to  yes  if  match  is  found 

*/ 

i f 

/* 

counter 

*/ 

strm_nbr; 

/* 

stream  number  of  the  flight 

*/ 

D (pr int f(" START  chk_ 

_flt\n") ) ; 

/* 

* Check  the  flight  Id  and  stream  type  that  are  in  the  Display  Manager 

* shared  memory  for  each  stream  with  the  flight  Id  and  stream  type  for  the 

* new  display.  If  there  is  no  match  then,  if  the  number  of  streams  is  less 

* than  the  number  of  flights  allowed,  then  store  the  flight  Id  and  stream 

* type  of  the  display  in  the  Display  Manager  shared  memory.  If  the  number 

* of  stream  is  the  maximum  already,  advise  and  return  an  error.  If  a match 

* is  found,  then  store  the  stream  Id  in  the  display  information  table.  Set 

* the  flight  connection  flag  to  YES.  This  is  used  when  a user  wants  to 

* add  another  flight  and  stream  type.  If  other  displays  are  using  the  both 

* the  flight  and  stream  type,  then  the  user  will  not  be  allowed  to  add 

* another  flight  and  stream  type. 

*/ 


display  - &Dm_Address->display  [Disp_Num]  ; 
for  < i - 0;  i < MAX_FLTS;  i++  ) { 

♦if  FAC  “ YES 

if  ( { { strncmp  ( Dm_Address->strm[i] . f lt_id,  display->f  light_id,  4 ) ) =*«  0 ) 

&&  < strncmp  ( Dm_Address->3trm[i] . strm_type,  display->strm_type,  2 ) ) ==  0 ) 


♦else 
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♦endif 


» 


if  { ( ( strncmp  ( Dm_Addres3->3trm[i3  . f lt_id,  display->f  light_id,  3 ) ) — 0 ) 
66  ( strncmp  ( Dm_Addre33->strm [i] . 3trm__type,  display->3trm_type,  2 ) ) ~ 0 


{ 


) 


if  ( ( display->flight_id[0]  !-  0 ) 66  < display->strm_type [0] 
match  « YES; 
strm_nbr  - i; 
if  ( add  --  YES  ) { 

display->strm__no  - i; 

Flt_Selected  - YES; 

Dm_Addre33->3tnn[3trin_nbr]  . nbr_conn++; 

) 

break; 


0 ) ) { 


if  ( < match  — NO  ) 66  ( add  — YES  ) ) { 

if  ( Dm_Addres3->process .nbr_st reams  < MAX_FLTS  ) { 
for  ( i - 0;  i < MAX_FLTS;  i++  ) { 

if  ( Dm_Address->strm[i] .nbr_conn  <-  0 ) { 

strawibr  - i; 
break; 

} 

} 

♦if  FAC  — YES 


♦else 

♦endif 


strncpy  < Dm_Addre33->strm[3trm_nbr]  . f lt_id,  display->f  light_id,  4 ); 

strncpy  ( Dm_Address->3trm(3trTn_nbr]  . f lt_id,  display->f  light_id,  3 ); 

strncpy  ( Dm_Addres3->3trm(strm_nbr]  . strm_type,  display->strm_type,  2 ); 
display->3trm_no  - st  rirwibr ; 

Dm_Addr es s - >p r oces s . nbr_s t re ams++ ; 

DmL_Address->strm[strm_nbr]  . nbr_conn++; 

Flt_Selected  - YES; 
else  { 

tui_msg  { M_YELLOW,  "Maximum  number  of  flights  exceeded  on  this  workstation" 


Flt_Selected  - NO; 
error  - YES; 

1 

} 


/* 

* If  a match  was  found  and  the  flight  is  not  to  be  added,  but  taken  away, 

* then  decrement  the  number  of  connects  to  the  stream.  If  this  was  the  only 

* display  using  this  stream,  then  decrement  the  number  of  streams  active. 

*/ 


if  ( { match  --  YES  ) 66  ( add  — NO  ) ) { 
Dm_Addres3->3trm  [strmjnbr]  . nbr_conn — ; 
if  ( Dm_Addres3->3trm[strm_nbr]  .nbr_ conn  <-  0 ) { 
Dm_Address->strm[strm_nbr] . flt_id[0]  - 0; 
Dm_Address->strm[strm_nbr]  .strm_type [0]  - 0; 
Drn_Addres3->process  . nbr_3t reams — ; 

} 

} 


} 


D(printf ("END  chk_flt\n") ) ; 
return  ( error  ) ; 


chk_res.c 

Y* **************************** ***** *********************** ************** ******* 

* MODULE  NAME:  chk_res.c 

* 

* This  function  checks  the  access  restriction  code  for  files  that  have  been 

* restricted  by  medical  or  payload  users . 

* 

★ 

★ ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* K.  Noonan  - Ford  Aerospace  Corporation 

* 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  * Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************/ 


♦include  <constants . h> 
♦include  <disp.h> 
♦include  <wex/EXmsg.h> 


int  chk_res  ( access , pos_id  ) 

3hort  access;  /*  Access  restriction  code.  */ 

char  *pos_id;  /*  Position  Id  to  validate  against.  */ 

{ 

short  restricted;  /*  Return  flag.  */ 

D {print f ("START  chk_res\n" ) ) ; 

/* 

★ Check  to  see  if  MEDICAL  or  PAYLOAD  access  restricted.  If  so,  then  advise. 

*/ 

restricted  - NO; 
switch  ( access  ) { 

case  MEDICAL_USR: 

if  ( { strcmp  ( pos_id,  "MED\0"  ) !-  0 ) ) { 

tui_msg  ( M_YELLOW,  "Medical  file  - access  restricted"  ) ; 
restricted  - YES; 

} 

break; 

case  PAYLOAD_USR: 

if  ( ( strcmp  ( pos_id,  "PAY\0"  ) !-  0 ) ) { 

tui_msg  ( M_YELLOW,  "Payload  file  - access  restricted"  ) ; 
restricted  - YES; 

} 

break; 
default : 
break; 

} 

/* 

* Return  the  (restricted)  flag. 

*/ 


} 


D (printf ("END  chk_res\n") ) ; 
return  ( restricted  ) ; 


cleanup.c 

/****************************************************************************** 

* MODULE  NAME:  cleanup.c 

★ 

* This  function  does  all  processing  necessary  to  cause  the  Display  Manager 

* to  exit. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* K.  Noonan  - Ford  Aerospace  Corporation 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

a*****************************************************************************/ 


♦include  <X11/Xlib.h> 
♦include  <X11/ Intrinsic .h> 
♦include  <sys/types . h> 
♦include  <sys/ipc,h> 
♦include  <sys/shm.h> 
♦include  <signal.h> 
♦include  <constants .h> 
♦include  <disp.h> 

♦include  <wex/EXmsg.h> 


extern 

Widget 

Top; 

/* 

The  top  level  widget . 

*/ 

extern 

struct  dm_s hmemo r y 

*Dm_ Address; 

/* 

address  of  Display  Manager 

shm 

*/ 

extern 

short 

Disp_Num, 

/* 

slot  nbr  where  the  display 

info  is 

*/ 

Msg_Popup_Flag; 

/* 

Controls  display  of  message 

popups. 

*/ 

extern 

int 

errno. 

/* 

system  return  error  value 

*/ 

Dm  Id; 

/* 

Display  Manager  SHM  Id 

*/ 

int  cleanup  { ) 
( 


short 

error. 

/* 

return  value  from  function  calls 

*/ 

disp_init  - NO, 

/* 

YES,  if  a display  was  up 

*/ 

pos_indx; 

/* 

position  Id  index 

*/ 

D (printf ("START  cleanup\n" ) ) ; 

/* 

* th®  Displayer  task  is  active,  set  the  halt  flag  in  shared  memory.  Then 

* call  the  check  flag  routine  check  for  the  displayer  halt  acknowledge  flag 

* to  be  set  by  the  Displayer  task.  If  the  Displayer  task  has  not  halted  then 

* kill  the  task. 

*/ 

if  ( Dm_Address->display [Disp_Num] ,disp_init  | | 

Dm_Address->display  [Disp_Num]  . dispjid  !-  -1  ) { 

Dm_Address->display  [Disp_Num]  . act ive_di splay  * NO; 

Dm_Addres3->display [Disp_Num] .halt  - YES; 
disp_init  - YES; 

exit_disp  ( Disp_Num  ) ; 

} 


cleanup.c 


Decrement  the  number  of  active  display  tasks  for  this  workstation  and  the 

* number  of  Display  Managers  for  the  position  Id.  Clear  the  position  Id  in 

* the  table  if  no  more  users  for  the  position  Id.  If  this  is  not  the  last 

* display  manager  task,  then  set  the  display  structure  to  inactive  for  this 

* display  Notify  the  Data  Handler  of  a Displayer  task  halt  by  setting  its 

* clear  flag.  Call  the  check  fit  routine  to  delete  this  display  from  the 

* flight  information. 

*/ 

Dm_Address->process .disp_nbr — ; 

pos_indx  - Dm_Address->display [Disp_Num] .pos_id_indx; 

Dm_Address->process . nbr _pos [pos_indx]  ; 
if- ( Dm_Address->process .nbr _pos [pos_indx]  <-  0 ) { 

Dm_Address->process.pos_id[pos_indx] [0]  “ 0; 

if  ( { Dm_Address->process .disp_nbr  > 0 ) &S  ( disp_init  ) ) { 

Dm_Address->display [Disp_Num] .dh_clear  • YES; 

chk_flg  ( &Dm_Address->display [Disp_Num] .dh_clear,  5,  0 ); 
Dm_Address->di splay [Disp_Num] .disp_active  - NO; 
chk_f It  ( NO  ) ; 

Dm_Address->display [Disp_Num] .disp_init  “ NO; 

Dm~Address->display [Disp_Num] .halt  - NO; 

Dm_Address->display [Disp_Num] .disp_pid  - -1; 

} 


* This  is  the  last  display  manager  in  this  workstation.  Set  the  Data  Handler 

* halt  flag.  Call  the  check  flag  routine  to  time  the  halt  process.  If  the 

* halt  acknowledge  flag  is  not  set,  the  kill  the  process.  Remove  the  Display 

* Manager  shm. 

*/ 

if  ( Dm_Address->process.disp_nbr  <-  0 ) { 

Dm_Address->process.dh_not_halted  “ YES; 
Dm_Address->process.disp_halt_nbr  - Disp_Num; 

Dm_Address->process .dh_halt_ack  “ NO; 

error  - chk_flg  ( 4Dm_Address->process .dh_halt_ack,  10,  YES  ); 
if  ( error  ) 

kill  ( Dm_Address->process .dh _pid,  SIGKILL  ); 

) 

/*  . . 

* Turn  off  display  of  popups  and  advise  of  the  Display  Manager  exiting. 

*/ 


tui_msg_control  ( Msg_Popup_Flag  - FALSE  ) ; 

EXmsg  ( M_WHITE,  "Display  Manager  %d  exiting",  Dm_Address->process .disp_nbr+l  ) 


/* 

* Remove  the  main  control  panel  window. 
*/ 


XtDestroyWidget  ( Top  ) ; 


/* 

* If  this  is  the  last  Display  Manager,  remove  the  shared  memory  segment. 
*/ 


if  ( Dm_Address->process .disp_nbr  <-  0 ) { 

shmdt  ( Dm_Address  ) ; 
shmctl  ( Dm_Id,  IPC_RMID,  0 ) ; 


) 
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/* 

* Normal  return. 
*/ 


D (prlntf ( "END  cleanup\n" ) ) ; 
return  ( 0 ) ; 


* MODULE  NAME:  clear. c 


* 

★ This  function  clears  the  display  window,  frees  allocated  memory  for 

★ the  given  display,  and  resets  world  coordinates. 

★ 

* 

★ ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 

★ 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

a*****************************************************************************/ 


♦include  <stdio.h> 
♦include  <X11/Xlib.h> 
♦include  <constants . h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 
♦include  <DDplot.h> 
♦include  <wex/EXmsg.h> 


extern 

struct 

dm_  s hmemo  r y 

*Dm_Address; 

/* 

ptr 

to 

DM  shared  memory 

V 

extern 

struct 

bg_recs 

Bg_Rec ; 

/* 

Ptr 

to 

background  records 

*/ 

extern 

struct 

mtext  ent 

*Mtext ; 

/* 

ptr 

to 

multi-level  text  recs 

*/ 

extern 

struct 

fg  file  header  *Ffile; 

/* 

ptr 

to 

fg  ddf  header 

*/ 

extern 

struct 

plot_ptrs 

*Plot_info_ptr; 

/* 

ptr 

to 

plot  records 

*/ 

extern 

short 

Nbr_of_plots ; 

/* 

♦ of  plot  records 

*/ 

int  clear (disp_num) 

short  disp_num;  /*  number  of  display  to  clear  */ 

{ 


struct 

graph_record 

*graph_ptr; 

/* 

ptr 

thru  bg  graphics  records 

* / 

struct 

rec_header 

* bg_text_pt  r ; 

/* 

ptr 

thru  bg  text  records 

*/ 

struct 

mtext_ent 

*mtext_ptr; 

/* 

ptr 

thru  multitext  items 

*/ 

struct 

plot_ptrs 

*plot_ ptr; 

/* 

ptr 

thru  plot  records 

*/ 

struct 

lim_lines 

*nline_ptr; 

/* 

ptr 

thru  nom/lim  lines 

*/ 

short 

i; 

/* 

loop  counter 

*/ 

D (print f ("START  clear \n") ) ; 

/* 

* Verify  the  display  is  active 
*/ 


if  ( Dm__Address->di splay  [disp_num]  ,disp_active  ~ NO)  { 

tui_msg (M_YELLOW,  "Display  %d  not  active",  disp_num)  ; 
return ( 0) ; 


} 


Clear  the  window 


clear.c 


/ 


XClearWindow  (Dm_Address->xdi splay  [disp_num]  , Dm_Address->window  [disp_num] ) 


Destroy  plot  widgets  for  all  plots. 

Deallocate  memory  allocated  for  plot  records. 

Deallocate  buffer  memory  for  all  previously  active  plots. 


plot_ptr  - Plot_info_ptr; 

for  (i-0;  i<Nbr_of_plots;  i++)  { 
plot_ptr  - Plot_info_ptr  + i; 

XtDestroyWidget (plot_pt  r->draw__win) ; 
f ree ( (char  *) plot_ ptr->plt_decom) ; 
free ( (char  *)  plot_ ptr->msids) ; 
free ( (char  *) plot_ptr->axis) ; 

if  (plot_ ptr->header->nline_num  >0)  { 

nline_ptr  - plot_ptr->nline; 

for  (i-0;  i<plot_ptr->header->nline_num;  i++)  { 
free ( (char  *) nline_ptr->plotjpts_ptr) ; 
nline_ptr++; 

} 

free ( (char  *) plot_ptr->nline) ; 


if  (plot_ptr->header->lline_num  >0)  ( 
nlinejptr  - plot_ptr->lline; 

for  (i-0;  i<plot_ptr->header->lline_num;  i++)  { 
free(  (char  *)  nline_ptr->plot_pts_ptr)  ; 
nline_ ptr++; 

} 

free ( (char  *) plotjptr->lline) ; 


if  (plot_ptr->prev_act_flg  --  YES) 

free  ( (char  *)  plot_ptr->plot_data)  ; 


) 


Deallocate  memory  allocated  for  background 
graphics  and  text  records . 


RLK  10/24/90  All  have  been  deallocated  except  points  arrays  and  vector  text 
character  arrays.  */ 

if  (Bg_Rec ,graph_num  >0)  { 

graphs ptr  - Bg_Rec  ,graph_rec; 

for  (i-0;  i < Bg_Rec .graph_num;  i++)  { 

free( (char  *) graph_ptr->graph_ptr)  ; 
graph_ptr++; 


} 


} 


f rea ( (char  *) Bg_Rec .graph_rec) 
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if  (Bg_Rec .char_num  >0)  { 

bg_text_ptr  - Bg_Rec . record; 

for  <i  - 0;  i < Bg_Rec ,char_ num;  i++)  { 

free  ((char  *) bg_textjptr->record_item) 
bg_text_ptr++; 

} 

f ree  ( (char  *)  Bg__Rec . record)  ; 

} 

/* 

* Deallocate  memory  allocated  for 

* foreground  multi-level  text  records. 

*/ 


mtext_ ptr  - Mtext; 

for  (i  - 0;  i < Ff ile->Mltxt_Num;  i++)  { 

free  ( (char  *)mtext^ptr->text_jDtr)  ; 
mtext_ptr++; 

) 


/* 

* Deallocate  memory  allocated  for  PBI  labels, 

* and  ddd_msids,  labels. 

*/ 

/* 

* Deallocate  memory  block  allocated  for 

* foreground  records. 

*/ 


free ( (char  *) Ff ile) ; 


/* 

* Restore  the  world  coordinates  to  0 and  100. 
*/ 


Dm_Address->display [disp_ num] . low_x  - 0.0; 
Dm_Addres3->display [disp_ num] . low_y  - 0.0; 
Dm_Address->display [disp_num] .high_x  - 100.0; 
Dm_Addres3->display [disp_num] .high_y  - 100.0; 

D (print f ("END  clear\n") ) ; 

return  (0) ; 

} 


clr_disp.c 

/★a**************************************************************************** 

* MODULE  NAME:  clr_disp.c 

★ 

* This  routine  sets  the  clear  display  flag  for  the  Data  Handler  task. 

* The  effective  display  is  removed  from  the  screen  and  all  memory  specific 

* to  that  display  freed  via  a call  to  exit_disp(). 

* In  addition,  the  default  PF  keys  are  read  back  into  the 

* active  PF  keys  file  and  the  initialization  screen  is  brought  back  up. 

* 
it 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* K.  Noonan  - Ford  Aerospace  Corporation 

* 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

* a****************************************************************************  j 


♦include  <signal.h> 
♦include  <memory.h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <pf_key.h> 
♦include  <wex/EXmsg.h> 


extern  struct  dm_3hmemory  *Dm_Address; 

extern  struct  pfkey_defs  Act_Pfkeys [PFKEY_COUNT] , 

Def_Pfkeys [PFKEY_COUNT] , 
Current  Com; 


extern  char 

extern  int 

extern  short 

int  clr_disp  ( ) 

{ 

struct  disp_ info 
short 


**Msid_list_ddd, 

**Msid_list_lim; 

Ms  id_num_ddd, 
Msid_num_lim; 

Pbi_Num, 

Disp_Num; 


♦display; 

error; 


D <printf ("START  clr_disp\n") ) ; 


/* 

♦ If  a display  is  currently  active,  then  copy  the  default  PF  key  definitions 

♦ into  the  active  structure.  Set  the  display  clear  flag  and  wait  for  a 

♦ response.  If  no  response,  advise  and  clear  the  flag  anyway. 

*/ 


display  - &Dm_Address->display [Disp_Num] ; 

if  ( display->active_display  — YES  ) { 

memcpy  ( (char  *) Act_Pfkeys,  (char  *) Def_Pfkeys, 
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PFKEY  COUNT  * sizeof  ( struct  pfkey_defs  ) ) ; 


* Call  the  exit_disp  routine  to  remove  the  display  from  the  screen 

* and  free  all  display-specific  memory. 

*/ 


if  (Dm_Address->display [Disp_Num] .disp_init)  ( 

Dm_Addres3->display [Disp_Num] . active_display  - NO; 
Dm_Address->display [Disp_Num] .halt  - YES; 

exit_disp (Disp_Num) ; 

} 


/* 

* Set  the  Data  Handler  display  clear  flag  and  wait  for  a response.  If  no 

* response,  advise  and  clear  the  flag. 

*/ 


display->dh_clear  - YES; 

error  - chk_flg  ( Sdisplay->dh_clear,  20,  0 ) ; 
if  ( error  ) { 

tui_msg  ( M_YELLOW,  "Error  in  Data  Handler  display  clear  for  display  %d", 
Disp_Num  ) ; 

} 

/* 

* If  we  are  clearing  out  an  old  display  with  PBIs,  clear  out  the  memory 

* used  by  the  PBIs . 

*/ 


if  ( ( Current_Com. func_no  mm  CLEAR_DISPLAY  ) | | 

( Current_Com. func_no  — ” START_DISPLAY  ) II 
( Current_Com. func_no  ””  START_PDISPLAY  ) ) { 

if  ( Pbi_Num  > 0 ) 
pbi_free  ( ) ; 


} 

/* 

* Draw  the  initialization  screen,  if  the  clear  command  has  been  selected. 

* Clear  the  display  active  flag. 

*/ 


) 


if  { Current_Com. func_no  “ CLEAR_DISPLAY  ) 
display->active_display  - NO; 


/* 

* If  a display  is  not  active,  then  advise. 
*/ 


else  { 

tui_msg  ( M_WHITE,  "No  display  has  been  initialized"  ) ; 

) 


/* 

* Free  MSID  lists  and  zero  counts. 
*/ 


free  ( (char  *)Msid_list_lim  ) ; 
free  ( (char  *)Msid_list_ddd  ) ; 


Msid  num  lim  - Msid  num  ddd  - 0; 
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D (printf ("END  clr_disp\n") ) ; 
return  ( 0 ) ; 


MODULE  NAME:  colorpal.c 

The  globals  file  contains  only  declaration  statements  of  variables. 
There  is  no  "executable  code"  in  the  file.  The  purpose  of  this  file  is 
for  an  easy  look  up  for  all  globals  variables. 


ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

C.  Davis  “ Ford  Aerospace  Corporation 


ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

Mark  D.  Collier  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 
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Colors  [128]  [3]  - { 

.0),  /*  dark  gray  #116  */ 


/*  light  violet  #114  */ 


/*  dark  violet  #113  */ 


/*  light  red  #112  */ 


{l.o. 

0.7, 

0.7}, 

{l.o. 

0.8, 

0.8), 

{l.o. 

0.9, 

0.9}, 

(0.2, 

0.0, 
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0.0, 

0.0}, 
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0.0, 
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0.0, 

0.0}, 
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0.0, 
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0.0, 

0.0}, 
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0.0, 
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0.0, 
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0.2, 
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0.2, 

0.1), 

{0.9, 
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0.1}, 
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0.4, 
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0.0), 
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0.0), 

{0.6, 

0.4, 

0.0}, 
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0.0}, 
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0.5}, 
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0.5}, 

{0.3, 

0.7, 

0.55), 

{0.2, 

0.8, 

0.5}, 

{0.5, 

0.9, 

0.5), 

(0.5, 

1.0, 

0.5}, 

{0.7, 

1.0, 

0.7), 

{0.8, 

l.o. 

0.8}, 
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/ * dark  red  #111  */ 


/*  orange  #110  */ 


/*  brown  #109  */ 


/*  yellow  green  #108  */ 


/*  yellow  #107  */ 


/*  grayish  green  #106  */ 


{0.2,  0.2,  0.0}, 
{0.3,  0.3,  0.1}, 
{0.3,  0.5,  0.1}, 
(0.4,  0.6,  0.1), 
{0.4,  0.75,  0.2}, 
{0.5,  0.8,  0.3), 


/*  brownish  green  #105  */ 


(0.6, 

0.8, 

0.4) 

(0.7, 

0.9, 

0.4) 

(0.0, 

0.3, 

0.0) 

(0.0, 

0.4, 

0.0} 

(0.0, 

0.5, 

0.0) 

(0.0, 

0.6, 

0.0) 

(0.0, 

0.7, 

0.0) 

(0.0, 

0.8, 

0.0} 

(0.0, 

0.9, 

0.0) 

(0.0, 

1.0, 

0.0) 

(0.0, 

0.2, 

0.5) 

(0.0, 

0.3, 

0.5) 

(0.0, 

0.4, 

0.5) 

(0.0, 

0.5, 

0.5) 

(0.0, 

0.6, 

0.5} 

(0.0, 

0.7, 

0.5) 

(0.0, 

0.8, 

0.5) 

(0.0, 

0.9, 

0.5) 

(0.3, 

0.2, 

0.8) 

(0.4, 

0.3, 

0.9) 

(0.5, 

0.4, 

1.0) 

(0.5, 

0.5, 

1.0} 

(0.5, 

0.7, 

1.0} 

(0.5, 

0.8, 

1.0) 

(0.4, 

0.9, 

1.0} 

(0.0, 

1.0, 

1.0} 

(0.0, 

0.1, 

0.2} 

(0.1, 

0.2, 

0.4) 

(0.1, 

0.2, 

0.5) 

(0.0, 

0.1, 

0.7) 

(0.0, 

0.1, 

0.8} 

(0.2, 

0.3, 

1.0) 

(0.3, 

0.4, 

1.0) 

(0.4, 

0.5, 

1.0} 

t 
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/*  bright  to  dark  green  #104  */ 


/*  blue-green  #103  */ 


/*  aqua  to  medium  blue  #102  */ 


/*  dark  blue  #101  */ 


colors.c 


* MODULE  NAME:  colors.c 


* This  routine  stores  a color  pallette  composed  of  128  different  colors  into 

* memory. 

* 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* C.  Davis  - Ford  Aerospace  Corporation 

* 


* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

fc*********************************************************************^^^^ 


# include  <X11/Xlib.h> 
♦include  <X11/Intrinsic .h> 
♦include  cconstants .h> 
♦include  <wex/EXmsg.h> 


extern  Widget  Top; 

extern  Colormap  Main_cmap; 

extern  short  Pixels [128]; 

extern  float  Colors [128]  [3] ; 

int  colors  ( ) 
{ 

XColor 

color; 

Display 

*display; 

int 

i; 

D (printf  (" 

/* 

START  colors\n")  ) ; 

* Save  the  display  and  set  color  flags. 
*/ 


display  - XtDisplay  ( Top  ) ; 
color. flags  - DoRed  | DoGreen  | DoBlue; 


l* 

Store  all  the  colors  into  the  display  manager  color  map.  Note  that  each 

* color  in  the  (Pixels)  array  is  offset  by  the  number  of  colors  used  for 

* Motif. 

*/ 

for  ( i - 0;  i < 128;  i++  ) { 

color. red  - (int) ( Colors [i] [0]  * 65535  ); 

color. green  - (int) ( Colors[i][l]  * 65535  ); 

color. blue  - (int) ( Colors[i][2]  * 65535  ); 

Pixels [i]  - color. pixel  - i + NUM_MOTIF_COLORS; 

XStoreColor  ( display,  Main_cmap,  Scolor  ) ; 


) 


/* 

* Normal  return. 
*/ 


D (printf ("END  colora\n")); 
return  ( 0 ) ; 
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/ 


* MODULE  NAME:  command.c 

* 


* This  function  is  the  main  command  processor.  It  accepts  commands  from  menus 

* and  function  keys  and  calls  the  correct  function. 

* 


★ 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* C.  Davis  - Ford  Aerospace  Corporation 

★ 


It 


* MODIFIED  FOR  X WINDOWS  BY: 

* 


Mark  D.  Collier 


Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★a************************************************************** 


*★*★★**★**★***  j 


♦include  <X11/Intrinsic ,h> 
♦include  cconstants .h> 
♦include  <disp,h> 

♦include  <pf_key.h> 
♦include  <wex/EXmsg.h> 


extern  struct  dm_shmemory  *Dm_Address; 
extern  struct  pfkey_ defs  Current_Com; 


extern 

short 

Dm_Halt, 

Disp_Num, 

Pbi_Disable, 

Flt_Selected, 

Msg_Popup  Flag 

Pbi__Hot_Ndx, 

Pbi_Num; 

extern 

int 

Ms id_n  um_ddd , 
Ms  id_num_l  im ; 

extern 

float 

Zoom_f actor; 

extern 

Widget 

Top, 

Pb  Alarm, 
Pb_Pbi , 
Pb_Log, 
Pb_Log  A, 
Pb_Msg, 

Pb  Pf; 

/*  task  halt  flag  */ 
/*  Display  Manager  number  */ 
/*  PBI  enable/disable  flag  */ 
/*  Yes  if  fit  info  has  been  input  */ 


/*  Pbi  Hot  index  of  the  Pbi  currently  hot*/ 
/*  Number  of  Pbi's  defined  for  this  disp  */ 


/*  current  zoom  factor  ★/ 


int  command  ( menu_flag  ) 

int  menu_f lag;  /*  YES  if  called  from  the  menu;  NO  if 

* called  from  a function  key. 

*/ 

{ 


short 


indx; 


/*  position  Id  index 


*/ 


D (print f (" START  command\n") ) ; 

/* 

If  selected  command  requires  a display  to  be  active,  but  no  display  is  present. 


command.c 


* generate  an  error. 
*/ 


switch  ( Current_Com. func_no  ) { 

case  CLEAR_DISPLAY  : 

case  FREEZE_DISPLAY  : 

case  RESTART_DISPLAY: 
case  HISTJTAB  : 

case  LIM_LIST  : 

case  LIM_MENU  : 

case  CHG_LIM  : 

case  DDD_UN LATCH  : 

case  DDD_UNL_ALL  ! 

case  PLOT_LIST  : 

case  P LOT J3  VRLAY  : 

case  SAVE_0 VRLAY  : 

case  ZOOM_D I S : 

if  ( Dm  Addre33->display [Disp_Num]  .disp_init  --  NO  ) { 

tui  msg  ( M_YELLOW,  "Command  rejected  - No  display  initialized"  ) ; 
return  ( 0 ) ; 

} 

} 


/* 

* If  selected  command  requires  the  flight  and  data  type  to  be  specified,  but  they 

* have  not  been  specified,  generate  an  error. 

*/ 


switch  ( Current_Com.func_no  ) { 

case  START_DISPLAY  : 

case  START_PD I SP  LAY  : 
case  GDR_CHG  : 

case  HISTJTAB  : 

case  LIM_LIST 
case  LIM_MENU  : 

case  CHG_LIM 
case  LIM_GRP 
case  LIM_GRP_OFF 
case  PLOT_LIST  : 

case  PLOT 

case  PLOT  OFF  : 

case  PLOTJD  VRLAY  : 

case  SAVE_OVRLAY  : 

case  PLOT_UNV  : 

if  < Flt_Selected  — NO  ) { 

tui_msg  ( M_YELLOW,  "Command  rejected  - Flight  ID/data  type  not  input"  ) ; 
return  ( 0 ) ; 

) 

) 


* All  required  data  has  been  specified,  so  begin  processing  of  the  different 

* commands . 

*/ 

switch  ( Current_Com. func_no  ) { 


/* 

* Process  setting  of  the  popup  display  flag. 

*/ 


case  MSG  ON: 
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case  MSG_OFF: 

if  ( menu_ flag  --  ON  ) 

Msg_PoPuP_F1ag  - ( M3g_Popup_Flag 

else 

Msg_Popup_Flag  - ( Current_Com.  func_no  — 

if  ( Msg_Popup_Flag  — YES  ) 

set^label  ( Pb_Msg,  "Disable  Messages"  ) ; 

else 

set_label  ( Pb_Msg,  "Enable  Messages"  ) ; 
tui_msg_control  ( Msg_Popup_Flag  ) ; 
break; 


YES  ) 
MSG  ON  ) 


? NO  : 
? YES  : 


YES; 

NO; 


Read  and  set  the  flight  and  datatype. 


case  SET_FLIGHT: 
flt_data  ( ) ; 
break; 


Dump  screen  contents. 


case  SCRN_DUMP : 

tui_start_wait  ( ) ; 

system ("/usr/local/Xdump/ 400/xwd. 400  | /usr/local/Xdump/400/xpr . 400  | lp  -ograph"' 

tui_stop_wait  < ) ; 
break; 


Display/Allow  edit  of  colors. 


case  EDIT_COLORS: 
edit_colors  ( ) ; 
break; 


Terminate  the  program. 


case  HALT__D  I SPLAY : 
Dm_Halt  - YES; 
break; 


Get  the  display  name.  If  called  from  a menu,  allow  selection  of  the  name  from  a 
list  of  files;  otherwise,  allow  direct  entry  of  a name  via  a prompt.  If  a valid 
name  is  entered,  bring  up  the  new  display. 


case  STARTED ISPLAY : 
if  ( menu_flag  ) 
sel_disp  ( ) ; 

else 

get_disp  ( ) ; 

if  ( Current_Com.  func_no  — S T ART_PD  ISP  LAY  ) 
new_disp  ( ) ; 
break; 
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/* 

* If  a display  name  has  been  specified  and  the  flight  information  has  been 

* selected,  then  call  the  new  display  routine.  If  no  error,  then  clear  the 

* check  screen  variable,  otherwise,  if  a display  is  not  active,  then  redraw 

* the  initialization  screen. 

*/ 

case  START_PDISPLAY: 

if  < Current^ Com. disp_name [0]  !-  '\0 ' ) 
new_disp  ( > ; 

else 

tui_msg  ( M__YELLOW,  "Command  rejected  - No  display  name  specified"  ) ; 
break; 

/* 

* Remove  the  current  display. 

*/ 

case  CLEARED I SPLAY : 
clr_disp  { ) ; 
break; 

/* 

* Based  on  the  current  state,  FREEZE  or  PAUSE  a display. 

*/ 

case  FREE  ZE_D  I SPLAY : 
case  RESTARTED I SPLAY: 

Dm_Address->display [Disp_Num] ,disp_pause  - 

( Dm_Address->display [Disp_Num] .disp_ pause  ) ? NO  : YES; 
if  ( Dm_Address->display [Disp__ Num] .dispjpause  ) 
set_label  ( Pb_Pf , "Restart  Display"  ) ; 
else  { 

set_label  ( Pb_Pf , "Freeze  Display"  ) ; 
set_timer  ( Disp__Num  ) ; 

} 

break; 

/* 

* Store  the  new  display  update  rate. 

*/ 

case  UPD_RATE: 

if  < menu_flag  ) 
upd_rate  ( ) ; 

else 

Dm_Address->display [Disp_Num] .update_rate  - Current_Com.  rate; 
break; 

/* 

* Unlatch  DDD 9 s . Note  that  the  DDD_UNL_ ALL  command  is  only  generated  via  the  menus. 
*/ 


case  DDD_UNLATCH: 
case  DDD_UNL_ALL : 

if  ( Msid_num_ddd  --  0 ) 

tui__msg  ( M_YELLOW,  "No  DDD's  in  current  display"  ); 
else  { 

if  ( Current_Com.  func_no  — DDD— UNL_ALL  ) { 

Dm__Addre ss->di splay  [Disp_Num]  .action  - ALL; 
Dm_Address->di splay  [Disp_Num]  . unlatch  - YES; 
unlatch  ( ) ; 

} else 
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if  ( menu_flag  --  YES  ) 

ddd_msid  ( NOT_READY  ) ; 

else 

ddd_msid  ( READY  ) ; 

} 

break; 


/* 

* Change  GDR  retrieval  information. 
*/ 


case  GDR_CHG: 

chg_gdr  ( ) ; 
break; 


/* 


* 


*/ 


Toggle  the  position  Id  alarm  flag.  Get  the  index  to  the  current  position 
Id  flag.  Store  the  action  in  the  alarm  flag.  Advise  of  the  current 
status . 


case  POS_ALARM: 
case  POS_ALARM_OFF : 

indx  - Dm_Address->display  [Disp_Num]  ,pos_id_indx; 
if  ( menu_flag  — ON  ) 

Dm_Addres3->proces3  .alarm [indx]  - 

( Dm_Address->process . alarm (indx]  — ON  ) ? OFF:  ON; 

else 

Dm_Address->process .alarm [indx]  - 

( Current_Com. func_no  POS_ALARM  ) ? ON  : OFF; 

if  ( Dm_Addres3->process .alarm [indx]  ~ ON  ) { 
set_ label  ( Pb_Alarm,  "Disable  Alarms"  ); 
tui_msg  ( M__WHITE,  "Position  Id  %s  alarm  enabled", 
Dm_Address->process .pos_id [indx]  ) ; 

} else  { 

set_label  ( Pb_Alarm,  "Enable  Alarms"  ) ; 
tuijnsg  ( M__WHITE,  "Position  Id  %s  alarm  disabled", 
Dm_Address->process  .pos_id[indx]  ) ; 

} 

break; 


/* 

* Enable/Disable  PBI's. 
*/ 


case  PBI_ENABLE : 
case  PBI_DISABLE: 

if  ( menu_f lag  «- 
Pbi_Disable  - 

else 

Pbi  Disable  - 


YES  ) 

( Pbi_Disable  — ENABLED  ) ? DISABLED  : ENABLED; 

( Current_Com.func_ no  “ PBI_ENABLE  ) ? ENABLED  : DISABLED; 


if  ( Pbi_Disable  --  ENABLED  ) { 

set_label  ( Pb_Pbi,  "Disable  PBI's"  ); 
tui_msg  ( M_WHITE,  "PBI  Input  enabled"  ) ; 
} else  { 

set_label  ( Pb_Pbi,  "Enable  PBI's"  ); 
tui__msg  ( M_WHITE,  "PBI  Input  disabled"  ) ; 

} 

break; 


/* 

★ 


Process  Display  Log  enable  commands. 


case  LOGDISABLE_DISPLAY: 
case  LOGEN ABLE_D ISP  LAY : 

if  ( menu_flag  ■-  YES  ) 

Dm_Address->display [Disp_Num]  . log_enable  - 

( Dm_Addres3->display [Disp_Num]  . log_enable  — YES  ) ? NO  : YES; 

else 

Dm_Address->di splay [Disp_Num] . log_enable  - 

( Current_Com.func_no  — LOGD I S ABLE_D ISP  LAY  ) ? NO  : YES; 

if  ( Dm_Address->di splay [Disp_Num] . log_enable  — NO  ) { 

set_label  ( Pb_Log,  "Enable  Logging"  ) ; 
tui— msg  ( M_WHITE,  "Display  Logging  disabled"  ) ; 

} else  { 

set_label  ( Pb_Log,  "Disable  Logging"  ) ; 
tui_msg  ( M_WHITE,  "Display  Logging  enabled"  ) ; 

} 

break; 


/* 

* Process  Enable  All  logging  commands, 
*/ 


case  LOGDISABLE_ALL: 
case  LOGENABLE_ALL : 

if  ( menu_f lag  — YES  ) 

Dm_Address->process . log_enable  - 

{ Dm_Address->process . log_enable  — YES  ) ? NO  : YES; 

else 

Dm_Address->process . log_enable  - 

( Current_Com.  func_no  — LOGDISABLE_ALL  ) ? NO  : YES; 

if  ( Dm_Address->process , log_enable  NO  ) { 

set_ label  ( Pb_Log_A,  "Enable  All  Logging"  ) ; 
tui_msg  ( M_WHITE,  "All  Logging  disabled"  ) ; 

} else  { 

set_label  { Pb_Log_A,  "Disable  All  Logging"  ) ; 
tui_msg  ( M_WHITE,  "All  Logging  enabled"  ) ; 

} 

break; 


/* 

* List  limit  group  files  and  allow  user  to  turn  one  on  or  off. 
*/ 


case  LIM_LIST: 

if  ( Msid_num_lim  — 0 ) 

tui_msg  ( M_YELLOW,  "No  MSID's  appropriate  for  limits  in  current  display"  ) 

else 

list_f iles  ( YES , FALSE  ); 
break; 


/* 

* Enter  MSID  and  limits  to  change  and  notify  the  Data  Handler  of  the  new  limits. 
*/ 


case  LIM__MENU: 
case  CHG__LIM: 

if  ( Msid_num_lim  “ 0 ) 

tui_msg  ( M_YELLOW,  "No  MSID's  appropriate  for  limits  in  current  display"  ) 

else 

chg_lim  ( ) ; 
break; 
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/* 

* Turn  on  or  off  a limit  group.  These  commands  will  only  come  from  function  keys  and 

* PBI's. 

*/ 


case  LIM_GRP : 
case  LIM_GRPJDFF: 

if  ( Msid_num_lim  “ 0 ) 

tui_msg  ( M_YELLOW,  "No  MSID' s appropriate  for  limits  in  current  display"  ) ; 

else 

lim_grp  ( ) ; 
break; 

/* 

* Process  the  list  plot  command. 

*/ 

case  PLOT_LIST: 

list_f lies  ( NO,  FALSE  ) ; 
break; 

/* 

* Process  the  plot  stop  and  start  commands  and  the  plot  overlay  command.  These 

* commands  will  only  come  from  function  keys  and  PBI's. 

*/ 


case  PLOT: 
case  PLOT_OFF: 
get_plot  ( ) ; 
break; 


/* 

* Process  the  display  and  save  overlay  commands. 
*/ 


case  PLOT_OVRLAY: 
case  SAVE_OVRLAY : 

if  ( menu_flag  ) 

plot_ovl  ( NO  THREADY  ) ; 

else 

plot_Ovl  ( READY  ) ; 

break; 


/* 

* Process  the  universal  plot  definition  command. 
*/ 


case  PLOT_UNV : 

unv_plot  ( ) ; 
break; 


/* 

* Zoom  the  display/Reset  display  to  original  view 
*/ 


case  ZOOM_DIS: 

Dm_Address->display  [Disp_Num]  .dd_zoom  - ZOOM_DIS; 

zoom  < Disp_Num  ) ; 

break; 


/* 

* Unzoom  (reset  display  to  original  view) . 
*/ 


case  ZOOM_RES : 

Dm_Address->display  [Disp_Num]  .dd_zoom  - ZOOM_RES; 

zoom  ( Disp_Num  ) ; 

break; 


/* 

* Change  the  zoom  factor 
*/ 

case  ZOOM_FAC: 

if  ( menu_flag  ) 
chg_zoom  ( ) ; 

else  ^ ^ _ - 

Dm_Addre33->display [Disp_Num] .dd_zfact  - Zoom_factor  - Cur rent_Com. factor ; 

break; 


/* 

* Do  history  table. 
*/ 


case  HISTJTAB: 

if  ( menu_flag  ) 
hist_tab  ( ) ; 
else  { 

strcpy  { Dm_Address->display  [Disp_Num]  .display_name,  Current_Com.dxsp_name  ) 
strcpy  ( Dm_Address->display  [Disp_Num]  .plot_overlay,  Current_Com.ovr_name  ) 
Dm_Address->display  [Disp_Num]  .dh_htab  • YES; 

} 

break; 


★ Call  the  gdr  next  routine  to  process  the  GDR  get  next  command.  This  command  is  not 

* available  from  any  menu. 

*/ 


case  GDR_GETNEXT: 
gdr_next  ( ) ; 
break; 


/* 

* Execute  a UNIX  command.  This  command  is  not  available  from  any  menu. 
*/ 


case  UNIX_COMMAND: 

system  ( Current^ Com.mesg_j3tr  ) ; 
break; 


* Send  a message  to  another  process.  This  command  is  not  available  from  any  menu. 
*/ 


case  EXMSG_SEND: 

ex_msgsnd  ( &Current_Com  ) ; 
break; 

default : 
break; 


) 


/* 

* Normal  return. 


D (print f ("END  contmand\n" ) ) ; 
return  ( 0 ) ; 
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/a***************************************************************************** 

* MODULE  NAME:  date_chek.c 

* 

★ This  function  outputs  an  error  if  the  version  is  out  of  date, 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* C.  Davis  - Ford  Aerospace  Corporation 

* 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

★ Mark  D.  Collier  - Software  Engineering  Section 

★ Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 

a*****************************************************************************/ 


♦include  <constants ,h> 
♦include  <sys/types .h> 
♦include  <sys/timeb.h> 
♦include  <wex/EXmsg . h> 


♦define  SEPT  1 1990  900000000 


int  date_chek  ( ) 

{ 

struct  timeb  current_time; 
ftime  ( &current_time  ) ; 

if  ( current_time . time  > SEPT_1_1990  ) { 

tui_msg  ( M_YELLOW,  "This  Program  Version  is  out  of  date  after  September  1,  1990 

) ; 

tui_msg  ( M_YELLOW,  "Get  a new  version"  ) ; 
return  ( -1  ) ; 

} else  { 

return  ( 0 ) ; 


} 


* MODULE  NAME:  dcm  ent . c 


* 

* This  routine  locates  the  proper  entry  point  into  the  decom  and 

* data  buffers  and  calls  extract  to  extract  the  data. 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Richard  Romeo  - Ford  Aerospace  Corporation 

★ 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************** **********/ 


# include 
♦include 
# include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 


<stdio.h> 
cmemory . h> 
<sys/types .h> 
<X11/Xlib.h> 
<sys/timeb.h> 
<wex/EXmsg . h> 
<constants .h> 
<disp.h> 

<DDf g_graph . h> 
<DDdisp.h> 


extern  union  p_ data 

Data; 

/*  Local  ptr  for  union  structure. 

*/ 

extern  int 

Offset; 

/*  Offset  into  the  old  data  array. 

*/ 

extern  short 

No_Change; 

/*  No  change  of  data  flag. 

*/ 

extern  long 

Status_Color; 

/*  Status  color  for  dynamic  line. 

*/ 

extern  unsigned  char 

Graph_New_Data [60000] , 

/*  New  Data  Array 

*/ 

Graph_01d_Data [60000] ; 

/*  Old  Data  Array 

*/ 

int  dcm_ent  ( decom__ entry,  data_ buf,  msid_ info. 

firsts pass  ) 

struct  shm__decom 

*decom_entry; 

/*  Local  ptr  to  decom  buffer. 

*/ 

register  char 

*datajbuf ; 

/*  Ptr  to  data  buffer. 

*/ 

struct  msid_ent 

*msid_info; 

/*  Msid  entry  table  local  ptr. 

*/ 

short 

{ 

long 

f irst_pass; 

/*  First  pass  buffer  flag. 

*/ 

status; 

/*  Local  status  variable  for  msid. 

*/ 

int 

sample_size. 

/*  Sample  size  of  one  sample. 

*/ 

retval. 

/*  Return  value  of  memcmp. 

*/ 

skip_amt ; 

/*  Number  of  bytes  to  skip. 

* 

short 

dcm_error_f  lg; 

/*  Local  decom  error  flag. 

*/ 

unsigned  char 

*start_of_sample; 

/*  Start  of  sample  in  decom  buffer. 

*/ 
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* Check  for  decom  error  in  local  decom  buffer  and  calculate  number  of  bytea  that  have 

* to  be  skipped  per  sample 
*/ 


dcm_error— f lg  “ NO; 

if  { decom_entry->error  " NULL  ) { 

if  ( decom— entry->num_samps  > 0 ) { 

sample_size  - decom_entry->sample_size; 

if  ( msid_info->Sample  — -1  ) 

skip  amt  - ( decom_entry->num_samps  - 1 ) * sample^ size; 

else  { 

if  ( msid_info->Sample  > decom_entry->num_samps  ) 
dcm— error_f lg  ■ YES; 

else  _ , 

3kip_amt  - ( msid_ info->Sample  - 1 ) * sample_size; 

) 

if  ( dcm_error_f lg  ” NO  ) ( 

start_of_sample  * ( unsigned  char  * ) 

( data_ buf  + decom_entry->of f set  + skip_ amt  ) ; 

Check  data  buffer  for  status  of  bit  11,  set  change  bit  and 
call  extract. 


if  ( f irst_ pass  — 0 ) { 

memcpy  ( (char  *) &Graph_New_Data [Of f set] , 

(char  *) start_of_sample,  sample_size  ); 

Offset  +-  sample_size; 

} else  { 

retval  m memcmp  ( (char  *)  £Graph_New_Data  [Of  f set  ] , 

(char  *) &Graph_Old_Data [Offset ] , sample_size  ); 

if  ( retval  !-  0 ) { 

memcpy  ( (char  *) &Graph_01d_Data [Of f set] , 

(char  *) &Graph_New_Data [Offset] , sample_size  ); 

status  “ extract  ( &Graph New^JData  (Of f set]  , decom entry  ) t 

Status_Color  - stat_col  ( status,  msid_info  ) ; 

Offset  +-  sample^ size; 

No_Change  - NO; 

} 

} 

} 

} 

} else 

dcm_error_f lg  • YES; 
return  ( dcm_error_f  lg  ) ; 


} 
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/Jr***************************************************************************** 

♦ MODULE  NAME:  ddd.c 

★ 

* This  routine  will  determine  whether  a primitive  is  to  be 

* latched  by  extracting  the  value  associated  with  the  ddd  msid  and  comparing 

* the  value  to  the  latched  value  given  in  the  display  definition  table.  If 

* the  value  matches  the  latched  value,  then  the  msid  is  latched,  a latched 

* flag  is  set,  and  the  latched  color  is  stored. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* R.  Romeo  - Ford  Aerospace  Corporation 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

****************************************************************************^^ 


♦include  <stdio.h> 
♦include  <X11/Xlib.h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <DDdisp,h> 


extern  union  p_data  Data; 
extern  struct  data_info  *Dh_Address; 
extern  struct  msid_ent  *Msid; 
extern  struct  ddd_ent  *Ddd; 
extern  short  Disp_Num; 


/*  Pointer  for  data  union  structure. 
/*  Displayer  shared  memory. 

/*  Msid  entry  table  pointer. 

/*  Ddd  entry  table  pointer. 

/*  Display  number. 


long  ddd  ( dcm_buf,  data^buf,  indx,  firsts pass  ) 


register  struct  shm_decom 

register  char 

int 

short 

struct  msid_ent 
struct  shm_decom 
struct  ddd  ent 


Mcmjbuf;  /*  ptr  to  dcm  buffer 
*data_ buf;  /*  ptr  to  data  buffer 
indx;  /*  index  from  primitive  to  ddd 

first _pass;  /*  first  pass  buffer  flag 

*msid_info;  /*  msid  entry  table  pointer 
*decom_entry; /*  local  ptr  to  decom  buffer 
*ddd _ ptr;  /*  Ddd  entry  table  pointer 


int 

long 

short 


i#  /*  Ctr  flag, 

error;  /*  Error  flag. 

new_color  - INVALID; 

/*  determined  color  of  the  primitive 
latchable  - YES, 

/*  YES,  primitive  can  be  latched 
*loc__ddd_ptr  ; 


/* 

* Initialize  ddd  parameters. 
*/ 


*1 

*/ 

*/ 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


ddd_ptr  - Ddd  + indx  - 1; 
loc_ddd_j3tr  - ddd_ptr->ddd__app_jptr; 

if  ( ( !ddd_ptr->zero_locked  ) &&  ( ! ddd_ptr->one_locked  ) ) 


latchable  ■ NO; 


for  ( i - 0;  i < dddjptr->ddd_m3ida ; i++  ) { 

maid  info  - Maid  + *loc_ddd_j)tr  - 1; 


* If  the  maid  ia  already  latched,  then  get  the  ddd  latch  color  and  aet  the  latched 

* flag. 

*/ 


if  ( { maid_info->dddO_latch  ) &&  < dddjptr->zero_locked  ) ) { 

new_color  - ddd_j)tr->zero-val_cor ; 
break; 

} elae  if  ( ( msid_inf o->dddl_latch  ) &&  ( ddd_ptr->one_locked  ) ) { 

new_color  - ddd_ptr->one_val_cor ; 
break; 

} elae  { 

if  ( Dh_Address->msid_index[Diap_Num] [*loc_ddd _j>tr  - 1]  >-  0 ) { 

decom_entry  - dcm_buf  + 

Dh  Addre33->msid_index[Disp_Num] [*loc_ddd jptr  - 1] ; 


/* 

* Call  decom  buffer  entry  routine  to  extract  the  value  of  the  status 

* word  in  order  to  get  the  binary  discrete  for  the  ddd  logic. 

*/ 

error  - dcm_ent  ( decom__entry,  data_buf,  maid_info,  first_pasa  ) ; 
if  { error  --  NULL  ) { 

/* 

* The  locked  value  ia  a 0 . 

*/ 

if  ( Data.sldata [0]  — 0 ) { 

new_color  - ddd_j>tr->zero_val_cor; 
if  ( ddd_ptr->zero_locked  ) { 

maid_info->dddO— latch  - YES; 
break; 

} 

/* 

* The  locked  value  is  a 1 . 

*/ 


} else  { 

new^color  » ddd_j5tr->one_val_cor; 
if  ( ddd_ptr->one_locked  ) { 

maid_ info->dddl_ latch  - YES; 
break; 

} else  if  ( latchable  — NO  ) 
break ; 

} 

} else  if  ( new_color  --  INVALID  ) 

new_color  - maid_ info~>Dead__Color; 

} elae  if  { new_color  — INVALID  ) 

new^color  - maid_info->Dead_Color; 

} 

loc_ddd_jpt  r ++  ; 

} 

return  ( new  color  ) ; 


} 
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/a***************************************************************************** 

* MODULE  NAME:  dddjnsid.c 

★ 

* This  function  allows  the  user  to  unlatch  as  specific  DDD  MSID. 

* 

* 

* INTERNAL  FUNCTIONS: 

* 

★ o ddd__menu  - This  function  presents  the  menu  which  allows  the 

★ DDD  to  be  selected. 

★ 

* o cb_ ddd  - This  function  handles  all  callbacks  generated  by 

* the  menu. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* C.  Davis  - Ford  Aerospace  Corporation 

* 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

****************************************************************************** j 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio.h> 

<X11/ Intrinsic . h> 

<X11/Shell.h> 

<Xm/Xm.h> 

<Xm/mwm . h> 
<Xm/Text .h> 
<constants .h> 
<disp.h> 

<DDdisp . h> 

<pf_key .h> 
<user_inter . h> 
<wex/EXmsg . h> 


static  Widget  t_msid; 

static  int  flag; 


extern  Widget 
extern  struct  msid_ent 
extern  struct  pfkey_ defs 
extern  struct  dm__s hmemo r y 
extern  short 
extern  char 

extern  int 


Top; 

*Msid; 

Current_Com; 
*Dm_Addr e s s ; 
Disp__ Num; 

* *Ms  id_list_ddd. 


/*  current  commands  definition  */ 
/*  display  manager  shm  */ 

/*  display  manager  number  */ 


*Src_list  [] ; 
Ms  id  num  ddd; 


int  ddd_msid  ( ready  ) 


int 


ready; 


{ 

D(printf ("START  ddd_msid\n")  ) ; 


/*  If  TRUE,  indicates  that  display  of  a 
* menu  is  not  required. 

*/ 


* If  called  from  a function  key  or  if  values  were  entered  via  the  menu,  store  the  MSID 

* and  source  values  in  shared  memory. 

*/ 


if 


( ready  " YES  I I flag  YES  ) { , . , . 

strcpy  ( Dm  Address->display [Disp_Num] .msid_name,  Current_Com. limit_change .msid  ), 
strcpy  ( Dm~Address->display [Disp_Num] .src,  Current_Com.limit_change.src  ); 

tui  msg  ( M BLUE,  "msid  <%s>  src  <%s>",  Current_Com.limit_change.msid, 

“ “ Cur  rent  j Com.  limit_change . src  ); 

Dm_Address->display [Disp_Num] .action  - UNLATCH_MS ID ; 

Dm_Address->display [Disp_Num] .unlatch  - YES; 
unlatch  ( ) ; 


D (printf ("END  ddd_msid\n”) ) ; 
return  ( 0 ) ; 


/********************, »******************, **********, ►***************, ************** 

* MODULE  NAME : ddd_menu 

★ 

* This  function  presents  the  menu  which  allows  the  DDD  to  be  selected. 
*******************«*******o****************************n****«**************/ 

static  int  ddd  menu 
( 

register  int 

( ) 

i; 

Arg 

args [10] ; 

Widget 

shell,  form,  f_msid,  f_cmd; 

XtCallbackProc 

cb_ddd ( ) ; 

XEvent 

event ; 

Dtprintf ("START 

/* 

ddd_menu\n") ) ; 

* Create  the  shell 

* widget  call  does 
V 

widget.  Note  that  setting  the  args  in  the  create 
not  seem  to  work,  so  I set  them  afterward. 

i - 0; 

shell  - tui_create_trans_shell  { "Change  DDD  MSID",  args,  i ) ; 
i “ 0; 

XtSetArg  ( args[i],  XmNmwmlnputMode,  MWM  INPUT  APPLICATION  MODAL  )’  i++- 
XtSetValues  ( shell,  args,  i ) ; ~ ~ ' 


/* 

* Create  the  main  form. 

*/ 

i - 0; 
form 
f_msid 
f_cmd 

/* 

* Create  all  widgets . 

*/ 

i - 0; 

t_msid  - tui_create_sel  ( f_msid,  "t_msid",  Msid_list_ddd,  Msid_num_ddd, 

args,  i ); 

i - 0; 

XtManageChild  ( XmCreateSeparator  ( form,  "sepO",  args,  i ) ); 
i - 0; 

tui_create_pushbutton  ( f_cmd,  "Cancel",  cb_ddd,  (caddr  t)0,  args,  i )• 

tui_create_pushbutton  ( f_cmd,  "OK",  cb_ddd,  (caddr  t) 1,  args,  i )• 

tui_create_pushbutton  ( f_cmd,  "Help",  cb_ddd,  (caddr_t)2,  args,  i )• 


- tui_create_form  ( shell, 

- tui_create_form  ( form, 

- tui_create_form  ( form. 


"form",  TRUE,  args,  i ); 
"f_msid",  FALSE,  args,  i ); 
" f_cmd" , FALSE,  args,  i ) ; 


/* 

* Put  all  inputs  in  a tab  group. 
*/ 


"MSID 


/* 


XmAddTabGroup  ( t_msid  ) ; 


* 
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Realize  and  popup  the  shell. 


XtRealizeWidget  ( shell  ) ; 
XtPopup  { shell,  None  ) ; 
set_ cmap  ( shell  ) ; 


/* 

★ Wait  until  the  user  finishes  with  the  popup. 
*/ 


flag  - -1; 

while  ( flag  “ -1  ) { 

XtNextEvent  ( &event  ) ; 

XtDispatchEvent  ( &event  ) ; 


XtDestroyWidget  ( shell  ) ; 


/* 

* Return  the  value  selected  by  the  user  <0  is  for  not  verified,  1 is  for 

* verified. 

*/ 


} 


D(printf ("END  ddd_menu\n") ) ; 
return  ( flag  ) ; 


/******************************************************************************* 

* MODULE  NAME:  cb_ddd 

* 

* This  function  handles  all  callbacks  generated  by  the  menu. 

a************************************************************************.***.**  ^ 


/*  ARGSUSED  */ 

static  XtCallbackProc  cb_ddd  ( w,  closure,  calldata  ) 


Widget 

w; 

/* 

Set  to  widget  which  in  which  callback  originated. 

*/ 

caddr_t 

closure, 

/* 

Indicates  selected  command. 

*/ 

*calldata; 

/* 

Widget-specific  information. 

*/ 

register 

int  i; 

XtCallbackProc  cb_help() ; 

char 

*ptr, 

new_src  [4], 
real  arc  [4] ; 


D (printf ("START  cb_ddd\n") ) ; 

/* 

* Process  OK  button.  First  extract  and  verify  the  MSID. 

*/ 

if  ( (int) closure  — 1 ) ( 

strcpy  ( Current_Com.limit_change.msid,  ptr  - XmTextGetString  ( t_msid  ) ); 
free  ( ptr  ) ; 

/* 

* Verify  that  the  MSID  exists  and  set  index  into  list  of  MSID's.  If  MSID  is 

* invalid,  return. 

*/ 


/* 

★ 

*/ 


if  ( ( i - val_msid 
return; 


( Msid_list_ddd,  Msid_num_ddd, 
Current_C0m.limit_change.m3id  ) 


0 ) 


Save  the  corresponding  source  for  the  selected  MSID. 


strcpy  ( new_src,  (Msid+i) ->Data_Src  ) ; 
if  ( val_src  ( new_src,  real_src  ) --  0 ) { 

tui_msg  ( M_YELLOW,  "Invalid  data  source"  ) ; 
return; 

) 

strcpy  ( Current_Com.limit_change.src,  new_src  ); 
flag  - (int) closure; 


/* 

* Process  CANCEL  button. 
*/ 


) else  if  ( (int) closure  --  0 ) { 
flag  ” (int) closure; 

/* 

* If  help  button  was  selected,  display  appropriate  help  text. 
*/ 


} else  if  ( (int) closure  ““  2 ) 

cb_help  ( (Widget) 0,  (caddr_t)9,  (caddr_t)0  ); 

D (printf ("END  cb_ddd\n") ) ; 
return; 


* MODULE  NAME:  dec  val.c 


★ 

* This  function  validates  a decimal  value. 

★ 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* K.  Noonan  - Ford  Aerospace  Corporation 

* 


* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************^ 


♦include  <ctype.h> 
♦include  <constants -h> 
♦include  <wex/EXmsg . h> 


int  dec_val  { char_str  ) 

char  *char_str; 

{ 


short  i , 

decimal, 

valid; 

int  length; 

D(printf ("START  dec  val\n" 


/*  integer  or  decimal  character  string  */ 
/*  loop  counter  */ 

/*  counter  for  number  of  decimal  points  */ 
/*  set  to  YES  if  string  is  valid  */ 

/*  length  of  character  string  */ 

) ) ; 


/* 

* Get  the  length  of  the  character  string 
*/ 


i - 0; 

length  - strlen  ( char_str  ); 
valid  * YES; 
decimal  - NO; 


/* 

* First  character  may  be  "+"  or  If  not,  then  check  for  a decimal  or 

* a digit . 

*/ 

if  ( ( * ( char_str  + i ) — '+'  ) ||  ( * ( char_str  + i ) — ) ) { 

i++; 

} else  { 

if  ( isdigit  ( * ( char_str  + i ) ) !-  0 ) { 

i++; 

} else  { 

if  { * ( char_str  + i ) — ) { 

decimal  - YES; 

i++; 

} else  { 

valid  - NO; 

} 

} 

} 


/* 

* Loop  through  until  all  characters  are  validated  or  a character  is  found 

* invalid. 

V 


while  ( i < length  &&  valid  — YES  ) { 

if  ( isdigit  ( * ( char_str  + i ) ) !-  0 ) { 

i++; 

} else  { 

if  ( ( * ( char_str  + i ) — ' ) &&  { decimal  — NO  ) ) { 

decimal  - YES; 
i++; 

} else  { 

valid  ■ NO; 

} 

} 

) 


} 


D (print f ("END  dec_val\n" ) ) ; 
return  ( valid  ) ; 


/*  LINTLIBRARY  */ 


♦include  <stdio.h> 

♦include  <X11/Xlib.h> 

♦include  <constants . h> 

♦include  <disp.h> 

♦include  <DDdisp.h> 

♦include  <DDplot.h> 

♦include  <pf_key.h> 

♦include  <wex/FCpbi .h> 

int  DDpbi_updt  ( disp_num  ) 
short  disp_num; 

{ return  ( 0 ) ; } 

int  chg_gdr  ( ) 

{ return  { 0 ) ; } 

int  gdr__ menu  ( ) 

{ return  ( 0 ) ; } 

int  chg_lim  ( ) 

{ return  { 0 ) ; } 

int  chgl_menu  ( ) 

{ return  { 0 ) ; } 

int  chg_zoom  ( ) 

{ return  ( 0 ) ; } 

int  chg_zoom_menu  ( ) 

{ return  < 0 ) ; } 

int  chk_flg  ( flag,  wait_count, 
short  *flag, 

wait_count, 

value; 

{ return  ( 0 ) ; } 

int  chk_flt  ( add  ) 
short  add; 

{ return  ( 0 ) ; } 

int  chk_res  ( access,  pos_id  ) 
short  access; 
char  *pos_id; 

{ return  ( 0 ) ; } 

int  cleanup  ( ) 

{ return  ( 0 ) ; } 

int  clear  ( disp_num  ) 
short  disp_num; 

{ return  ( 0 ) ; } 

int  clr_disp  ( ) 

{ return  ( 0 ) ; } 

int  colors  ( ) 

{ return  ( 0 ) ; } 

int  command  ( menu_flag  ) 
int  menu_flag; 

{ return  ( 0 ) ; ) 


value  ) 
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int  date_chek  ( ) 

( return  ( 0 ) ; } 

int  dcm_ent  { decom_entry,  data_buf,  rnsid_info,  firstjpaas  ) 
struct  shm_decom  *decom_entry; 

register  char  *data_ buf; 

struct  msid_ent  *msid_info; 

short  first_pass; 

{ return  { 0 ) ; } 

int  ddd  ( dcni_Jbuf,  data buf,  indx,  first pass  ) 

register  struct  shin_decon\  *dcin_buf; 
register  char  *data_buf; 

int  indx; 

short  f irst_ pass; 

{ return  ( 0 ) ; } 

int  ddd_msid  { ready  ) 
int  ready; 

{ return  ( 0 ) ; } 

int  ddd_menu  ( ) 

{ return  ( 0 ) ; } 

int  dec_val  ( charts tr  ) 
char  *char_str; 

{ return  ( 0 ) ; ) 

void  draw_axs  ( disp_num,  plot_ptr,  axis _ptr,  xf  y,  width,  height  ) 
short  disp_num; 

struct  plot_j>trs  *plot j ptr; 

struct  axis_info  *axi3_ ptr; 

short  xf 

Yr 

width, 

height; 

{ return;  } 

int  draw_ovl  ( actjplot_ptr  ) 

struct  plot_ ptrs  *act^plot_ptr ; 

{ return  ( 0 ) ; } 

void  draw_plt  ( disp_num,  plot_inf o_ptr,  x,  y,  width,  height  ) 
short  disp_num; 

struct  plot_ptrs  *plot_info_ptr; 

short  x, 

Yt 

width, 

height; 

{ return;  } 

int  edit_colors  ( ) 

{ return  ( 0 ) ; } 

int  color__scales  ( ) 

{ return  ( 0 ) ; } 

int  color_select  ( color  ) 
int  color; 

{ return  ( 0 ) ; } 

int  ex_msgsnd  ( cmd_pt r ) 

struct  pfkey__defs  *cmd_j>tr; 


{ return  ( 0 ) / } 


int  exit_disp  ( diap_num  ) 
short  disp_num; 

{ return  ( 0 ) ; } 


int  extract  ( data— ptr,  decom_ptr  ) 
char  *data_ptr; 

struct  shm_decom  *decom_ptr; 

{ return  ( 0 ) ; } 

int  first_j?roc  ( ) 

{ return  ( 0 ) ; } 

int  flt_data  ( ) 

{ return  ( 0 ) ; } 

int  f lt_data_menu  ( ) 

{ return  ( 0 ) ; } 

int  gdr_next  ( ) 

{ return  { 0 ) ; } 

int  get_disp  { ) 

{ return  ( 0 ) ; } 

int  get_ fn  ( dir_f  ile_name,  no_dir_fn  ) 
char  * di  r_f  i le_name , 

*no_dir_fn; 

{ return  { 0 ) ; } 

int  get_plot  { ) 

{ return  ( 0 ) ; } 


int  hist_tab  ( ) 

{ return  { 0 ) ; } 


int  ht_init 
long 
long 

{ return  ( 0 


( entry_num,  htab_num  ) 
entry_num; 
htab_num; 

) ; } 


int  init  ( ) 

{ return  ( 0 ) ; } 


int  control_fpe  ( ) 

( return  ( 0 ) ; } 

int  init_ disp  ( disp_num  ) 
short  disp_num; 

{ return  ( 0 ) ; } 


int  init_fg  ( disp_num  ) 
short  disp_num; 

{ return  ( 0 ) ; ) 


int  init_label  ( ) 
{ return  ( 0 ) ; } 


int  int__ln  ( ulx,  uly,  lrx,  lry,  points, 
short  ulx, 
uly, 

lrx, 

lry. 


num_j?ts  ) 
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mimjpts ; 

XPoint  points!]/ 
{ return  < 0 ) ; ) 


int  lim_grp  ( ) 

( return  ( 0 ) ; } 


void  lim_ln  ( disp_num, 
int 

struct  plotjptrs 
struct  lim_lines 
struct  plot__tmplt 
{ return;  } 


plotJLnfo^ptr,  line_ptr, 
disp— num; 

*plot_info_ptr; 

*line_ptr ; 

*tmplt_ptr; 


tinplt^ ptr  ) 


int  limit_val  { limit  ) 
char  limit!]; 

( return  ( 0 ) ; } 


int  list— files  ( limit_list,  hist_flag  ) 
int  limit_list , 

hist_f lag; 

{ return  ( 0 ) ; } 


int  main  ( argc,  argv  ) 
int  argc; 

char  **argv; 

{ return  < 0 ) ; } 

int  new_disp  { ) 

{ return  ( 0 ) ; } 

int  p— atimei  ( t_string  ) 
char  t_string[]; 

{ return  ( 0 ) ; } 


int  p_dataval  ( decom_ptr  ) 

struct  shm__decom  *decom_jptr; 

{ return  ( 0 ) ; } 

void  p_itimea  ( time_int,  time_char  ) 
int  time_int; 

char  time_char [15]  ; 

{ return;  } 

int  parse_cmd  ( cmd_ struct,  cmd_string,  cmd_string_length,  pbi_or_ pfkey, 
struct  pfkey_defs  *cmd— struct; 

char  *cmd_string; 

int  cmd_string_length, 

pbi_or_pfkey, 

version; 

{ return  ( 0 ) ; } 

int  pbi_cmd  ( ) 

( return  ( 0 ) ; } 

int  pbi_  con  fig  ( disp_num, 
short 

struct  pbi_redraw_rect 
struct  pbi__changes 
int 

! return  { 0 ) ; } 


redraw__rect , pbi_changed,  number_of__changes  ) 
disp__num; 
redraw_rect ; 

*pbi_changed; 
number_of_changes ; 


version  ) 


int  pbi_free  < ) 

{ return  ( 0 ) ; } 
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int  pbi_host  ( ) 

{ return  ( 0 ) ; ) 

int  pbi_hot  ( x,  y ) 
int  x, 

y; 

{ return  { 0 ) ; } 

int  pbi_local  ( ) 

{ return  ( 0 ) ; } 

int  pbi_setup  { fit,  datatype  ) 
char  *flt, 

♦datatype; 

{ return  ( 0 ) ; ) 

int  pbi_updt  ( modified,  pbi_start,  pbi_entries  ) 
int  modified; 

PBI_ENTRY  *pbi_start ; 

int  pbi_entries; 

{ return  < 0 ) ; } 

int  pf_chk  ( New_Com  ) 

struct  pfkey_defs  *New_Com; 

{ return  ( 0 ) ; } 

int  plot^msid  < disp_num,  act_jplot_ptr  ) 
short  disp_num; 

struct  plot_ptrs  ♦act^plot  jptr; 

{ return  ( 0 ) ; ) 

int  plot_ovl  ( ready  ) 
short  ready; 

{ return  ( 0 ) ; } 

int  ovl_menu  ( ) 

{ return  ( 0 ) ; } 

int  free_lists  ( ) 

{ return  < 0 ) ; } 

int  proc_ pit  ( disp_num,  plot_ ptr  ) 
short  disp_num; 

struct  plot_ptrs  *plot_ ptr; 

{ return  ( 0 ) ; } 

int  read_disp  ( ) 

{ return  ( 0 ) ; ) 

int  read_fgr  ( disp_num,  ddf_ffp  ) 
short  disp_num; 

FILE  *ddf_ffp; 

{ return  ( 0 ) ; ) 

int  read__f  iles  ( limit_list  ) 
int  limit_list; 

{ return  ( 0 ) ; } 

int  read_ovls  ( list_file  ) 
char  ♦♦♦list_f  ile; 

{ return  ( 0 ) ; } 


int  read_pbi  ( ) 
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{ return  ( 0 ) ; } 

int  read_pf  ( def ault— f lag,  disp_name  ) 
char  default^ f lag, 

diap_name  [DNAME_LEN]  ; 

{ return  ( 0 ) ; } 

int  read_plt  ( disp_num,  plot_ptr  ) 
short  disp_num; 

struct  plot_ptrs  *plot_ptr; 

{ return  ( 0 ) ; } 

int  readbg  ( disp_num  ) 
short  disp_num; 

{ return  ( 0 ) ; } 

int  readfg  ( disp_num  ) 
short  disp_num; 

{ return  < 0 ) ; } 

int  redraw  ( disp_num,  ulx,  uly,  lrx,  Iry  ) 
short  disp_num, 

ulx, 

uly, 
lrx, 
lry; 

{ return  ( 0 ) / ) 

int  redwbg  < disp_num,  ulx,  uly,  lrx,  lry  ) 
short  disp_num, 

ulx, 

uly, 
lrx, 
lry; 

{ return  ( 0 ) ; } 

int  redwfg  ( disp_num,  ulx,  uly,  lrx,  lry  ) 
short  disp_num, 

ulx, 

uly, 
lrx, 
lry; 

{ return  ( 0 ) ; } 

int  sel_disp  ( ) 

{ return  ( 0 ) ; } 

int  set_cmap  ( widget  ) 

Widget  widget ; 

{ return  ( 0 ) ; } 


unsigned  long  set__gc  ( xdisplay,  gc,  gc_val,  graph_col,  line_type,  line_wdth, 

pat_type,  pat_sizex,  pat_sizey,  font  ) 


Display 

GC 

XGC Values 
short 


float 

Font 


*xdisplay; 

gc; 

*gc_val; 

graph_col, 

line_type, 

pat_type, 

pat^sizex, 

pat_sizey; 

line__wdth; 

font; 


{ return  ( (unsigned  long) 0 );  } 


int  set_label  ( widget,  label  ) 

Widget  widget ; 
char  *label; 

{ return  ( 0 ) ; ) 

int  set_timer  ( disp_nuxn  ) 
short  disp_num; 

{ return  ( 0 ) ; } 

int  shm_creat  ( ) 

{ return  ( 0 ) ; } 

int  sort_msid  ( msid_list,  nbr_msids,  nbr_recs  ) 
struct  msid_record  *msid_list; 
short  nbr_msids, 

nbr_recs ; 

( return  ( 0 ) ; } 

int  stat_col (status,  msid_info) 
long  status; 

struct  msid_ent  *msid_info; 

( return  ( 0 ) ; ) 

void  tickjnk  ( disp— num,  plot_info_ptr,  gc,  xpos,  ypos,  length,  xory  ) 
short  disp__num; 

struct  plot_ ptrs  *plot_info_ ptr; 

GC  gc; 

float  xpos, 

ypos, 

length; 

char  xory; 

{ return;  ) 

int  tixne_val  ( char_str  ) 
char  *char_str; 

{ return  ( 0 ) ; ) 

int  ui_init  ( argc,  argv  ) 
int  argc; 

char  **argv; 

{ return  < 0 ) ; ) 

int  unlatch  ( ) 

{ return  ( 0 ) ; ) 

int  unv_plot  ( ) 

{ return  ( 0 ) ; ) 

int  unv_menu  ( ) 

( return  ( 0 ) ; ) 

int  display_msid  ( ) 

{ return  ( 0 ) ; ) 

int  save_xy  ( ) 

( return  ( 0 ) ; ) 

int  save_msid  ( ) 

{ return  ( 0 ) ; } 

int  upd_rate  ( ) 

{ return  ( 0 ) ; ) 
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int  upd_rate_menu  ( update_rate  ) 
int  update_rate; 

{ return  ( 0 ) ; } 


int  update 

( disp_num  ) 

short 

disp  num; 

{ return  ( 

0 );  } 

int  updtbg 

( disp_ num  ) 

short 

disp  num; 

{ return  { 

0 );  } 

int  updtfg 

( disp_num, 

short 

struct 

shm_decom 

struct 

msid_ent 

struct 

tabular__ent 

long 

{ return  ( 

0 ) ; ) 

int  updtht 

( ) 

{ return  < 

0 >;  } 

decomj>tr,  lmsid,  tab_info, 
disp_num; 

*decom_ptr; 

*lmsid; 

*tab_inf o; 
status; 


int  short  val_dt  ( strm_type  ) 
char  strm— type  [ ] ; 

{ return  ( 0 ) ; } 

int  val_fn  ( file_name,  chk_wex  ) 
char  *file_name; 
short  chk_wex; 

{ return  { 0 ) ; } 

int  val_msid  { list,  count,  msid  ) 
char  **list, 

*msid; 
int  count; 

{ return  ( 0 ) ; } 

int  val_ ppl  ( file_name  ) 
char  *file_name; 

{ return  ( 0 ) ; } 

int  val_src  ( dataware,  real_src  ) 
char  *data_src, 

*real_  sre; 

{ return  ( 0 ) ; } 

int  valmsid  ( msid  ) 

char  msid[]; 

{ return  ( 0 ) ; } 

int  zoom  ( ) 

{ return  ( 0 ) ; } 


status  ) 


draw_axs.c 

/★*******************************^*******************************************#* 

* MODULE  NAME:  draw_axs 

★ 

* This  function  draws  axes,  tick  marks,  and  grid  lines  for  the  plot 

* associated  with  the  given  axis  information. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Tod  Milam  - Ford  Aerospace  Corporation/Houston 

★ 

* 

* MODIFIED  FOR  X-WINDOWS  BY: 

★ 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★a**************************************************************************** ^ 


♦include  <stdio.h> 
♦include  <string.h> 
♦include  <wex/EXmsg.h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 
♦include  <DDplot . h> 


extern  struct  dm_shmemory  *Dm_Address;  /*  ptr  to  DM  shared  memory 


*/ 


void  draw_axs  <disp_num,  plot_ptr,  axis_ptr,  x,  y,  width,  height) 


short 

disp_num; 

/* 

display  number  containing  plot 

*/ 

struct 

plot_ptrs  *plot_ptr; 

/* 

ptr  to  plot  template  structure 

*/ 

struct 

axis_info  *axis_jptr; 

/* 

ptr  to  axis  to  draw 

*/ 

short 

x,  y,  width,  height; 

/* 

coord  of  exposed  plot  area 

*/ 

Display  *xdisplay; 

/* 

ptr  to  X display  structure 

*/ 

Window 

xwindow; 

/* 

XID  of  effective  display  window 

*/ 

XPoint 

points [2] ; 

/* 

axis  endpoints 

*/ 

XGCValuea  *gc_val; 

/* 

ptr  to  GC  values  struct  in  DM  sh  mem 

*/ 

GC  gc; 

/* 

XID  of  GC  in  DM  sh  memory 

*/ 

struct 

plot_tmplt  *tmplt_ptr; 

/* 

ptr  to  plot  positional  information 

*/ 

double 

factor_x,  factor_y; 

/* 

transformation  factors 

*/ 

float 

space,  space2. 

/* 

spacing  for  maj/min  tick  mks  & grid 

*/ 

start,  stop; 

/* 

used  for  calculating  tick  marks 

*/ 

unsigned  long  gc_mask; 

/* 

GC  values  mask  for  XChangeGC 

*/ 

int 

count,  count2. 

/* 

loop  control  for  counting  tick  marks 

*/ 

i; 

/* 

loop  control 

*/ 

short 

of f set_x,  of f set_y. 

/* 

zoom  coordinate  offset  values 

*/ 

ma jor_tick,  minor_tick. 

/* 

maj/min  tick  mk  length  in  pixels 

*/ 

ma  jor__ of  f set , 
minor  offset; 
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/*  offset  location  of  major  tick  marks  */ 
/*  offset  location  of  major  tick  marks  */ 


D (print f ("START  draw_axs\n" ) ) ; 


/* 

* Setup  X variables,  transformation  factors, 

* and  local  pointers. 

*/ 


xdisplay  - Dm_Address->xdisplay [disp_num] ; 
xwindow  - XtWindow (plot  jptr->draw_win) ; 
gc_val  - &Dm_Address“>gc— val  [disp_num]  ; 
gc  - Dm— Address ->gc [disp_n urn] ; 

tmplt_ ptr  - plot_ptr->plot_pos; 

facto r_x  - tmplt_ptr->factor_x; 
factor_y  - tmplt_ptr->f actor_y; 
offset_x  - tmplt__pt  r->of  f set_x; 
offset_y  - tmplt_ptr->of f set_y; 


/* 

* Calculate  the  major  tick  mark  length.  Tick  mark  lengths 

* are  calculated  using  the  X transformation  only  to  prevent  different 

* length  tick  marks  on  the  X and  Y axes. 

*/ 


ma jor_tick  - (short)  MAJOR_TICK_LEN  * factor_x; 
minor  tick  - (short)  MINOR_TICK_LEN  * factor_x; 


/* 

* Set  the  line  parameters  for  the  axes  and  tick  marks 
*/ 


if  (gc_mask  - set_gc (xdisplay,  gc,  gc_val,  axis_ptr->axis_col,  1,  1.0, 

NO_C RANGE , NO_CHANGE,  NO— CHANGE,  NO_CHANGE) ) 
XChangeGC (xdisplay,  gc,  gc^mask,  gc_val) ; 


/* 

* Draw  the  axis  and  tick  marks  only  if  the  axis  is  visible 
*/ 

if  (axis_ptr->vis_f lag  — 9W)  { 

/* 

* If  angle  polar  processing  then  draw 

* x and  y axes  each  at  position  50 
*/ 


if  (axis_ptr->axis_xory  “ 'Yf  &&  axis_ ptr->axis_type  “ POLAR)  { 
points [0] .x  - 0; 

points [0] .y  * (short)  ((100  - axis_ptr->axis_pos)  * factor^ y) ; 
points [1] .x  « (short)  (100.0  * factor_x) ; 
points [1] .y  * points [0] .y; 

XDrawLine (xdisplay,  xwindow,  gc,  points [0] .x,  points [0] .y, 
points [1] .x,  points [1] .y) ; 

points  [0]  .x  - (short)  (axis_ptr->axis_pos  * factor_x) ; 

points  [0 ] . y - 0; 

points[l].x  - points[0].x; 

points [1] .y  - (short)  (100.0  * factor_y) ; 


XDrawLine (xdisplay,  xwindow,  gc,  points[0].x,  points[0].y, 
points [1] .x,  points [1] .y) ; 


/* 

* If  axis  is  not  a polar  distance  axis,  draw  x or  y 

* axis  for  current  axis  record. 

*/ 


} else  if  ( ! (axis— ptr->axis_xory  — 'X' 

&&  axis_ptr->axis_type  mm  POLAR) ) { 

if  (axis_ptr->axis_xory  “ 'X')  { 

points [0] .x  - 0; 

points  [0].y  - axis_ ptr->cur__axis_pos; 
points [1] .x  - tmplt_ptr->drw_width; 
points [1] .y  - points [0] .y; 

) else  if  (axis_ptr->axis_xory  " 'Y')  { 

points[0].x  - axis_ptr->cur_axis_pos; 
points [0] .y  - 0; 
points [1] .x  - points [0] .x; 
points [l].y  - tmplt_ptr->drw_height ; 

} else 

return; 

XDrawLine (xdisplay,  xwindow,  gc,  points[0].x,  points[0].y, 
points [1] .x,  points [1] ,y) ; 


/* 

* 

★ 

* 

* 

* 

*/ 


/* 

* 

*/ 


If  axis  is  near  top  or  right  of  plot  bounding  box  (pbx) 
align  tick  marks  with  axis  using  an  offset.  If  axis  is  in  the 
middle  of  the  pbx,  center  the  tick  marks  on  the  axis.  Else 
the  axis  is  near  the  bottom  or  left  of  pbx  and  tick  marks  will 
align  to  axis  w/o  an  offset. 


if  (axis_ptr->axis_xory  mm  ' X' ) { 


if  (axis_ptr->axis_pos  < 5)  { 
major_offset  - major_tick  * -1; 
minor_offset  - minor_tick  * -1; 
} else  if  (axis_ptr->axis_pos  > 
major_offset  _ minor_offset 
else  { 

major_offset  - major_tick  / 
minor_offset  " minor_tick  / 

» 


/*  axis  at  bottom  of  pbx  */ 


95)  /*  axis  at  top  of  pbx  */ 
- 0; 


/*  axis  in  midst  of  pbx  */ 

-2; 

-2; 


) else  { 


if  (axis_ptr->axis_pos  < 5)  { 
ma jor_of f set  • minor_offset 
) else  if  (axis_ptr->axis_pos  > 
major_offset  - majorat ick  * 
minor_offset  * minor_tick  * 
} else  ( 

major_offset  - major_tick  / 
minor^offset  • minor_tick  / 

> 

) 


/*  axis 


- 0; 
95)  { 
-1; 
-1; 


at  left  of  pbx  */ 

/*  axis  at  top  of  pbx  */ 


/*  axis  in  midst  of  pbx  */ 

-2; 

-2; 


Draw  major  tick  marks 
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if  (axisjptr->ma  j_ticks  > 0)  { 

space  - 100.0  / (axis^ ptr->ma  j_ticks  - 1); 

for  (count  - 0;  count  <*  axis_ ptr->ma j_ticks ; count ++)  { 

if  (axis— ptr->axis_xory  -»  'X') 

tick_mk  (disp_num,  plot_ ptr,  gc, 

(short) (count  * space  * factor^x)  + offset_x, 
axis_ ptr->cur_axis_pos  + ma jor_of f set r 
ma jor_tick,  axis_ptr->axis_xory)  ; 
else  if  (axis_ptr->axis_xory  — 'Y') 
tick_mk  (disp_num,  plot_ptr,  gc, 

axis_ptr->cur_axis_pos  + ma  jor_of f set, 

(short)  ( (100 . 0 - (count  * space)) 

* factor_y)  + offset_y, 
ma jor_tick,  axis_ptr->axis_xory) ; 

} 

) 


Draw  minor  tick  marks 


if  (axis_ptr->min_ticks  >0)  { 

space  - 100.0  / (axis_ptr->ma j_ ticks  - 1) ; 

for  (count  - 0;  count  < (axis_ptr->ma j_ticks  - 1);  count ++)  { 

start  - (count)  * space; 
stop  - (count  +1)  * space; 

space2  - (stop  - start)  / (axis_ptr->min_ticks  + 1) ; 

for  (count2  - 0;  count2  < axis_ptr->min_ticks  ; count2++)  { 

if  (axis_jptr->axis_xory  — 'X') 

tick_mk  (disp_num,  plot_ ptr,  gc, 

(short)  (((count2  + 1)  * space2  + start) 

* factor_x)  + offset_x, 
axis_ptr->cur_axis_po3  + minor__of fset , 
minor—tick,  axis_ptr->axis_xory) ; 


} 


else  if  (axis_ptr->axis_xory  — 'Y') 
tick_mk  (disp_ num,  plot_j>tr,  gc, 

axis_ ptr->cur_axis_pos  + minor_of f set , 
(short)  ((100.0  - ( (count 2 + 1)  * space2 
+ start))  * factory)  + offset_y, 
minor_tick,  axis_ptr->axis_xory) ; 


) /*  end  if  minor  ticks  > 0 */ 


) /*  end  if  not  distance  polar  axis  */ 

} /*  end  if  axes  are  visible  */ 


Draw  the  grid  if  it  is  visible 

if  (axis_ptr->grid_f lag  — 'Y' ) { 

if  (gc_mask  - set_gc (xdisplay,  gc,  gc_val,  axis _ptr->grd_color. 
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axis  _j3tr->grid_type,  1.0, 

NO_CHANGE,  NO_CHANGE,  NO_CHANGE,  NO_CHANGE) ) 
XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 


/*  RLK  10/25/90  Polar  axes  not  functional. 

if  (axis_j?tr->axis_type  — POLAR) 
DDp— polar  (axis_ptr) ; 

else  { 

*/ 


space  - 100.0  / (axis_ptr->grid_gran  - 1)  ; 


for  (count  - 0;  count  o axis_ptr->grid_gran;  count++)  { 


) 


if  (axis_ptr->axis_xory  — 'X') 

tick_mk  (disp_num,  plot_j?tr,  gc, 

(short)  (count  * space  * factor_x)  + offset_x, 

0,  tmplt_ptr->drw_height,  axis_ptr->axis_xory)  ; 
else  if  (axis_ ptr->axis_xory  ~ 'Y') 

tick_mk  (disp_num,  plot_ptr,  gc,  0, 

(short)  ((100.0  - (count  * space)) 

* factory)  + offset_y, 
tmplt_ptr->drw_width,  axis_ptr->axis_xory)  ; 


D (printf ( "END  draw_axs\n" ) ) ; 
return; 


} 


* MODULE  NAME:  draw  ovl.c 


* 

* This  routine  draws  a plot  overlay. 

* 

★ 

★ ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Richard  Romeo  - Ford  Aerospace  Corporation 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
***★★**★★*******★*************************************************************/ 


♦include  <stdio.h> 
♦include  <X11/Xlib.h> 
♦include  <fcntl.h> 
♦include  <wex/EXmsg.h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 
♦include  <DDplot.h> 


extern 

struct  dm_shmemory 

*Dm_Address ; 

/ 

extern 

struct  plot_ptrs 

*P lo t_inf o jpt r ; 

/ 

extern 

short 

Disp_Num, 

/ 

End_of_f  ile; 

/ 

extern 

int 

errno; 

/ 

* Pointer  to  Display  Manager  SHM.  */ 

* Ptr  thru  plot  ptr  files.  */ 

* Display  Number.  */ 

* End  of  data  file  flag.  */ 

* Error  return  value.  */ 


int  draw_ovl  ( plot_ptr 

) 

struct  plot_ ptrs 

{ 

struct  shm__decom 

*plot_ptr;  /* 

Ptr  thru  plot  ptr  files. 

*/ 

* 1 oc_dcm_pt  r ; 

/*  Ptr  thru  plot  decom  structure. 

*/ 

struct  plot_hdr 

*plot_hdr_pt  r ; 

/*  Ptr  thru  plot  header. 

*/ 

struct  shm_decom 

♦save^jdcm^ ptr; 

/*  Save  decom  buffer  ptr. 

*/ 

int 

kf  m,  if 

/*  Loop  count  variable. 

*/ 

next_of f set, 

/*  Nbr  of  bytes  for  offset  cal. 

*/ 

ovr__ plot_ fpf 

/*  Local  plot  file  pointer. 

*/ 

org_j>lot_  fp. 

/*  Save  plot  data  ptr. 

*/ 

save_buf_size; 

/*  Save  the  data  buffer  size. 

*/ 

char 

*calloc  ( ) , 

/*  Get  malloc  as  a pointer. 

*/ 

*malloc  ( ) f 

/*  Get  malloc  as  a pointer. 

*/ 

*save_data _ptrr 

/*  Save  the  data  buffer  ptr. 

*/ 

plot_ovr (DNAME_LEN 

+ 5]; 

double 

sav_seconds; 

/*  Save  seconds  elapsed. 

*/ 

/* 

* 

*/ 


D ( print f ("START  DRAW_OVL\n")  ) ; 

Copy  plot  name  from  memory  and  store  into  local  parameter. 
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strcpy  ( plot_ovr,  plot_ptr->plot_ovr  ) ; 

/* 

* Open  plot  overlay  data  file  and  read  decom  buffer. 
*/ 


strcat  ( plot_ ovr,  n.ovr"  ); 

org_plot__fp  - plot_ptr->plot_fp; 

plot_ptr->plot_fp  - open  ( plot_ovr,  0_RD0NLY  ) ; 

plot_ptr->ovr_f lg  - NO; 

if  ( plot_ptr->plot_fp  --  INVALID  ) { 

tui_msg  ( M__  YELLOW,  "Error  %d  on  opening  the  plot  overlay  data  file",  errno  ) 
plot_ ptr->ovr_flg  - NO; 
plot_ptr->plot_fp  - org_j)lot_fp; 
return  ( -1  ) ; 

} 

ovr_plot_fp  - plot_ptr->plot_fp; 


/* 

* Skip  over  decom  buffer  header  and  read  decom  buffer  to  memory. 

V 


lseek  ( ovr_plot_fp,  80,  0 ); 
save_jicm_ptr  - plot _ptr->plt_decom; 
plot_hdr_ptr  - plot_ptr->header; 
if  { plot_hdr__pt  r~>msid_num  > 0 ) { 

plot_ptr->plt_decom  - ( struct  shm_jiecom  * ) 

calloc  ( (unsigned)  plot_hdr_ptr->msid_num,  sizeof  ( struct  shm_decom  ) ); 

if  ( plot_ptr~>plt_decom  --  NULL  ) ( 

tuijnsg  ( M_YELLOW,  "Error  on  allocating  memory  for  plot  decom"  ) ; 
plot_ ptr->plot_fp  - org_j?lot_fp; 
plot_ptr->plt_decom  - save_ dcm__ptr; 
return  ( -1  ) ; 

} 

loc_dcm_ptr  - plot_ptr->plt_decom; 
savejbuf_size  * plot_ptr->buf_size; 
plot_ptr->buf_size  » 0; 
next_offset  - 0; 

for  ( m - 0;  m < plot_hdr_ptr->msid__num;  m++  ) ( 

read  ( ovr _plot_fp,  &loc_dcm_ptr->size,  sizeof  ( int  ) ) ; 

read  ( ovr _plot_fp,  &loc_dcm_ptr->length,  sizeof  ( int  ) ) ; 

read  ( ovr _plot_fp,  4loc_dcmj>tr->num_samps,  sizeof  ( short  ) ) ; 

read  ( ovr_plot_fp,  4loc^dcm_ptr->at tribute,  sizeof  { char  ) ) ; 

read  ( ovr _plot_fp,  iloc_dcm_ptr->error,  sizeof  ( char  ) ) ; 

lseek  ( ovr_plot_fp,  12,  1 ); 

#ifdef  FAC 

if  ( loc_dcm_ptr->error  !-  NULL  ) { 

1 o c__d  cm_p  t r - > n um_s  amp  s - 1; 
loc_dcmjptr->length  - 4; 

) 

#endif 


^oc_c*cni_Ptr->3ainple_size  * loc  dcm  ptr~>size  / loc  dcm  ptr->num  samps; 
piot_ptr->buf_size  - plot— ptr->buf_size  + 2 + loc_dcmj>tr->size7 

loc_dcm-ptr->of fset  - next_offset; 

next_offset  - loc__dcm_ptr->size  + loc_dcm_j?tr->of fset  + 2; 
loc_dcm_pt r ++ ; 


) 
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loc— dcm_ptr  - plot_ptr->plt_decom; 

for  ( k - 0;  k < plot_ hdr _j)tr->msid_num;  k++  ) { 

/*EXmsg  ( M_YELLOW,  "size  %x",  loc_dcmjptr->size  );*/ 

/*EXmsg  ( M_YELLOW,  "length  %x",  loc_dcinjptr-> length  );*/ 

/*EXmsg  ( M_YELLOW,  "num_san\p s %x",  loc_dcmjptr->num_samps  );*/ 

/★EXmsg  ( M_YELLOW,  "attr  %x",  loc_dcm_j>tr->at tribute  ) ;*/ 

/*EXmsg  ( M— YELLOW,  "error  %x  ",  loc_dcm_ptr->error  );*/ 

/*EXmsg  ( M_ YELLOW,  "offset  %x",  loc_dcmjptr->of f set  );*/ 


/*EXmsg  ( M_YELLOW,  "sample  size  %x",  loc_dcm_ptr->sample_size  );*/ 
loc_dcm_pt r++ ; 

} 

/* 

* Allocate  space  for  data  buffer  and  set  ovr  plot  active  flag. 

*/ 

save_data_ ptr  - plot_ptr->plot_data; 

plot_ptr->plot__data  - malloc  ( plotjptr->buf_size  ) ; 
if  ( plot— ptr->plot_data  — NULL  ) { 

tui_msg  ( M_YELLOW,  "Error  %d  on  creating  data  buffer  space",  errno 

plot_ptr->plot_fp  - org_plot_fp; 

plot_ptr->plt_decom  « save_dcm_ptr ; 

plot_ptr->buf_size  - save_buf_size; 

plot_ ptr->plot_data  - save_data_ptr; 

return  ( -1  ) ; 

} 

sav_seconds  - plot_ ptr->seconds_elapsed; 
plot_ptr->seconds_elapsed  - 0; 

/* 

* Reset  all  first  point  flags  for  drawing  overlay. 

*/ 

for  (i-0;  i<plot _jptr->header->actual_ msids;  i++) 

(plot_j>tr->msids  + i)  ->f  irst_ pt  - YES; 

/* 

* While  not  end  of  overlay  data  file  continue 

* to  plot  overlay  points. 

*/ 


End_of_f ile  - NO; 
plot_ptr->ovl_color_f lg  - YES; 
while  ( End_of_file  — NO  ) 

proc_plt  ( Disp_Num,  plot_ptr  ) ; 
plot_ptr->ovl_color_f Ig  - NO; 


/* 

* 

*/ 


/* 

* 

*/ 


/* 

* 

*/ 


Reset  all  first  point  flags  for  redraw  of  plot. 

for  (i-0;  i<plot_ ptr->header->actual_msids ; i++) 
(plot_ptr->msids  + i)->first_pt  - YES; 

Call  original  file  to  plot  the  current  data. 

/*if  ( plot_ptr->act_f lg  !-  YES  ) 

DDorg_file  ( plot_ ptr  );*/ 


Restore  back  the  information  overwritten  for  overlay  processing. 


close  ( plot_ptr->plot_fp  ) ; 
free  ( plot_ptr->plot_data  ) ; 
plot_ptr->plot_fp  - org_plot_fp; 
plot  j>tr->plt_decom  - save_dcm_ptr; 
plot_ptr->buf_size  - save_buf_size; 
plot_ptr->plot_data  - save_data_ ptr; 
plot_ptr->seconds_elapsed  - sav_seconds; 
plot_ptr->ovr_f lg  » YES; 

} else  { 

close  ( plot _j>tr->plot_fp  ) ; 
plot_ptr->plot_fp  - org_plot_fp; 

} 

D (print f ("END  DRAW_OVL\n" ) ) ; 
return  ( 0 ) ; 
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/★★★★★★★★★★★★★★★★★★★★★a******************************************************** 

* MODULE  NAME:  draw__plt.C 

★ 

* This  function  calls  the  functions  which  draw  the  axes  and 

* limit/nominal  lines  of  a plot.  This  function  draws  the  plot 

* axis  labels. 

* 

* DEVELOPMENT  NOTES: 

★ 

* o Logarithmic  and  Polar  axes  have  not  been  tested. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

★ Tod  Milam  - Ford  Aerospace  Corporation 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Ronnie  L.  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

a****************************************************************************/ 


♦include  <stdio.h> 
♦include  <X11/Xlib.h> 
♦include  <math.h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 
♦include  <DDplot.h> 
♦include  <wex/EXmsg.h> 


extern  struct  dm_shmemory  *Dm_Address; 


/*  ptr  to  DM  shared  memory 


*/ 


void  draw_plt  (disp_num,  plot— ptr,  x, 
short  disp_num; 

struct  plot_ ptrs  *plot— ptr; 


y,  width,  height) 

/*  display  ♦ containing  plot 
/*  ptr  to  plot  record 


*/ 

*/ 


short 


x,  y,  width,  height; 

/*  coord,  of  exposed  plot  area  */ 


{ 

double  sqrt ( ) , 
fabs  <); 


/*  square  root  fn  used  for  logs  */ 

/*  absolute  value  fn  */ 


XPoint  point;  /* 
XGCValues  *gc_val;  /* 
GC  gc;  /* 
Display  *xdisplay;  /* 
Window  xwindow;  /* 
Font  label_font;  /* 

struct  axis_info  *x_ptr;  /* 
struct  axis_info  *y_ptr;  /* 
struct  lim_lines  *nl_ptr;  / * 

, factor^ y,  /* 


coord  of  label  to  be  drawn  */ 
ptr  to  GC  values  in  DM  sh  mem  */ 
XID  of  GC  in  DM  shared  memory  */ 
ptr  to  X display  in  DM  sh  mem  */ 
XID  of  X window  of  display  */ 
font  of  axes  labels  */ 

ptr  thru  x axes  */ 
ptr  thru  y axes  */ 
ptr  thru  nom  & limit  plot  lines  */ 

plot  transformation  factors  */ 


double  factor  x 


low__value,  high_ value, 

apace, 

increment; 
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/*  axis  low/high  scale  values 
/*  space  between  labels 
/*  label  value  increment 


*/ 

*/ 

*/ 


float  diffval, 
loglabel, 
fxl,  fyl, 
string^ of fset. 


per cent  of  y; 


/*  difference  of  low  and  high  value  */ 
/*  logarithmic  label  to  output  */ 

/*  temp  world  coordinates  of  label  */ 
/*  offset  applied  to  the  coord,  of 
each  label  to  properly  place  it 
w/  respect  to  the  axis  */ 

/*  used  to  compute  label  font  size  */ 


unsigned  long  gc_mask; 

int  i, 

count, 

char_width,  char_height; 

short  multiply  * 1, 
ma  jor_tick; 

char  label [15]; 


/*  GC  values  mask  for  XChangeGC  */ 

/*  loop  counter  */ 

/*  loop  counter  for  label  count  */ 

/*  width/height  of  label  font  */ 

/*  low/high  value  multiplier  */ 

/*  major  tick  mk  length  in  pixels  */ 

/*  label  text  */ 


D(printf ("START  draw_plt\n”) ) ; 


/* 

* Setup  X variables  and  transformation  factors 
*/ 


xdisplay  - Dm_Address->xdisplay  [disp_ num]  ; 
xwindow  - XtWindow  (plot_ptr->draw_win)  ; 
gc_yal  - 6Dm_Address->gc_val  [disp_num] ; 
gc  - Dm_Address->gc  [disp_ num]  ; 

factor_x  - plot_ptr->plotjpos->factor_x; 
factor_y  - plot_jptr->plot_pos->factor_y; 


/* 

* Calculate  the  major  tick  mark  length.  Tick  mark  lengths 

* are  calculated  using  the  X transformation  only  to  prevent  different 

* length  tick  marks  on  the  X and  Y axes. 

*/ 


major_tick  - (short)  MAJOR_TICK  LEN  * factor  x; 


/* 

* Draw  all  x axes  for  this  plot 
*/ 


x_ptr  » plot_ptr->axis; 

for  (i  - 0;  i < plot_ptr->header->xaxes_num;  i++)  { 

if  (x_ptr->axis_type  --  CARTESIAN) 

x _ptr->scale_ratio  - 100.0  / (x_ptr->high_value  - x_ ptr->low_value) 

else  if  (x_j>tr->axis_type  — LOGARITHMIC)  { 
xj)tr->scale_ratio  - 1.0; 

if  (x_ptr->low_value  > x_ptr->high_value) 
multiply  - -1; 

else 


multiply  - 1; 
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low  value  — x_ptr->loW— value  * multiply; 
high-value  - xjptr->high-Value  * multiply; 
diffval  - high-Value  - low-value; 
x j>tr->logval  - {float)  sqrt  ((double)  diffval); 

} else  /*  POLAR  */ 

x_ptr->scale— ratio  - 

100.0  / ( (X-ptr->high_ value  - x_ptr->low_value)  * 2); 

draw  axs  (disp_num,  plot ptr,  x —ptr,  x,  y,  widths  height)/ 

x__ptr++; 


/* 

★ Draw  all  y axes  for  this  plot 
*/ 


yj>tr  - plot_ ptr->axis  + plot_ptr->header->xaxes_num; 

for  (i  - 0;  i < plot— ptr->header->yaxe3_ num;  i++)  { 

if  (y_ptr->axiS— type  " LOGARITHMIC)  { 
y_ptr->scale_ratio  * 1.0; 

if  { y_j>t r - > lo w_va lue  > yjptr->high_value) 
multiply  “ -1; 

else 

multiply  - 1; 

low_ value  ■ y_ ptr->low_ value  * multiply; 
high-value  — y— ptr- >high— value  * multiply; 
diffval  - high— value  - low_ value; 
y_ptr->logval  - (float)  sqrt  ((double)  diffval); 

) else  /*  CARTESIAN  or  POLAR  */ 

y_j>tr->scale— ratio  - 100.0  / (y_J>tr->high_value  - y-ptr->low__value) 

draw— axs  (disp_ num,  plot— ptr,  y_ptr,  x,  yt  width,  height) ; 

Y_ptr++; 

} 

/* 

* Draw  nominal  value  lines  for  this  plot 
*/ 


nl— ptr  - plotjptr->nline; 

for  (i  - 0;  i < plot— ptr->header ->n line— num;  i++)  { 

liiri—  In  (disp— numf  plot— ptr,  nl-ptr)  ; 
nl— ptr++; 

> 


/* 

* Draw  limit  lines  for  this  plot 
*/ 


nl— ptr  - plot— ptr->lline; 

for  (i  - 0;  i < plot— ptr->header->lline_ num;  i++)  { 

lim— In  (disp— num,  plot— ptr,  nl— ptr) ; 
nl— ptr++; 


) 


/* 


* Setup  font  style  for  labels. 
*/ 
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percent— of— y - plotjptr->plot_ poa->bb_height  * .30; 

char— width  - 0;  /*  font  size  based  on  calculated  height  only  */ 

char_ height  - (int)  percent— of—y; 

label— font  - font_num(disp_numf  LABEL_STYLE,  char_ width,  char_height) ; 

/* 

* Draw  x axes  labels 
*/ 


x_j5tr  - plot_ptr->axis; 

for  (i  - 0;  i < plot_ ptr->header->xaxeS— num;  i++)  { 
low_ value  - x_j>tr->loW— value; 
high-value  - X—ptr->high— value; 


/* 

★ 

V 


/* 

* 

*/ 


/* 

★ 

★ 


*/ 


/* 

★ 

* 

* 

* 

*/ 


Set  the  text  parameters 


if  (gC— mask  - set_ gc (xdisplay,  gc,  gc_ val, 

x _ptr->axis_col,  NO— CHANGE,  -1.0, 

NO-CHANGE,  NO-CHANGE,  NO_ CHANGE,  label-font)) 
XChangeGC (xdisplay,  gc,  gC— mask,  gc_ val) ; 


Axis-type-dependent  calculations 


if  <x_ptr->axi 3-type  «•  CARTESIAN)  { 

space  - 100.0  / (X— ptr->grad— vals  - 1); 

increment  - (high— value  - low— value)  / (x_ ptr->grad_ vals  - 1) ; 


If  x axis  is  near  top  of  plot,  place  labels  under  the 
axis,  else  place  labels  over  the  axis.  Goal  is  to  have 
labels  on  the  interior  of  the  plot 


if  (X— ptr— >axis_pos  > 95) 

string-offset  - major_tick  * -1; 

else 

3tring_offset  - major_tick; 

) else  if  (X— ptr->axiS— type  — LOGARITHMIC)  { 


If  the  low  value  is  greater  then  the  high  value,  then  set 
multiply  to  -1.  This  will  keep  us  from  trying  to  square 
root  a negative  value.  Later  the  value  will  be  multiplied 
again  to  get  the  correct  label  sign  to  output. 


if  (low— value  > high— value) 
multiply  * -1; 

else 

multiply  - 1; 

high— value  - high_value  * multiply; 
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low  value  - low  value  * multiply; 


} else  { /*  POLAR  */ 

if  (x_ptr->grad_val3  !-  0)  { 

space  - 50.0  / (x_jptr->grad_vals)  ; 

increment  - (high_value  - low_value)  / (x_ptr->grad_vals) ; 

} 

) 


/* 

* For  each  graduation  calculate  the  coordinates  and  value 

* of  the  label  and  draw  it.  Suppress  drawing  the  first  axis 

* label  to  avoid  confusion  at  axis  crossing.  Suppress  drawing 

* the  last  label  since  it  would  be  drawn  outside  the  plot 

* bounding  box  anyway. 

*/ 

for  (count  - 1;  count  < (x_ptr->grad_vals  - 1);  count++)  ( 

/* 

* Calculate  coordinates  of  this  label 
*/ 


/*  RLK  9/26/90  point. y will  actually  need  to  be  the  axis  position  in  pixels 
less  the  height  of  the  font  */ 


/*  RLK  9/26/90  need  to  account  for  font  height  here  if  axis  is  near  top 
of  plot  and  having  to  place  label  under  the  axis.  */ 


if  (x_jptr->axis_type  — POLAR)  { 

fxl  - (float)  (x_ ptr->axisjpos  + 30); 
fyl  - 50.0  - (count  + 1)  * space; 

) else  { 

point. x - (short)  (count  * space  * factor_x) 

+ plot_ptr->plot_pos->of fset_x; 
point. y - x_ptr->cur_axis_pos  - string_of fset ; 

/*  - <font_height>  if  top  axis  */ 


> 


/* 

★ 

*/ 


Calculate  label  and  convert  to  string 


/*  if  processing  logarithmic  axis,  then  set  up  label  based  on 
logarithmic  formula  */ 

if  (x_j>tr->axis_type  — CARTESIAN)  { 

if  (x_ptr->scal_type  — ' T' ) 

p_itimea ( (int ) (low_value  + count  * increment),  label); 

else 

sprintf (label,  "%.2f",  (float) 

((low_value  + count  * increment)  * multiply)); 

) else  if  (x_jptr->axis_type  — LOGARITHMIC)  { 

loglabel  - ( (x_ptr->logval  * ((space  * count)  / 100)) 

* (x_ ptr->logval  * ((space  * count)  / 100)))  + low_value; 

if  (x_ ptr->scal_type  — 'T') 

p_itimea  ((int)  (loglabel  * multiply  + 0.5),  label); 

else 

sprintf (label,  "%.2f",  (float)  (loglabel  * multiply)); 
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) else  { /*  POLAR  */ 


} 


if  (x_ptr->scal_type  — 'T') 

p_itimea ( (int ) (low_value  + (count  + 1.0) 

* increment  + 0.5) , label); 

else 

sprintf (label,  "%.2f",  (float) 

( (low— value  + (count  + 1)  * increment)  * multiply) ) 


/* 

* 

*/ 


Draw  label  on  plot 


} 


XDrawString (xdisplay,  xwindow,  gc,  point. x,  point. y,  label, 
strlen (label) ) ; 


X— ptr++; 

> 


/* 

* Draw  Y axis  labels 
*/ 


ptr  - plot_ ptr->axis  + plot— ptr->header->xaxes_num; 

for  (i  - 0;  i < plot— ptr->header->yaxeS— num;  i++)  ( 

low_value  ■ y_ ptr->low_ value; 
high_ value  * y_ ptr->high_ value; 


/* 

* Set  the  text  parameters  for  this  y axis 
*/ 

if  (gC— mask  - set_gc  (xdisplay,  gc,  gc_ val, 

y_ ptr->axis— col,  NO— CHANGE,  -1.0, 

NO_CHANGE,  NO_CHANGE,  NO-CHANGE,  label-font)) 
XChangeGC (xdisplay,  gc,  gc_ mask,  gC— val) ; 

/* 

* Axis -type -dependent  calculations  for  this  y axis 
*/ 

/*  if  processing  logarithmic  then  set  up  the  log  value  */ 

if  <yjptr->axis_type  — CARTESIAN)  { 

space  - 100.0  / (y_ ptr->grad_ vals  - 1); 

increment  - (high-value  - low— value)  / (y_ ptr->grad— vals  - 1) ; 

/* 

* If  y axis  is  near  the  right  of  the  plot,  place  label 

* to  the  left  of  the  axis,  else  place  to  the  right  of  the 

* axis.  Goal  is  to  have  labels  on  the  interior  of  the  plot. 

*/ 


if  (yj ptr->axiS— pos  > 95) 

string_of fset  - major_ tick  * -1; 

else 

string_of f set  - major— tick; 

} else  if  (y_ptr->axiS— type  — LOGARITHMIC)  ( 
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/* 

* 

*/ 


/* 

★ 

*/ 


If  the  low  value  is  greater  then  the  high  value,  then  set 
multiply  to  -1.  This  will  keep  us  from  trying  to  sqaure 
root  a negative  value.  Later  the  value  will  be  multiplied 
again  to  get  the  correct  label  sign  to  output. 


if  (low_value  > high__value) 
multiply  - -1; 

else 

multiply  - 1; 

high_value  - high_value  * multiply; 
low  value  - low_value  * multiply; 

} else  { /*  POLAR  */ 

if  (y— ptr->grad_vals  !■  0)  ( 

space  - 50.0  / (y_ptr->grad_vals) ; 

increment  - (high_value  - low_value)  / (y_ptr->grad_vals) ; 

} 

} 


For  each  graduation,  calculate  the  value  and  coordinates 
of  the  label  and  draw  it.  Suppress  drawing  the  first  axis 
label  to  avoid  confusion  at  axis  crossing.  Suppress  drawing 
the  last  label  since  it  will  be  drawn  outside  the  plot 
bounding  box  anyway. 


for  (count  - 1;  count  < (y_ptr->grad_vals  - 1);  count++)  ( 


Calculate  the  value  of  this  y axis  label  and  convert  to  string 


if  (y_ptr->axis_type  “ LOGARITHMIC)  ( 

loglabel  - ( (y_ptr->logval  * ((space  * count)  / 100)) 

* (y_ptr->logval  * ((space  * count)  / 100)))  + low_value; 

if  (y_ptr~>scal_ type  " 'T') 

p_itimea  <(int)  (loglabel  * multiply),  label); 

else 

sprintf (label,  "%.2f",  (float)  (loglabel  * multiply) ) ; 

) else  { /*  CARTESIAN  */ 


} 


if  (y_jptr->scal_type  — 'T') 

p_itimea  ( (int)  (low_value  + count  * increment),  label); 

else 

sprintf (label,  "%.2f",  (float) 

((low  value  + count  * increment)  * multiply)) 


Calculate  the  coordinates  of  this  label  for  this  y axis 


/*  RLK  9/26/90  May  need  to  use  XTextExtents  to  calculate  the  width 

* of  the  string  and  use  this  to  place  the  string  right 

* justified  to  the  inside  of  a y axis  near  the  right  of 

* the  plot  bounding  box. 
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*/ 


point. x - y_ptr->cur_axis_pos  + string_of f set ; 
point. y - (short)  ((100.0  - count  * space)  * factor_y) 

+ plot_ptr->plot— pos->of f set_ y; 


/* 

* If  axis  is  not  of  polar  type,  draw  label  to  plot 

*/ 


} 


if  (y_j>tr->axis_type  !-  POLAR) 

XDrawString (xdisplay,  xwindow,  gc,  point. x,  point. y,  label, 
strlen (label) ) ; 


y_ptr++; 

) 

D (print f ("END  draw__plt \n" ) ) ; 
return; 


i 


edit_colors.c 


* MODULE  NAME:  edit_Colors  . c 


* 

* This  file  contains  functions  needed  to  control  and  allow  manipulation  of 

* the  color  map, 

* 


* 


* 

★ 

★ 

★ 

* 

* 

★ 

* 

★ 

★ 

* 

* 

★ 

* 

* 

* 

* 

* 


INTERNAL  FUNCTIONS: 
o cb_color_manager 

o cb__ even  t_co  lor 

o cb_expose_color 

o color^scales 

o color  select 


Main  callback  event  handler  for  interactive 
color  editing. 

Callback  event  handler  for  input  events  in 
the  window  used  to  draw  colors . 

Callback  event  handler  for  expose  events  in 
the  window  used  to  draw  colors . 

Updates  the  scale  widgets  used  to  manipulate 
RGB  values . 

Draws  a highlight  rectangle  around  the  current 
color . 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

a**************************************************************************** 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio .h> 

<string. h> 

<memory . h> 

<X11/ Intrinsic . h> 

<Xll/StringDef s .h> 

<X11/Shell.h> 

<Xm/mwm.h> 

<Xm/Xm.h> 

<Xm/DrawingA . h> 

<Xm/Form.h> 

<Xm/ Label. h> 
<Xm/Scale .h> 
<Xm/ScrolledW. h> 
<constants .h> 
<user_inter . h> 
<wex/EXmsg . h> 


static  Widget  Shell,  /*  Shell  widget  which  is  the  parent  of  the 

* color  select  popup. 

*/ 

Sc_rgb_red,  /*  Scale  widget  used  to  allow  the  user  to  ad- 

* just  the  amount  of  red  in  a color. 

*1 

S c_rgb_green , 

/*  Scale  widget  used  to  allow  the  user  to  ad- 

* just  the  amount  of  green  in  a color. 

*/ 

Sc_rgb_ blue; /*  Scale  widget  used  to  allow  the  user  to  ad- 

* just  the  amount  of  blue  in  a color. 


static  Window 


static  XColor 


static  int 


Display 

int 

GC 

extern  Widget 


extern  Colormap 
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*/ 

/*  Set  to  the  window  in  which  the  color  map  is 
* displayed. 

*/ 


Cmap_orig  [MAX_COLORS] , 

/*  Array  used  to  retain  the  color  map  in  its 

* state  prior  to  editing.  Needed  to  restore 

* the  color  map  if  necessary. 

*/ 

*Cmap_cur;  /*  Pointer  to  the  array  of  colors  which  is 

* currently  available  for  editing, 

*/ 


Num_colors,  /*  Set  to  the  number  of  colors  currently  being 

* edited. 

*/ 

Cur— pixel,  /*  The  index  in  the  current  color  map  for  the 

* pixel  currently  being  edited. 

*/ 

Flag;  /*  Flag  used  to  determine  when  the  user  is 

* finished  with  the  color  selection  popup. 

*/ 


*Disp; 

Scr ; 
gc ; 

Top;  /*  The  top  level  widget  which  is  the  parent 

* of  transient  shells. 

*/ 


Main_cmap; 
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/★a***************************************************************************** 

* MODULE  NAME:  edit_colors 

it 

* This  function  presents  a popup  which  allows  the  user  to  manipulate  colors. 

* The  popup  presents  a grid  of  the  current  colors  and  a set  of  scales  which 

* allows  the  colors  to  be  modified. 

★★★a**************************************************************************/ 


int  edit_colors  ( ) 

{ 

register  int  i; 

static  XtCallbackRec  cb[]  - { 

{ (XtCallbackProc) NULL,  (caddr_t ) NULL  }, 
{ (XtCallbackProc) NULL,  (caddr_t ) NULL  } 

) ; 


Widget  form,  f_rgb,  f_clr,  f_cmd, 

sw_color,  da_color; 

XSetWindowAtt ributes  attributes ; 


Arg 


args [10] ; 


XEvent 


event ; 


XColor 

XtCallbackProc 


unsigned  long 


cmap_rgb  [11; 

cb^color^manager  () , 
cb_expose_color  ( ) , 
cb_event_color  (), 
cb_help  0; 

mask; 


D (print f ("START  EDIT_COLORS\n" ) ) ; 


/* 

* Save  the  display  and  the  screen. 

*/ 

Disp  - XtDisplay  ( Top  ) ; 

Scr  - Def aultScreen  ( Disp  ) ; 

/* 

* Save  a local  copy  of  the  current  color  map. 
*/ 


for  ( i - 0;  i < MAX_COLORS;  i++  ) 

Cmap_orig[i] .pixel  - i; 

XQueryColors  ( Disp,  Main_cmap,  Cmap— orig,  MAX_COLORS  ) ; 

/* 

* Save  the  current  color  map,  number  of  colors. 

*/ 


Cmap_cur  - cmap_rgb; 

Num_colors  - 1; 

memcpy  ( (char  *) &Cmap_cur [0] , (char  *)  £Cmap_orig[NUM_MOTIF_COLORS]  , 
sizeof (XColor)  ); 


/* 


Create  the  shell  widget  with  an  argument  which  specifies  the  minimum  width 


* of  the  shell. 
*/ 
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1-0; 

XtSetArg  ( argsfi],  XmNminWidth,  308  );  i++; 

Shell  - tui_create_trans_shell  ( ’'Color  Editor",  args,  i ) ; 


/* 

* Create  the  main  form  which  is  the  parent  of  all  other  widgets  and  child 

* forms. 

*/ 


i - 0; 

form  - tui_ create_f orm  ( Shelly  "form",  TRUE,  args,  i ) ; 


/* 

* Create  the  area  used  to  display  the  color  map.  This  area  consists  of  a 

* form  which  includes  a label  and  a scrolled  window  which  in  turn  contains 

* the  drawing  area  used  for  the  color  map. 

*/ 

i » 0; 

XtSetArg  ( args[i],  XmNleftPosition,  CLR_LEFT_RGB  );  i++; 
f_clr  - tui_create_form  ( form,  "f_clr",  FALSE,  args,  i ) ; 

i - 0; 

tui_create_label  { f_clr,  "l_colors",  "Colormap",  args,  i ); 
i - 0; 

XtManageChild  ( sw_color  - 

XmCreateScrolledWindow  { f_ clr,  "sw_colors",  args,  i ) ) ; 

/* 

* Create  the  drawing  area  widget . Set  the  width  and  height  to  the  required 

* size  of  the  colors  area  and  add  callback  for  expose  events.  Note  that 

* input  events  (mouse  selection)  is  not  allowed  during  overlay  color 

* editing. 

*/ 


D(printf("  Create  drawing  area\n")); 
i - 0; 

XtSetArg  ( args[i],  XmNwidth,  CLRJTOTAL  );  i++; 

XtSetArg  ( argsfi],  XmNheight,  CLRJTOTAL  );  i++; 

XtManageChild  ( da_color  - 

XmCreateDrawingArea  ( sw_color,  "drawclr",  args,  i ) ) ; 

XtAddCallback  ( da_color,  XmNexposeCallback,  cb_expose_color,  0 ) ; 
XtAddCallback  ( da_ color,  XmNinputCallback,  cb_event_color,  0 ) ; 


/* 

* Create  the  form  and  scale  widgets  needed  to  allow  the  user  to  adjust  the 

* RGB  contents  of  a color.  Changing  a scale  value  causes  a callback  to 

* the  (cb_color_manager)  function. 

*/ 


D(printf("  Create  scalesXn") ) ; 
i - 0; 

f_rgb  - tui_create_f orm  ( f_clr,  "f_rgb",  FALSE,  NULL,  i ); 

cb [0] .callback  - (XtCallbackProc) cb_color_manager; 
cb [0] .closure  - (caddr_t)-l; 

i - 0; 

XtSetArg  ( argsfi],  XmNvalueChangedCallback,  cb  );  i++; 


: s :i  i • 
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XtManageChild  ( Sc_rgb_red 

XmCreateScale  ( f_rgb, 
XtManageChild  ( Sc_rgb_green  - 
XmCreateScale  ( f_rgb, 
XtManageChild  ( Sc_rgb_blue  - 
XmCreateScale  ( f_rgb. 


sc  rgb_redn. 

args, 

i 

> 

) ; 

sc_rgb_green", 

args. 

i 

> 

) ; 

sc_rgb_bluert# 

args. 

i 

> 

) ; 

i - 0; 

tui_create_label  ( f_rgb, 
tui_create_label  ( f_rgb, 
tui  create_label  ( f_rgb. 


l_rgb_red" , 

"Red", 

args. 

i ) ; 

l_rgb_green" , 

"Green", 

args. 

i ) ; 

l_rgb— blue1', 

"Blue", 

args. 

i ); 

/* 

* Create  a separator  to  go  between  the  main  widgets  and  the  form  with  the 

* command  widgets . 

*/ 


D (printf ("  Create  . separator\n”) ) ; 
i - 0; 

tui_create_separator  ( form,  "sep",  args. 


i >; 


/* 

* Create  the  form  and  4 command  widgets  to  allow  the  user  to  save,  cancel, 

* restore,  and  get  help. 

*/ 

D (printf ("  Create  commands \n") ) ; 

i - 0; 

f_cmd  - tui_create_form  ( form,  " f _cmd" , FALSE,  args,  i ); 

tui_create_pushbutton  ( f_cmd,  "OK",  cb_color_manager, 

(caddr_t)-2,  args,  i ); 

tui_create_pushbutton  ( f_cmd,  "Cancel",  cb_color_manager, 

(caddr_t)-3,  args,  i ); 

tui_create__pushbutton  ( f_cmd,  "Restore",  cb_color_manager, 

(caddr_t)-4,  args,  i ); 

tui_create_pushbutton  ( f_cmd,  "Help",  cb_help, 

3,  args,  i ) ; 


/* 

* Realize  and  pop  up  the  shell  widget . 
*/ 


XtRealizeWidget  ( Shell  > ; 
xtPopup  ( Shell,  None  ) ; 

set_cmap  ( Shell  ) ; 


/* 

* Set  the  attributes  necessary  to  create  the  actual  window  used  for  the 

* available  colors. 

*/ 


attributes . save_under  - 0; 

attributes .backing_store  « NotUseful; 

attributes .border_pixel  ■ 1; 

attributes .background_pixel  “0; 

attributes .bit_gravity  - NorthWestGravity; 

mask  - CWBackingStore  I CWSaveUnder  I CWBackPixel  I 
CWBorderPixel  I CWBitGravity; 


/* 

★ 

*/ 


Create  and  save  the  window  for  the  drawing  area  widget. 
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XtCreateWindow  ( da_color,  CopyFromParent , Def aultVisual  ( Disp,  Scr  ),  mask, 
^attributes  ) ; 

Win  - XtWindow  ( da_color  ) ; 


gc  * XCreateGC  ( Disp,  Win,  0,  0 ) ; 


/* 

* Call  the  color  manager  to  cause  the  color  for  the  first  overlay  color  to 

* be  highlighted. 

*/ 


cb_color_ manager  ( (Widget ) NULL,  <caddr_t)0,  (caddr  t ) NULL  ); 


/* 

* Loop  and  process  events  until  the  global  flag  (flag)  is  set  to  a value 

* other  than  01.  This  will  occur  when  the  user  selects  the  OK  or  CANCEL 

* command. 

*/ 


Flag  - -1; 

while  ( Flag  --  -1  ) { 

Xt Next Event  ( & event  ) ; 

XtDispatchEvent  ( fievent  ) ; 


XtDestroyWidget  ( Shell  ) ; 


/* 

* If  the  user  selected  CANCEL  (Flag  - 0) , then  the  color  map  needs  to  needs 

* to  be  restored  to  its  pre-edit  state. 

*/ 

if  ( Flag  — 0 ) 

XStoreColors  ( Disp,  Main_cmap, 

4Cmap_orig(NUM_MOTIF_COLORS] , MAX_COLORS-NUM_MOTIF_COLORS  ); 

/* 

* Normal  return. 

*/ 


) 


D (printf ("END  EDIT_COLORS\n") ) ; 
return  ( 0 ) ; 
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/★*★★**★*★★★*★★*★★★*★*★★★**★★★******★*★*★★**★★**★****■*★**★**★★*****★★*★★★*★****★ 

* MODULE  NAME:  cb_color_manager 

* 

* This  function  processes  the  majority  of  the  callbacks  occurring  in  the 

* color  manager.  The  values  of  (closure) , the  callbacks,  and  the  actions 

* taken  include: 

* 

* o { -1  ) Called  because  a scale  was  moved.  This  changes  the  RGB 

* contents  of  the  current  color. 

* 

* o ( -2  ) Called  because  the  OK  button  was  selected.  Set  global  flag 

* to  cause  the  main  loop  to  terminate  and  then  save  changes. 

* 


* o ( -3  ) Called  because  the  CANCEL  button  was  selected.  Set  global 

* flag  to  cause  the  main  loop  to  terminate  and  abort  changes. 

* 


* o ( -4  ) Called  because  the  RESTORE  button  was  selected.  This 

* resets  the  color  map  to  its  entry  state. 

★★★★★★★★a**************** ★**★******★***★**★★**★★***★★***★*******★**★★**★*★★★**/ 


/*  ARGSUSED  */ 

static  XtCallbackProc  cb_color_jnanager  ( widget,  closure,  calldata  ) 

Widget  widget;  /*  Set  to  widget  which  in  which  callback  originated. 

caddr_t  closure,  /*  Indicates  selected  command. 

♦calldata;  /*  Widget-specific  information. 


register  int  i; 

int  value; 


D (print f ("START  CB_COLOR_MANAGER\n" ) ) ; 

/* 

* If  called  to  initialize  the  current  color,  select  it  and  set  scales. 

*/ 

if  ( (int) closure  >-  0 ) { 

Cur_pixel  - (int ) closure; 

color_select  ( (int ) Cmap_cur [Cur_pixel] .pixel  ); 
color_scales  ( ) ; 

/* 

* If  called  because  a color  scale  was  adjusted,  update  the  RGB 

* contents  of  the  current  color.  Retrieve  the  positions  of  each  of  the  scales 

* and  use  to  update  the  current  color.  Note  that  the  position  is  shifted 

* left  8 bits.  When  the  color  is  ready,  store  it  in  the  actual  X color 

* map  to  cause  the  effect  to  be  seen.  Note  that  the  RGB  values  in  the 

* XColor  structure  are  shorts  and  the  return  value  from  (XmScaleGetValue)  is 

* an  int . 

*/ 


) else  if  ( (int) closure  — -1  ) { 

XmScaleGetValue  ( Sc_rgb_red,  lvalue  ) ; 

Cmap_cur [Cur_ pixel] . red  - value  « 8; 

XmScaleGetValue  ( Sc_rgb_green,  & value  ) ; 

C^P.cur  [Curjixel]  .green  - value  « 8; 
XmScaleGetValue  ( Sc_rgb_blue,  fivalue  ) ; 

Gmap_cur [Cur_pixel] .blue  - value  « 8; 

XStoreColor  ( Disp,  Main_cmap,  SCmap  cur [Cur  pixel]  ); 
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* If  called  because  the  user  selected  OK  or  CANCEL,  set  the  global 

* indicate  that  the  main  loop  should  terminate.  The  value  assigned 

* indicates  whether  or  not  changes  should  be  saved. 

*/ 


flag  to 
to  (Flag) 


} else  if  ( (int) closure  " -2  ) { 
Flag  - 1; 

} else  if  ( (int) closure  — -3  ) { 
Flag  - 0; 


/* 

* If  called  because  the  RESTORE  command  was  selected,  restore  the  color  mapo 

* to  the  original  colors.  First  restore  the  actual  X color  map  (don't  send 

* the  first  few  colors  because  they  can't  be  changed).  Next  restore  each  of 

* the  colors  in  the  current  color  map. 

*/ 

) else  if  ( (int) closure  — -4  ) { 

XStoreColors  ( Disp,  Main_cmap, 

&Cmap_orig[NUM_MOTIF_COLORS]  , MAX_COLORS-NUM_MOTIF_COLORS  ); 
for  ( i - 0;  i < Num_colors;  i++  ) 
memcpy  ( (char  *) &Cmap_ cur [i] , 

(char  *)  &Cmap_orig  [Cmap__cur  [i]  .pixel],  sizeof (XColor ) ); 

/* 

* Update  the  scales  to  reflect  the  (possibly)  changed  current  color 

* value. 

*/ 


color_scales  ( ) ; 

> 

/* 

* Normal  return. 

*/ 

D (printf ("END  CB_COLOR_MANAGER\ n " ) ) ; 
return; 

} 
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/******************************************************************************* 

* MODULE  NAME:  cb_event_color 

* 

* This  function  is  called  to  handle  events  in  the  available  colors  window. 
*************** ****************★**********************************************/ 


/*  ARGSUSED  */ 

static  XtCallbackProc  cb_event_color  ( widget,  closure,  calldata  ) 


Widget 
caddr  t 


widget; 

closure; 


/*  Set  to  widget  which  in  which  callback  originated 
/*  Not  used. 


XmDrawingAreaCallbackStruct 

*calldata;  /*  Widget-specific  data. 

register  int  color; 

XButtonEvent  ^button; 


D (print f ("START  CB_EVENT_COLOR\n" ) ) ; 

/* 

* If  the  event  was  a button  press,  return.  The  only  events  processed  are 

* button  releases. 

*/ 

button  « &calldata->event->xbutton; 

if  ( button->state  ” 0 ) 
return; 


/* 

* Extract  the  x and  y position  from  the  event  structure  and  use  to  compute 

* the  corresponding  color. 

*/ 

color  - ( button->y  / (CLR_SIZE+CLR_SPACE)  ) * CLR_NUM  + 

( button->x  / <CLR_SIZE+CLR_SPACE)  ) ; 

/* 

* If  the  x and  y position  is  outside  of  the  valid  range  (indicated  by  the 

* color),  return. 

*/ 

if  ( color  > CLR_NUM*CLR_NUM  | | color  < NUM_MOTIF_COLORS  ) 
return; 


/* 

* Indicate  the  newly  selected  color  (draw  an  outline  around  the  selected 

* color) . 

*/ 

color_select  ( (int) color  ); 

/* 

* Update  the  current  colormap  entry  to  the  selected  color.  Update  the  color 

* scales  to  represent  the  new  color. 

*/ 


Cmap_cur  [Cur_pixel]  .pixel  - color; 

XQueryColor  ( Disp,  Main_cmap,  &Cmap_cur (Cur— pixel]  ); 


color  scales  ( ) ; 
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/* 

* Normal  return. 
*/ 


D (printf ("END  CB_EVENT_COLOR\n" ) ) ; 
return; 


/******************************************************************************* 

* MODULE  NAME:  cb_expose_color 

★ 

* This  function  is  called  when  the  color  table  window  is  exposed.  It  draws 

* a grid  consisting  of  the  available  colors.  It  only  handles  a color  map 

* containing  256  colors  (grid  dimensions  of  16  x 16) . 

a*****************************************************************************/ 

/*  ARGSUSED  */ 

static  XtCallbackProc  cb_expose_color  ( widget,  closure,  calldata  ) 

Widget  widget;  /*  Set  to  the  widget  which  initiated  this 

* callback  function. 

*/ 

caddr_t  closure;  /*  Callback  specific  data.  This  parameter 

“ * is  not  used  by  this  function. 

*/ 

XmDrawingAreaCallbackStruct  *calldata; 

/*  Specifies  any  callback-specific  data  the 

* widget  needs  to  pass  to  the  client. 

*/ 

{ 

register  int  x,  y; 

XExposeEvent  *expose ; 

D (print f ("START  CB_EXPOSE_COLOR\n" ) ) ; 

/* 

* Save  pointer  to  the  expose  event.  If  another  expose  event  is  pending, 

* exit  from  function. 

*/ 

expose  - &calldata->event->xexpose; 

if  ( expose->count  !-  0 ) 
return; 

/* 

* Draw  black  background  throughout  the  whole  window  to  give  a background 

* for  the  actual  colors. 

*/ 

XSetForeground  ( Disp,  gc,  BlackPixel  ( Disp,  Scr  ) ) ; 

XFillRectangle  ( Disp,  Win,  gc,  0,  0,  CLR_TOTAL+l,  CLR_TOTAL+l  ) ; 

/* 

* Draw  a square  for  each  of  the  available  colors.  This  algorithm  will  only 

* work  for  256  cell  color  maps.  Note  that  CLR_SPACE  is  the  amount  of  gap 

* between  the  color  squares.  It  is  set  to  3 to  allow  the  highlight  rec- 

* tangle  to  contrast  with  both  the  background  and  the  color  itself. 

*/ 

for  ( y - 0;  y < CLR_NUM;  y++  ) 

for  ( x - 0;  x < CLR_NUM;  x++  ) { 

XSetForeground  ( Disp,  gc,  CLR_NUM  * y + x ) ; 

XFillRectangle  ( Disp,  Win,  gc, 

CLR_SPACE  + x * ( CLR_SIZE  + CLR_SPACE  ), 

CLR_SPACE  + y * ( CLR_SIZE  + CLR_SPACE  ) , 

CLR_NUM  - 1,  CLR_NUM  - 1 ); 


/* 


) 
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Draw  the  highlight  rectangle  around  the  current  color 

/ 

color_select  ( (int)  Cmap_cur  [Cur_j>ixel]  .pixel  ); 
Normal  return. 

D {print f { "END  CB_EXPOSE_COLOR\n" ) ) ; 


return; 


/ 
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/****************************************************************************** 

* MODULE  NAME:  color_scales 

★ 

* This  function  updates  the  scale  widgets  when  a new  color  is  selected 

* either  via  the  color  map. 

***************************************************** ************************* 


static  int  color_scales  < ) 

{ 

D (print f ("START  COLOR_SCALES\n") ) ; 

/* 

* Set  the  position  of  the  three  scales  to  correspond  to  the  color.  Note  that 

* the  RGB  values  are  in  the  range  of  0 to  65535,  so  they  must  be  shifted 

* right  (divided  by  256)  first.  This  is  correct  because  the  LSB  of  the 

* RGB  value  is  always  zero. 

*/ 


XmScaleSetValue  ( Sc_rgb_red, 
XmScaleSetValue  ( Sc_rgb_green, 
XmScaleSetValue  ( Sc_rgb_blue, 


Cmap_cur [Cur_pixel] . red  » 8 ) 
Cmap_cur [Cur_pixel] .green  » 8 ) 
Cmap_cur [Cur_pixel] .blue  » 8 ) 


/* 

* Normal  return. 
*/ 


D (printf ("END  COLOR_SCALES\n") ) ; 
return  ( 0 ) ; 
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/******************************************************************************* 

* MODULE  NAME:  color_select 

★ 

* This  function  highlights  the  rectangle  containing  the  current  color  in  the 

* RGB  color  map  area. 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★a********************************** ^ 
static  int  color_select  ( color  ) 

int  color;  /*  Specifies  the  color  (and  the  area)  to 

* highlight . 

*! 

{ 

static  int  cur_color  - -1; 

D(printf ("START  COLOR_SELECT\n" ) ) ; 

/* 

* If  an  old  highlight  rectangle  is  displayed,  remove  it  by  redrawing  it  in 

* the  black  pixel.  Note  that  there  are  always  three  spaces  between  each  of 

* the  color  rectangles.  The  highlight  color  goes  in  the  middle  pixel  of  the 

* three  so  that  it  never  touches  the  actual  color. 

*/ 


if  ( cur_color  !«  -1  ) ( 

XSetForeground  ( Disp,  gc,  BlackPixel  ( Disp,  Scr  ) ) ; 

XDrawRectangle  ( Disp,  Win,  gc, 

CLR_SPACE+(  cur_color  % CLR_NUM  ) * (CLR_SIZE+CLR_SPACE)  - 2, 
CLR_SPACE+(  cur_color  / CLR_NUM  ) * <CLR_SIZE+CLR_SPACE)  - 2, 
CLR_NUM+2,  CLR  NUM+2  ); 


/* 

* Draw  the  new  rectangle  around  the  current  color. 
*/ 


cur_color  - color; 

XSetForeground  ( Disp,  gc,  WhitePixel  ( Disp,  Scr  ) ) ; 

XDrawRectangle  ( Disp,  Win,  gc, 

CLR_SPACE+(  color  % CLR_NUM  ) * (CLR_SIZE+CLR_SPACE)  - 2, 
CLR_SPACE+(  color  / CLR_NUM  ) * (CLR_SIZE+CLR_SPACE)  - 2, 
CLR_NUM+2 , CLR  NUM+2  ) ; 


/* 

* Normal  return. 
*/ 


} 


D (printf ("END  COLOR_SE LECT \ n " ) ) ; 
return  ( 0 ) ; 
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/****************************************************************************** 

* MODULE  NAME:  ex_msgsnd.c 

★ 

* This  function  uses  WEX  to  send  a message  to  another  process. 

* 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* S.  Zrubek  - Ford  Aerospace  Corporation 


★ 

* 


* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

a*****************************************************************************/ 


♦include  <stdio.h> 
♦include  <sys/ types .h> 
♦include  <sys/ipc.h> 
♦include  <sys/msg.h> 
♦include  <constants .h> 
♦include  <pf_key.h> 
♦include  <wex/EXmsg . h> 


int  ex_msgsnd  ( cmdjptr  ) 


struct 

pfkey_ def s 

* cmdjptr ; 

struct 

msgbuf 

♦message; 

/* 

char 

*process_name. 

/* 

*temp_ mesg; 

/* 

int 

H* 

1 

o 

/* 

msg_lnth. 

/* 

pid. 

/* 

rc  - 0; 

/* 

D (printf ( "START  ex_msgsnd\n" ) ) ; 

/* 

* Set  up  initial  values 
*/ 


Structure  to  send  to  tui_msgsnd.  */ 

Name  of  the  process  to  send  the  message  to.  */ 
Temporary  message  variable.  */ 

Loop  counter.  */ 

Length  of  the  message  to  send.  */ 

Process  id.  */ 

Error  code.  */ 


msg_lnth  - strlen  < cmd_ ptr->mesg_ptr  ) ; 

message  - (struct  msgbuf  *)calloc  ( (unsigned) 1,  sizeof  ( struct  msgbuf  ) ); 


/* 

* Parse  out  the  name  of  the  process  to  which  the  message  is  being  sent 
*/ 


while  ( cmd_ptr->mesgjptr [i]  !*  ' ' ) ( 

if  ( i <-  MAXF I LENAMES I Z ) 

i++; 

else 

break; 

) 

process_name  - ( char  * ) calloc  ( (unsigned) 1,  i ) ; 
strncpy  ( process_name,  cmd_ptr->mesg_pt r,  i ) ; 
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/* 

* Find  the  start  of  the  actual  message  and  parse  it  out  of  the  input  string 
*/ 


i++ ; 

msg_lnth  -■  i; 

temp_mesg  - ( char  * ) calloc  ( (unsigned) 1,  msg_lnth  + 1 ); 
temp_me3g  - & ( cmd_ptr->mesg_ptr [i]  ); 
temp_ mesg [msg__ lnth]  - ' \ 0'  ; 


/* 

* Get  the  process  ID  of  the  process  to  which  the  message  is  being  sent 
*/ 

pid  - EXgetpid  ( process__name,  SEARCH_ALL  ) ; 

/* 

* Set  flags  and  send  the  message 
*/ 


message->mtype  - 1; 

strncpy  ( message->mtext , temp_mesg,  strlen  ( temp_mesg  ) ) ; 
if  ( pid  > 0 ) { 

rc  - EXmsgsnd  ( pid,  message,  msg_lnth,  IPC_NOWAIT  ) ; 
if  ( rc  < 0 ) 

tui_msg  ( M__YELLOW,  "ERROR  %d  in  tui_msgsnd  function",  rc  ) ; 

} else 

tui_msg  ( M_YELLOW,  "ERROR  Process  %s  not  found  for  tui_msgsnd",  process_name  ) 

D (printf ("END  ex__msgsnd\n" ) ) ; 
return  < 0 ) ; 


} 
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* MODULE  NAME:  exit disp.C 


★ 

* 

* 

* 

★ 


This  routine  removes  the  display  and  frees  memory  via  a call  to 
clear . 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Tod  Milam  - Ford  Aerospace  Corporation/Houston 

* 


* MODIFIED  FOR  X WINDOWS  BY: 

★ 

★ Ronnie  Killough  - Software  Engineering  Section 

★ Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 

a*****************************************************************************/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio . h> 
<X11/Xlib - h> 

<X11/ Intrinsic . h> 
<sys/types .h> 
<sys/ipc.h> 
<sys/shm.h> 
<constants .h> 
<disp.h> 

<DDdisp .h> 
<wex/EXmsg . h> 


extern  struct  dm_shmemory  *Dm_Address;  /*  ptr  to  DM  shared  memory 


*/ 


exit_disp  (disp_num) 

short  disp_num;  /*  display  ♦ of  display  to  remove  */ 

{ 

D {print f {"START  exit_disp\n") ) ; 

/* 

* Verify  this  display  is  active 
*/ 

if  {Dm_Address->display  [disp_num]  ,disp_active  -»  NO)  { 

tuijmsg  (M_YELLOW,  "Display  number  %d  not  active",  disp_jium)  ; 
return (0) ; 

) 

/* 

* Clear  display  and  free  memory 
*/ 

clear  <disp_num)  ; 

/* 

* Deactivate  this  display  number 
*/ 

Dm_Address->display  [disp__num] ,disp_active  V NO; 

/* 


Destroy  display  window.  MDC  - zero  shell. 


Xt Destroy Widget (Dm_Address->shell [disp_num] ) ; 
Dm_Address->shell  [disp_num]  - NULL; 


Set  exit  response  flag,  negate  halt  flag,  negate  display  init  flag 


Dm_Address->display [disp_num] .halt  - NO; 

Dm_Addres3->display  [disp_num]  .disp_init  - NO; 

D (print f ("END  exit_disp\n" ) ) ; 
return  (0) ; 
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* MODULE  NAME:  extract.c 


* 

* This  function  extracts  a data  value  from  the  data  buffer  using  the 

* decom  buffer  information. 


★ 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Tod  Milam  - Ford  Aerospace  Corporation/Houston 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

it 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★a****************************************************************************/ 


# include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 


<stdio.h> 
<X11/Xlib.h> 
<wex/EXmsg . h> 
<sys/types .h> 
Cconstants . h> 
<disp.h> 
<DDdisp .h> 


extern  union  p_data  Data;  /*  union  structure  for  decom' d data  values  */ 

extern  char  Cdata[256];  /*  buffer  for  character  data  from  the  DH  */ 


extract (datajptr,  decom_ptr) 


char 

*data_ptr ; 

/* 

ptr  to 

the  raw  data  buffer 

*/ 

struct 

shm_decom 

*decom_ptr;  /* 

ptr  to 

the  decom  buffer 

*/ 

long 

status; 

/* 

status 

word  for  incoming  data  value 

*/ 

int 

count; 

/* 

count  * 

of  number  of  char  data  bytes 

*/ 

/* 

* Extract  the  status  word  first 

V 

status  - * (long*) (data_ptr) ; 

Data.ldata [0]  - * (long*) (data_ptr  + 4); 

Data . ldata [1]  - * (long*) (data_ptr  + 8); 

/* 

* Extract  data  from  raw  data  buffer  into  union  structure 

* according  to  the  decom  attribute. 

*/ 


switch  ( decom_ptr->attribute  ) { 


case 

( 

'D'  ) : 

/* 

double  precision  real 

*/ 

case 

< 

11  ) : 

/* 

binary  coded  decimal  time  variable 

*/ 

case 

< 

13  ) : 

/* 

binary  coded  hexadecimal  time  variable 

*/ 

case 

< 

15  ) : 

/* 

bit  weighted  time  variable 

*/ 

Data.uldata [0] 


*(long*)  (data_ptr  + 4); 
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Data.uldata [1]  - * (long*) (datajptr  + 8) ; 
break; 


case  ( 'E'  ) : /*  single  precision  real  */ 

Data.sfdata[0]  - * (float *)  (datajptr  + 4); 
break; 


case 

< 

9 ) : 

/* 

binary  coded 

decimal  tacan  range 

*/ 

case 

< 

12  ) : 

/* 

binary  coded 

decimal  analog  varable 

*/ 

case 

( 

14  ) : 

/* 

binary  coded 

hexadecimal  analog  var. 

*/ 

case 

( 

16  ) : 

/* 

bit  weighted  analog  variable 

*/ 

Data.uldata[0]  - * (long*) (datajptr  + 4); 
break; 


case 

( 

'F'  ) : 

/* 

integer  - 

signed 

*/ 

case 

< 

2 ) : 

/* 

integer  - 

signed 

*/ 

case 

< 

3 ) : 

/* 

integer  - 

no  compliment 

*/ 

case 

( 

4 ) : 

/* 

integer  - 

no  compliment 

- overflow  bit  */ 

if  ( decom_j?tr->length  --  16  ) 

Data . ssdata [0]  - * (short *) (data_ptr  + 4); 

else 

Data.sldata [0]  ■ * (long*) (datajptr  + 4); 
break; 

case  ( 'Br  ) : /*  Discrete  */ 

case  ( 24  ) : /*  Discrete  */ 

Data . sldata (0]  » *(long*) (datajptr); 

Data . sldata [0]  01; 

break; 


case  ( 'P'  ) : /*  Discrete  Parent  */ 
case  ( 'L'  ) : /*  Natural  - Unsigned  */ 
case  ( 5 ) : /*  Natural  - Unsigned  */ 
case  ( 6 ) : /*  Discrete  Parent  */ 


if  ( decom_ptr->length  <-  32  ) 

Data.uldatafO]  - Munsigned  long*)  (data_ptr  + 4)  ; 
else  { 

Data .uldata [0]  - Munsigned  long*)  (datajptr  + 4)  ; 

Data .uldata [1]  - * (unsigned  long*)  (datajptr  + 8) ; 

break; 

case  ( 'A'  ) : /*  ASCII  ★/ 

case  ( 23  ) : /*  ASCII  character  string  */ 

for  ( count  - 0;  count  < deconjptr->length;  count++  ) 

Cdata [count]  - (char) * (datajptr  + 4 + count); 
break; 

case  ( 1 ) : /*  Real  */ 

if  ( decom_j>tr->length  -•  16  ) 

Data. ssdata [0]  - * (short*) (datajptr  + 4) ; 

else  if  ( decom_ptr->length  — 32  ) 

Data . sldata [0]  - * (long*) (datajptr  + 4) ; 

else  { 

Data.sldata [0]  - * (long*) (datajptr  + 4); 
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Data.sldata [1]  - * (long*) (data_ptr  + 8); 


> 


break; 


case 

( 7 ) : 

/* 

binary  coded  decimal 

- FORMAT  X */ 

case 

( 8 ) : 

/* 

binary  coded  decimal 

- FORMAT  Y */ 

case 

( 10  ) : 

/* 

binary  coded  decimal 

GMT  - days/hrs  */ 

Data .usdata [0]  - * (long*) (data_ptr  + 4) ; 
break; 

case  ( 17  ) : /*  bit  weighted  clock  time  */ 

Data .uldata [0]  - ( * (short*) (data_ptr  + 4)*30  ); 
Data.uldata [1]  - *(long  *) (data _ptr  +8); 
break; 

case  ( 18  ) : /*  bit  weighted  GMT/MET  */ 

Data.uldata[0]  - ^(unsigned  long*)  <data_ptr  + 4); 
Data.uldata [1]  - ^{unsigned  long*)  <data_ptr  + 8) ; 
break; 

case  ( 19  ) : /*  spacelab  floating  point  */ 

if  ( decom_ptr->length  <-  32  ) 

Data .uldata [0]  » * (long*) (data_ptr  + 4); 
else  { 

Data .uldata [0]  - * (short *)  <data_ptr  + 4); 

Data . uldata [ 1]  - * (long*)  (data _ptr  + 8); 

) 

break; 


case 

( 20  ) : 

/* 

experiment  I/O  GMT  - TYPE  X 

*/ 

case 

< 21  ) : 

/* 

experiment  I/O  GMT  - TYPE  H 

*/ 

case 

( 22  ) : 

/* 

EBCDIC  character  string 

*/ 

Data .uldata [0]  - * (short *) (datajptr  + 4); 
Data .uldata [1]  - * ( long*) (data_ptr  + 8) ; 
break; 


default : 

Data.ddata  - * (double*) (da ta_ptr  + 4) ; 
break; 


) 


return  (status) ; 
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* MODULE  NAME:  fir3t_proc.c 


* This  routines  attempts  to  attach  to  the  Display  Manager  Shared  Memory. 

* If  memory  does  not  exist,  then  this  is  the  first  Display  Manager  for  this 

* workstation.  If  the  memory  does  exist,  then  a system  call  is  made  to  obtain 

* the  number  of  processes  attached  to  the  Display  Manager  shared  memory.  If 

* no  processes  are  attached,  then  this  is  the  first  Display  Manager  for  this 

* workstation. 


★ 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 


* K.  Noonan  - Ford  Aerospace  Corporation 

* 

★ 


* MODIFIED  FOR  X WINDOWS  BY: 

★ 


* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


♦include  <fcntl.h> 
♦include  <stdio.h> 
♦include  <signal.h> 
♦include  <sys/types ,h> 
♦include  <sys/ipc.h> 
♦include  <sys/shm.h> 
♦include  <constants ,h> 
♦include  <disp.h> 
♦include  <wex/EXmsg.h> 


extern  struct  dm_shmemory 
struct  shmid  ds 


* Dm_Addre s s ; 
buf;  /* 


shared  memory  status  information 


*/ 


extern  int 

errno, 
Dm_  Id; 

/*  error  return  value 
/*  shared  memory  Id 

*/ 

*/ 

int  first_proc 
{ 

short 

< > 

f irst_copy 

- NO; 

/*  flag  signifying  first  Display  Manager 

*/ 

int 

retval, 
shmctl  ( ) ; 

/*  system  error  return  value 
/*  shm  status  call 

*/ 

*! 

Dtprintf ("START  f irst_proc\n" ) ) ; 

* Determine  if  this  is  the  first  Display  Manager  activated.  Get  the  shm  Id. 

* If  an  error  occurs,  then  this  is  the  first  process.  Otherwise  do  a shmctl 
ca^  retrieve  the  number  of  attaches  to  the  shared  memory,  if  the 

* number  attached  is  greater  than  zero,  then  this  is  not  the  first  Display 

* Manager  in  the  workstation.  If  the  number  attached  is  zero,  then  this 
is  the  first  Display  Manager,  but  the  shared  memory  exists,  so  don't 

* recreate  the  shared  memory.  Attach  to  the  shared  memory  in  the  case  of 

* the  existence  of  the  shared  memory. 


if  ( < Dm_Id  - shmget  ( DM_SHM_KEY,  sizeof (struct  dm  shmemory) , 0666  ) ) — 
first_copy  - CREAT  SHM;  — 


-1  ) ( 
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} else  { 

retval  - shmctl  ( Dm_Id,  IPC_STAT,  &buf  ) ; 
if  ( retval  — -1  ) { 

tui_msg  < M_YELLOW,  "Error  %d  on  shmctl  call", 
return  ( -1  ) ; 

} else  { 

if  ( buf . shm_nattch  > 0 ) 
first_copy  - NO; 

else 


errno  ) ; 


{ 


first_copy  - NO_CR£ AT ; 

if  ( ( Dm_Address  - ( struct  dm_shmemory  * ) shmat  ( Dm_Id, 

tui_msg  ( M_YELLOW,  "Error  %d  on  shared  memory  attach", 
return  ( -1  ) ; 


} 


} 


> 


0,  0 ) ) 

errno  ) ; 


“ NULL 


D (printf ("END  first_ proc\n") ) ; 
return  ( f irst— copy  ) ; 


/★A**************************************************************************** 

* MODULE  NAME:  flt_data.c 

★ 

* This  function  allows  the  user  to  set  the  flight  and  data  type. 

★ 

★ 

* INTERNAL  FUNCTIONS: 

★ 

* o f lt_data_menu  - This  function  displays  the  menu  which  allows 

* the  user  to  enter  the  flight  and  data  type. 


o cb  fd 


* 

★ 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* K.  Noonan  - Ford  Aerospace  Corporation 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 


This  function  processes  all  callback  generated 
by  the  menu. 


* Mark  D,  Collier 


Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


* 
* 
* 


♦include  <X11/Intrinsic .h> 
♦include  <X11/Shell.h> 
♦include  <Xm/Xm.h> 

♦include  <Xm/Text.h> 
♦include  <constants .h> 
♦include  <disp.h> 

♦include  <pf_key.h> 
♦include  <user_inter . h> 
♦include  <wex/EXmsg.h> 


static 

Widget 

t_fid,  r_data; 

static 

int 

flag; 

extern 

Widget 

Top; 

extern 

struct  dm_shmemory 

*Dm_Address; 

extern 

short 

Fit  Selected, 

Disp_Num, 
Good  Strm; 


/*  Display  Manager  shared  memory 

/*  Yes  if  fit  info  has  been  input 
/*  display  number  of  Display  Manage 
/*  Yes,  if  good  data  type  input 


int  flt_data  ( ) 

{ 

D (printf ("START  fit  data\n")); 

/* 

* If  a flight  has  already  been  selected,  deselect  it. 
*/ 

if  ( Flt_Selected  — YES  ) 
chk_f It  ( NO  ) ; 


/* 

* Display  and  get  input  from  a popup. 


f lt_ data__menu  ( ) ; 

D(printf ("END  f lt_data\n") ) 
return  ( 0 ) ; 


/★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★a******************************** 

* MODULE  NAME:  f lt_data_menu 

* 

* This  function  displays  the  menu  which  allows  the  user  to  enter  the  flight 

* and  data  type. 

******************************************************************************^ 


static  int  f lt_ data_menu  ( ) 
{ 


register  int 
static  char 
Arg 
widget 


* datatypes [ ] - { "RR",  "Rl",  "R2",  "SR",  "SI",  "S2"  }; 
a r gs [10] ; 

shell,  form,  f_data,  f_cmd; 


XtCallbackProc  cb  fd(); 


XEvent 


event ; 


/* 

★ 

* 

*/ 


D {print f ("START  f lt_data_menu\n" ) ) ; 

Create  the  shell  widget.  Note  that  setting  the  args  in  the  create 
widget  call  does  not  seem  to  work,  so  I set  them  afterward. 


i - 0; 

shell  - tui_create_trans_shell  ( "Set  Flight/Data",  args,  i ); 

/* 

* Create  the  main  form. 

*/ 


/* 

★ 

*/ 


i - 0; 


form 

- tui_ 

_create_ 

form 

< 

shell, 

"form", 

TRUE,  args. 

i 

) ; 

f_data  - tui_ 

_create_ 

form 

< 

form. 

"f_data". 

FALSE,  args. 

i 

) ; 

f_cmd 

- tui_ 

_create_ 

form 

< 

form. 

"f_cmd". 

FALSE,  args. 

i 

); 

Create  all  widgets . 


i - 0; 

tui_create_label  { f_data,  "l_fid",  "Flight  ID",  args,  i ); 
tui_create_label  < f_data,  "l_data",  "Data  Type",  args,  i ); 

t_fid  - tui_create_text  ( f_data,  "t_fid",  Dm_Address->display [Disp_Num] . flight_id 

3,  XmS INGLE_L INE_ED IT , TRUE,  args,  i ) ; 
r_data  - tui_create_rb  ( f_data,  "r_data",  datatypes,  6, 

Dm_Address->display [Disp_Num] .strm_type,  args,  i ); 


i - 0; 

XtManageChild  ( XmCreateSeparator  ( form,  "sepO",  args,  i ) ) ; 


/* 

* 


i * 0; 

tui_create_pushbutton  ( f_cmd,  "Cancel", 
tui_create— pushbutton  ( f__cmd,  "OK", 
tui_createjpushbutton  ( f_cmd,  "Help", 


cb_fd, 

cb_fd, 

cb_fd. 


(caddr_t) 0, 
{caddr__t) 1, 
(caddr_t)  2, 


args,  i ); 
args,  i ) ; 
args,  i ); 


*/ 


Put  all  inputs  in  a tab  group. 


XmAddTabGroup  ( t_fid  ) ; 
XmAddTabGroup  ( r_data  ) ; 


Realize  and  popup  the  shell. 


XtRealizeWidget  ( shell  ) ; 
Xt Popup  ( shell.  None  ) ; 
set_cinap  ( shell  ) ; 


Wait  until  the  user  finishes  with  the  popup. 


flag  - -1; 

while  ( flag  --  -1  ) { 

XtNextEvent  ( Sevent  ) ; 

XtDispatchEvent  ( Sevent  ) ; 


XtDestroyWidget  ( shell  ) ; 


Return  the  value  selected  by  the  user  (0  is  for  not  verified,  1 is  for 
verified. 


D (printf ("END  f lt_data_menu\n" ) ) ; 
return  ( flag  ) ; 


/★★★★★a************************************************************************* 

* MODULE  NAME:  cb_fd 

★ 

* This  function  processes  all  callback  generated  by  the  menu. 

★ *****************************************************************************  j 


/*  ARGSUSED  */ 

static  XtCallbackProc  cb_fd  ( w,  closure,  calldata  ) 


Widget 
caddr  t 


w; 


/*  Set  to  widget  which  in  which  callback  originated. 


closure,  /*  Indicates  selected  command. 
*calldata;  /*  Widget-specific  information. 


XtCallbackProc  cb_help() ; 
int  val  dt { ) ; 


char 


*f light_id, 
*strm_type; 


/* 

* 

*/ 


D (printf ("START  cb_fd\n") ) ; 
Process  OK  button. 


if  ( (int) closure  — 1 ) ( 

flight_id  - XmTextGetString  ( t_fid  ) ; 
strm_type  “ tui_radio_get_value  ( r_data  ) ; 


/* 

* 

*/ 


Copy  the  data  type  into  shared  memory.  Save  and  validate  the  data  type. 


*/ 

*/ 

*/ 


strncpy  ( Dm_Address->display [Disp_Num] . f light_id,  flight_id,  3 ); 
Dm_Address->display [Disp_Num] . flight_id[3]  - 0; 

val_dt  ( strm_type  ) ; 


/* 

A If  the  flight  or  the  data  type  is  invalid,  set  flag.  Otherwise,  select  the  flight 

* if  valid. 

*/ 

if  ( ( Dm_Address->display [Disp_Num] . f light_id [ 0 ] — '\0'  ) || 

( Dm_Address->display [Disp_Num] . f light_id[0]  — ' • ) || 

( Good_Strm  — NO  ) ) { 

Flt_Selected  - NO; 

) else  { 

chk_f It  ( YES  ) ; 
flag  - (int) closure; 

) 

/* 

* Process  CANCEL  button . 

*/ 


} else  if  ( (int) closure  =•  0 ) { 

flag  - (int) closure; 


/* 

* If  help  button  was  selected, 
*/ 


display  appropriate  help  text. 
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} else  if  ( (int) closure  — 2 ) 

cb_help  ( (Widget) 0,  (caddr_t)l,  (caddr_t)0  ); 

D(printf ("END  cb_fd\n") ) ; 
return; 


* MODULE  NAME:  font  num.c 


* 

* This  function  returns  the  X Font  ID  corresponding  to  the  given 

* dimensions  and  style  of  the  font.  Any  font  needed  which  has 

* not  been  loaded  is  loaded.  The  dimensions  and  style  of  the  font 

* those  generated  by  the  Display  Builder  application  and  are  translated 

* into  fixed  font  sizes  in  ranges. 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 

* 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************/ 


♦include  <stdio.h> 
♦include  <X11/Xlib.h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 


extern  struct  dm_shmemory  *Dm_Address;  /*  ptr  to  DM  shared  memory  */ 

Font  font_num(disp_jium,  font_style,  horz_size,  vert_size) 


short 

disp_num; 

/* 

display  ♦ of  requested  font 

*/ 

char 

font_style [5] ; 

/* 

requested  font  style  (regl,  bold,  ital) 

*/ 

int 

horz_size; 

/* 

horizontal  font  size 

*/ 

int 

vert_size; 

/* 

vertical  font  size 

*/ 

{ 


Display  *xdisplay; 

/*  ptr  to  X display  struct  of  display 

*/ 

Font  font_ nm; 

/*  X Font  number 

*/ 

xdisplay  - Dm__Address->xdisplay  [disp_num]  ; 

/* 

* Break  fonts  down  by  style. 

*/ 


switch  (font_style [0] ) { 

case  'r' : /*  Font  Style  is  regular  */ 

/*  RLK  original  range  value  for  9x11  font 

if  ((horz_size  >-  95)  II  (vert_size  >-  220)) 

*/ 

if  { (horz_size  >«  155)  ||  (vert_size  >-  245)) 

font_nm  - XLoadFont (xdisplay,  R_2  4)  ; 
else  if  ( (horz_size  >-  130)  I I (vert_size  >-  220)) 
font_ nm  * XLoadFont (xdisplay,  R_18) ; 
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else  if  ( (horz_size  >-  105)  I I (vert_size  >-  195) ) 
font_nm  - XLoadFont (xdisplay,  R_14) ; 
else  if  ( (horz_size  >•  80)  li  (vert_size  >-  170)) 
font_nm  - XLoadFont (xdisplay,  R_12)  ; 
else  if  ( (horz_size  >*  55)  II  (vert_size  >-  145)) 
font_nm  - XLoadFont (xdisplay,  R_10); 

else 

font_nm  - XLoadFont (xdisplay,  R_08); 
break; 

case  'b' : /*  Font  Style  is  bold  */ 

if  ( (horz_size  >-  155)  I I (vert_size  >-  245)) 
font_nxn  - XLoadFont  (xdisplay,  B_24) ; 
else  if  ( (horz_size  >*  130)  I I (vert_size  >■  220)) 
font_nm  - XLoadFont (xdisplay,  B_18); 
else  if  ( (horz_size  >-  105)  I!  (vert_size  >-  195)) 
font_nm  - XLoadFont  (xdisplay,  B_JL4)  ; 
else  if  ( (horz_size  >■  80)  II  (vert_size  >-  170)) 
font_nm  - XLoadFont (xdisplay,  B_12)  ; 
else  if  ( (horz_size  >■  55)  I I (vert^size  >■  145) ) 
font_nm  - XLoadFont (xdisplay,  B_10) ; 

else 

font_nm  - XLoadFont (xdisplay,  B_08)  ; 
break; 

case  ' i' : /*  Font  Style  is  italic  */ 

if  ( (horz_size  >-  155)  ||  (vert_size  >-  245)) 

font_nm  - XLoadFont (xdisplay,  I_ 24); 
else  if  ( (horz_size  >-  130)  M (vert_ size  >-  220)) 
font_nm  - XLoadFont (xdisplay,  I_18); 
else  if  ( (horz_size  >■  105)  II  (vert_size  >-  195)) 
font_nm  - XLoadFont (xdisplay,  I_  14); 
else  if  ( (horz_size  >-  80)  II  (vert_size  >-  170)) 
font_nm  - XLoadFont  (xdisplay,  I_12); 
else  if  ( (horz_size  >*  55)  I I (vert_size  >-  145) ) 
font_nm  - XLoadFont (xdisplay,  I_10) ; 

else 

font_nm  - XLoadFont  (xdisplay,  I 0 8 ) ; 

break; 
default : 

font_nm  - XLoadFont (xdisplay,  R_12); 
break; 

} 

return  (font  nm)  ; 


gdr_next.c 

★a********************************************************************* 

* MODULE  NAME:  gdr_next.c 

* 

* This  function  processes  the  GDR  next  command. 

★ 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* R.  Romeo  - Ford  Aerospace  Corporation 

* 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

A*****************************************************************************/ 


/******* 


♦include  <constants .h> 
♦include  <disp.h> 
♦include  <pf_key.h> 
♦include  <wex/EXmsg .h> 


extern  struct 

dm_s hmemo r y *Dm_Addres3  ; 

/* 

ptr  to  display  manager  shm 

*/ 

extern  struct 

pfkey_defa  Current_Coro; 

/* 

current  command  structure 

*/ 

extern  char 

Disp_Path [DNAME_LEN] ; 

/* 

default  display  path  name 

*/ 

int  gdr  next 
{ 

short 

( ) 

i. 

/* 

index  counter 

*/ 

match  - NO; 

/* 

YES,  if  match  found  on  filename 

*/ 

char 

ppl_fn [60] ; 

/* 

ppl  filename 

*/ 

D (printf ( 

"START  gdr_next\n”) ) ; 

/* 

* Search  for  a match  on  the  PPL  filename  that  the  get  next  command  is  to  be 

* done  for.  If  a match  is  found,  then  set  the  get  next  command  flag  in  the 

* PPL  record  information  and  in  shared  memory  for  the  Data  Handler.  If  no 

* match  is  found,  then  advise. 

*/ 


if  ( Current_Com.disp_name [0]  !-  '/'  ) { 
strcpy  ( ppl_ fn,  Disp_Path  ) ; 
strcat  ( ppl_fn,  Current_Com.disp_name  ); 

} else 

strcpy  ( ppl_fn,  Current_Com.disp_name  ); 
i - 0; 

while  ( i < NUMJ5DR  &&  match  — NO  ) { 

if  ( strcmp  ( ppl_fn,  Dm_Address->ppl_recs [i] .ppl_f ilename  ) — 0 ) { 

match  - YES; 

Dm_Address->ppl_recs [i] .get_next  * YES; 

Dm_Address->process . gdr_get_next  - YES; 

} else 
i++; 

} 

if  ( match  --  NO  ) 
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tui  msg  ( M YELLOW,  "PPL  file  %s  is  not  currently  active",  Current_Com.disp_name 


D (print f ("END  gdr_next\n") ) ; 
return  ( 0 ) ; 
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*********************************************************************** 

* MODULE  NAME:  get_disp.c 

★ 

* This  function  prompts  for  a display  name. 

★ 

★ 

* INTERNAL  FUNCTIONS: 

★ 

* o process_ok  - Returns  TRUE  if  the  user  enters  a valid  display 

* name . 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* C.  Davis  - Ford  Aerospace  Corporation 

* 


/****★★* 


* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


♦include  <X11/Intrinsic .h> 
♦include  <Xm/Text.h> 
♦include  <constants .h> 
♦include  <disp.h> 

♦include  <pf_key.h> 
♦include  <user_inter . h> 
♦include  <wex/EXmsg.h> 


extern  Widget 


Top; 


extern  struct  pfkey_defs  Current_Com; 

extern  struct  dm_shmemory  *Dm_Address; 


extern  short 


Disp_Num; 


/*  current  commands  definition  */ 

/*  Display  Manager  shared  memory  ptr  */ 

/*  Display  Manager  number  */ 


int 

{ 


/* 

* 

*/ 


get_disp  ( ) 

int  process_ok ( ) ; 

short  flag; 

D (print f ( "START  get_disp\n") ) ; 

Display  a popup  waiting  for  user  to  enter  a display  name. 


flag  - tui_get_j?rompt 


Top,  "Get  Display",  "Display  Name",  Current_Com. disp  name,  -1, 
process__ok,  NULL,  0 ) ; “ 


/* 

* Return  the  status  of  the  popup. 
*/ 


} 


D (printf ("END  get_disp\n" ) ) ; 
return  ( flag  ) ; 
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/Hr****************************************************************************** 

* MODULE  NAME:  process_ok 

Hr 

* Returns  TRUE  if  the  user  enters  a valid  display  name. 

* ★a************************************************************************.***,  j 


static  int  process_ok  ( string  ) 
char  ^string; 

{ 


D (printf ("START  process_ok\n" ) ) ; 

/* 

* Process  OK  button. 

*/ 


strcpy  ( Current_Com.disp_name,  string  )/ 
if  < val_fn  ( string,  YES  ) ) { 

Current_Com. f unc_no  - START_PDISPLAY; 
return  ( 1 ) ; 

} 

D (printf {"END  process_ok\n" ) ) ; 
return  ( 0 ) ; 


get_fn.c 


★ 


* MODULE  NAME:  get_fn.c 


★ 

★ 

* 

* 


The  Get  Filename  function  strips  off  the  directory  from  a filename  and 
returns  the  filename  without  the  directory  specified. 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* C.  Davis  - Ford  Aerospace  Corporation 

★ 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 
**★******★★****★★**★★*★***★***************************************************/ 


♦include  <constants .h> 
♦include  <wex/EXmsg . h> 


int  get_fn 
char 

{ 

int 

short 


dir_f ile_name,  no_dir_fn  ) 

★dir  f ile_name,  /*  pointer  to  the  dir,  spec,  filename 

*no_dir_fn;  /*  ptr  to  the  no  directory  filename 

len;  /*  length  of  the  filename 

i;  /*  index  cntr 


*/ 

*/ 

*/ 

*/ 


D(printf ("START  get_fn\n") ) ; 

/* 

★ Get  the  length  of  the  passed  in  filename.  Then  search  for  the  first 

★ occurrance  of  a "/."  Copy  the  characters  from  the  slash  to  the  end  of  the 

★ filename  into  the  variable  to  be  passed  back.  This  variable  will  contain 

★ the  filename  without  the  directory. 

*/ 


len  - strlen  ( dir_f  ile_name  ) ; 
i - len  - 1; 

while  ((  i >-  0 )&*((*  ( dir_f ile_name  + i ) !-  '/'  ) ) ) { 

i — ; 

) 

strcpy  ( no_dir_ fn,  ( dir_f ile— name  + i + 1 ) ) ; 


} 


D (print f ("END  get_fn\n") ) ; 
return  ( 0 ) ; 
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/★★a*************************************************************************** 

* MODULE  NAME:  get_plot.c 

★ 

* This  function  is  invoked  when  the  user  selects  either  a predefined  PF 

* key  or  a menu  selection  for  a plot  start  or  stop. 

* 

★ 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* K.  Noonan  - Ford  Aerospace  Corporation 

★ 


* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

******************************************************************************y 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio.h> 

<X11/ Intrinsic . h> 

<fcntl.h> 

<unistd.h> 

<constants . h> 

<disp.h> 

<DDdisp.h> 

<DDplot . h> 

<pf_key . h> 
<wex/EXmsg . h> 


extern 

extern 

struct 

struct 

dm_shmemo  ry 
Pfkey_ defs 

*Dm_Address ; 
Current_Com; 

extern 

struct 

plot_ptrs 

*Plot_inf o_ptr; 

/* 

Ptr  thru  plot  ptr  files. 

*/ 

extern 

int 

errno; 

/* 

Error  return  value. 

*/ 

extern 

short 

Nbr_of_plots, 

Disp_Num; 

/* 

Number  of  plots  to  display. 

*/ 

extern 

char 

Disp_Path [DNAME_ 

_LEN]  ; 

int  get_plot  { ) 
{ 


struct  disp_info 

♦display; 

struct  shm_decom 

♦loc_dcmjptr; 

/* 

struct  plot_hdr 

*plot_hdr_j>tr ; 

/* 

struct  plot^ptrs 

*plot_ptr; 

/* 

struct  axis_info 

♦axis_ptr; 

/* 

struct  msid_info 

*msid_ptr; 

/* 

static  short 

access [MAX_PLOTS] ; 

int 

k,  m, 

/* 

next_of f set. 

/* 

plot_fp; 

/* 

short 

match  - NO, 

/* 

i f 

/* 

empty_start. 

/* 

Ptr  thru  plot  decom  structure.  */ 
Ptr  thru  plot  header.  */ 
Ptr  thru  plot  ptr  files.  */ 
Local  ptr  to  axis  information.  ★/ 
Local  ptr  to  msid  information.  */ 

/*  access  restriction  code  for  each  plot*/ 

Loop  count  variable.  * / 
Nbr  of  bytes  for  offset  cal.  *, 
Local  plot  file  pointer.  */ 

YES,  if  match  found  on  filename  */ 
Index  counter  */ 
Slot  to  add  start  plot  name  */ 


FILE 


char 
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match_nbr,  /*  Slot  nbr  for  a match  in  act  plot  list  */ 

disp_num,  /*  Effective  display  number  */ 

nbr_axes;  /*  Total  x and  y axes.  */ 

*fopen  ( ) , 

*fp;  /*  File  ptr  to  plot  file.  */ 

plot_name [DNAME_LEN+4] , /*  Plot  name  with  .pit  extension.  */ 
*malloc();  /*  Get  malloc  as  a pointer.  */ 


D(printf ("START  get_plot\n") ) ; 


/* 

* Save  the  display  number  and  pointer  to  current  display  structure. 
*/ 

disp— num  * Disp_Num; 

display  - &Dm_Address->di splay  [Disp_Num]  ; 


/* 

* Build  the  complete  path  of  the  plot  if  the  path  is  not  already  given. 
*/ 


if  { Cur rent_Com . disp_name  [ 0 ] !»  '/'  ) { 

strcpy  ( plot_name , Disp_Path  ) ; 

strcat  { plot_name,  Current_Com.disp_name  ); 

strcpy  { Current_Com.disp_name,  plot_name  ); 

} else 

strcpy  ( plot_name,  Current_Com.disp_name  ); 


/* 

* Search  the  active  plot  table  for  a match  on  the  plot  name.  If  a match  is  found 

* and  the  action  is  to  start  a plot,  then  advise  and  return.  Check  for  an  empty  slot 

* to  store  the  plot  to  be  activated. 

*/ 


i - 0; 
match  - NO; 
empty_start  * -1; 

while  ( ( i < MAX_PLOTS  ) &&  ( match  — NO  ) ) { 

if  ( < strcmp  ( Dm_Address->plots . act_plots [i] , plot_name  ) ) — 0 ) { 
match  - YES; 
match_nbr  - i ; 

if  ( Current_Com.func_no  — PLOT  ) { 

tui_msg  ( M_YELLOW,  "Plot  %s  is  already  active",  Current_Com.disp_name  ); 
return  ( -1  ) ; 

} 

} else  ( 

if  ( Dm_Address->plots .act_ plots [ i ] [0]  — 0 ) 
empty_start  - i; 

i++; 

} 

} 

/* 

* If  no  match  was  found  and  the  user  is  trying  to  turn  a plot  off,  output  an  error 

* and  return. 

*/ 

if  ( ( match  — NO  ) &&  ( Current_Com. func_no  “ PLOT_OFF  ) ) { 

tui_msg  ( M_YELLOW,  "Plot  %s  not  active",  plot_name  ) ; 
return  ( -1  ) ; 


/* 


) 
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* If  the  plot  is  to  be  started,  then  check  to  see  if  the  workstation  limit 

* for  active  plots  has  been  exceeded.  If  so,  advise  and  return.  Otherwise,  open  the 

* plot  file  and  check  the  access  restriction  code. 

*/ 

if  ( Current_Com. func_no  " PLOT  ) { 

if  ( empty_start  -»  -1  ) { 

tui_msg  ( M_YELLOW,  "Workstation  limit  for  active  plots  has  been  exceeded"  ) 
return  ( -1  ) ; 

} 

strncat  ( plot_name,  ".plt\0",  5 ); 
fp  * fopen  ( plot_name,  nr"  ) ; 
if  ( fp  --  NULL  ) { 

tui__msg  { M_YELLOW,  "Error  %d  on  opening  plot  file  %s",  errno,  plot_name) ; 
return  ( -1  ) ; 

> 

fscanf  ( fp,  ” % * 7 2 c " ) ; /*  skip  to  access  record  */ 
fscanf  ( fp,  "%hd",  &access[i]  ); 
fclose  ( fp  ) ; 

/* 

* Check  the  access  restriction  code  to  see  if  the  plot  is  either  a Medical 

* or  Payload  restricted  plot.  If  the  plot  is  access  restricted  and  the 

* position  Id  does  not  match  the  access  restriction,  then  exit  out  of  this 

* routine. 

*/ 

if  < chk_res  ( access [i],  display->pos_id  ) ) 
return  ( -1  ) / 

} 

/* 

* Set  up  the  shared  memory  flags  for  the  Data  Handler.  Monitor  the  response 

* from  the  Data  Handler. 

*/ 


display->action  - ( Current__Com.  func_no  « PLOT  ) ? STRT_PLOT  : STOP__PLOT; 
display->dh_jplot_ack  - NO;  ~ 

strcpy  ( display->plot_name,  Current^ Com.disp_name  ) ; 

if  ( Current_Com. func_no  — PLOT  ) { 

strcpy  ( Dm_Address->plots . act_ plots [empty_start ] , Current_Com.disp_name  ); 
display->dh_plot  - STRT_PLOT; 

} else 

display->dh_plot  - STOP_PLOT; 

if  ( chk_flg  ( &display->dh_plot— ack,  20,  1 ) ) { 

tui_msg  ( M_YELLOW,  "Data  Handler  unable  to  process  plot  %s", 
Current_Com.disp_name  ) ; 
if  ( Current_Com. func_no  — PLOT  ) 

Dm_Address->plots .act_plots [empty_start] [0]  - 0; 
return  ( -1  ) ; 

) 

/* 

* If  turning  off  a plot,  zero  out  the  name  in  the  active  plots  list. 

*/ 

if  { Current_Com. func_no  — PLOT_OFF  ) 

Dm_Address->plots  . act__plots  [match__nbr]  [0]  * 0; 


Find  plot  in  plot  info  list. 


match  - NO; 

for  (i-0;  i < Nbr^of^ plots ; i++)  { 

plot_jptr  - Plot_info_jptr  + i; 

if  ( ! strcmp  (plot_ptr->plot_name,  display->plot_name) ) { 

match  - YES; 
break; 

} 

} 

if  (match  ” NO)  { 

tui  msg  (M  YELLOW,  "Plot  %s  is  not  specified  in  this  display",  display->plot_name) 

; 

return  ( -1  ) ; 

} 

if  ( display->action  ««  STRT_PLOT  ) { 

strcpy  <plot_ name,  plot_ ptr->plot_name)  ; 

/* 

* Open  plot  data  file  and  read  decom  buffer 
*/ 

strcpy  (plot_name,  plot_ptr->plot_data_f ile)  ; 
street  <plot_name,  " .pdt")  ; 

plot_ptr->plot_fp  - open (plot_name,  0_RD0NLY) ; 
if  (plot_ptr->plot_fp  “ INVALID)  { 

tuijnsg (M_YELLOW,  "Error  %d  opening  plot  data  file  %s",  errno,  plot_name) ; 
return (-1) ; 

) 

plot_fp  - plot_ptr->plot_fp; 

/* 

* Skip  over  decom  buffer  header  and  read 

* decom  buffer  to  memory. 

*/ 


lseek (plot_fp,  80,  SEEK_SET) ; 
loc_dcm_pt r - plot_ ptr->plt_decom; 
plot_hdr_ptr  - plot_ptr->header; 

plot_ptr->buf_size  ■ 0; 
next_offset  - 0; 

for  (m  - 0;  m < plot_hdr— ptr->msid_num;  m++)  { 

read (plot_fp,  &loc_dcm_j>tr->size,  sizeof  (int)  ) ; 
read(plot_fp,  &loc_dcm—ptr-> length,  sizeof (int) ) ; 
read  (plot_fp,  &loc_dcmj>tr->nurn_samps,  sizeof  (short)  ) ; 
read  (plot_fp,  &loc_dcm_j>tr->at  tribute,  sizeof  (char) ) ; 
read (plot_fp,  &loc— dcinj>tr->error,  sizeof (char) ) ; 
lseek  (plot_fp,  12,  SEEK__CUR)  ; 

#ifdef  FAC 

if  (loc_dcm_j)tr->error  !-  NULL)  { 
loc_dcm_j)tr->num_samps  - 1; 
loc_dcm—ptr-> length  » 4; 


#endif 


} 
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Calculate  sample  size  and  data  buffer  size. 

Store  offset  into  memory. 

*/ 

loc_ dcm _j5tr->sample_size  - loc_dcm_j5tr->size  / loc_dcm_pt  r->num_samps  ; 
plot_ptr->buf_size  - plot_ptr->buf_size  + 2 + loc_dcm_ptr->size; 

loc_dcm_ptr->of f set  - next_offset; 

next_offset  * loc— dcm_j5tr->size  + loc_dcm_ptr->of fset  + 2; 
loc_dcm_pt  r ++  ; 

) 

/* 

* Allocate  space  for  data  buffer 

* and  set  plot  active  flag 
*/ 


plot_ptr->plot_data  - malloc (plot_ptr->buf_size) ; 

if  (plot_ptr->plot_data  ««  NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  creating  data  buffer  space",  errno) ; 
return  (-1) ; 

} 

plot— ptr->act_f lg  » YES; 
plot_ptr->seconds_elapsed  * 0; 


/* 

★ 

*/ 


If  plot  was  previously  active,  restore  plot  to 
original  state  (first  point  flags,  scale  factors,  etc) . 


if  (plot— ptr->prev_act_f lg)  { 

nbr_axes  - plot— ptr->header->xaxes_num  + plot__ ptr->header->yaxes_num; 
axis^ptr  - plot_j?tr->axis; 
msid_jptr  - plot_ptr->msids; 


Set  all  msid  first  point  flags 


for  (k-0;  k<plotjptr->header->actual_msids;  k++)  { 
msid_jptr->f  irst_pt  - YES; 
msid_ptr++; 

} 


/* 

* 

*/ 


/* 


★ 

* 

★ 

*/ 


Restore  original  high  and  low  scale  values 

for  (k-0;  k < nbr_axes;  k++)  { 

axis^ ptr->low_value  - axis— ptr->org_low__val; 
axis_ptr->high_value  - axis_ptr->org_high_val; 
axis_jptr++; 

} 


Erase  the  plot  using  the  coordinates  of  the  plot 
and  the  background  color.  Redraw  the  plot,  and  if 
an  overlay  is  applicable  draw  the  overlay. 
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XClearArea (Dm_Addres3->xdisplay [disp_num] , xtWindow (plot_ptr->draw_win) 
0,  0,  plot_ptr->plot_poa->drw_width, 

plot _ptr->plot_pos->drw_height.  False) ; 


draw_plt <Disp_Num,  plot _ptr) ; 

if  (plot_ptr->ovr_f lg) 
draw_ovl (plot_ptr) ; 


/* 

* If  plot  was  not  previously  active,  set 

* previously  active  flag  since  it  is  being 

* activated  now. 

*/ 


} else 

plot_ptr->prev_act_f lg  “ YES; 

} else  if  (display->disp_init  &&  plot_ptr->act_f lg  --  YES)  { 
plot_ptr->act_flg  * NO; 
free (plot_ptr->plot_ data) ; 


) 


D{printf ("END  get j>lot\nw) ) ; 
return  ( 0 ) ; 
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* MODULE  NAME:  globals. c 

* 


* The  globals  file  contains  only  declaration  statements  of  variables. 

* There  is  no  "executable  code"  in  the  file.  The  purpose  of  this  file  is 

* for  an  easy  look  up  for  all  globals  variables. 


★ 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* C.  Davis  - Ford  Aerospace  Corporation 

* 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

ft****************************************************************^*^*^******/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<sys/ types .h> 

<sys/timeb.h> 

<termio.h> 

<stdio.h> 

<X11/Intrinsic .h> 

<constants .h> 

<disp.h> 

<pf_key .h> 

<DDdisp . h> 
<DDfg_graph . h> 
<wex/FCpbi ,h> 
<wex/EXmsg.h> 


/* 

* New  globals  added. 
*/ 


Widget 

Verytop, 

Top, 

Shell, 
Scrl_Win, 
Draw_Win, 
Plt_Scrl_Win, 
PltJ Draw_Win, 
Pb  Alarm, 
Pb_Pbi, 
Pb_Log, 

Pb_Log  A, 

Pb  Msg, 

Pb_Pf  ; 

short 

Pixels  [128]  ; 

float 

Colors [128]  [3] ; 

Colormap 

Main_cmap; 

/* 

* Define  the  strings  corresponding  to  all  functions.  These  are  used  when  the 

* command  must  be  verified. 

*/ 


char 


*Func_Desc[]  - { 


9 

’•Start  Display", 

"Start  Particular  Display" 
"Clear  Display", 

"Screen  Dump", 

"Obsolete  Function", 

"Halt  Display”, 

"Change  Limits", 

"Change  Limits", 

"Obsolete  Function", 
"Obsolete  Function", 
"Change  Update  Rate", 
"Enable  Limit  Group", 
"Enable  Alarms”, 

"Start  Plot”, 

"Plot  Overlay", 

"History  Tables", 

"Zoom  Display", 

"Reset  Zoom", 

"Set  Zoom  Factor", 

"Enable  Display  Log", 
"Disable  Display  Log", 
"Enable  All  Display  Log", 
"Disable  All  Display  Log", 
"GDR  Get  Next", 

"Enable  PBI", 

"Disable  PBI", 

"Send  Message", 

"Unlatch  DDD  MS ID", 
"Unlatch  All  DDD' s" , 

"Set  Flight/Datatype", 
"Change  GDR", 

"Disable  Limit  Group", 
"List  Limits", 

"Stop  Plot", 

"List  Plots", 

"Save  Overlay", 

"Define  Universal  Plot", 
"Disable  Alarm", 

"Display", 

"Enable  Messages", 

"Disable  Messages" 


globals.c 


/* 

* Define  the  list  of  valid  datatypes. 
*/ 


char  *Src_list[]  - { "MTM" , "GDR",  "EVN" , "NDM",  "PPM",  "PTM",  "USR"  }; 

/* 

* Define  list  which  will  point  to  the  current  set  of  MSID's  for  DDD  and  limit 

* functions. 

*/ 

char  **Msid_list_lim, 

* *Ms id_l i s t_ddd ; 

^ int  Msid_num_lim, 

Ms i d_n um_ddd ; 

/* 

* Define  the  lists  of  limits  and  plot  files  (and  descriptions) . These  lists  are 

* used  to  present  available  limit  and  plot  files  to  the  user. 
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*/ 

char  **List— plot, 

**List_limit , 

**List_ht ; 

int  Num_plot, 

Num_limit , 

Nuxn_ht ; 

/* 

* This  variable  contains  the  function  key  definition  for  the  function  keys 

* defined  to  correspond  to  this  active  display. 

*/ 


struct  pfkey_def s Act_Pfkeys [PFKEY_COUNT] ; 

/* 

* This  variable  contains  the  current  command  that  the  Display  Manager  is  to 

* process.  These  commands  are  either  PF  key  defined  or  mouse  entered  from 

* the  main  menu. 

*/ 


struct  pfkey_defs  Current_Com; 

/* 

* This  variable  contains  the  function  key  definition  for  the  default  function 

* keys  defined  in  "default .pf"  for  this  workstation. 

*/ 


struct  pfkey_defs  Def_Pfkeys  [PFKEY__COUNT]  ; 

/* 

* This  variable  contains  a pointer  to  all  the  display  file  names  and 

* descriptions  within  a directory. 

*/ 


char  *Disp_Info  - NULL; 

/* 

* This  variable  contains  the  slot  number  in  the  display  information  structure 

* where  information  for  Display  Manager  and  related  Display  are  contained. 

*/ 

short  Disp__Num; 

/* 

* This  variable  contains  path  of  the  display  when  no  path  name  is  specified. 
*/ 


char  Disp_Path  [DNAME_LEN]  ; 

/* 

* This  variable  contains  the  Display  Manager  and  Data  Handler  Shared  Address. 
*/ 

struct  data_info  *Dh_Address; 
struct  dm_shmemory  *Dm_Address; 

/* 

* Variable  set  to  true  when  time  to  exit. 

*/ 


short 


Dm  Halt; 
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* This  variable  contains  the  Display  Manager  Shared  Memory  ID. 

*/ 

int  Dm_Id; 

/* 

* This  variable  contains  a one  if  this  is  the  first  Display  Manager  in  the 

* workstation. 

*/ 

short  First_Copy  “ NO; 


* This  variable  contains  a one  if  the  Flight  Id  and  Data  Type  have  been 

* input . 

*/ 

short  Flt_Selected  - NO; 

/* 

* This  variable  contains  a one  if  the  data  type  is  good. 

*/ 


short 


Good  Strm  - NO; 


/* 

* Flag  used  to  control  display  of  popup  messages. 

*/ 

short  Msg_Popup_Flag  - NO; 

/* 

* This  variable  contains  the  default  plot  path  for  universal  and  plot  data 

* files. 

*/ 


char 


Plot  Path  [DNAME_LEN]  ; 


/* 

* These  variables  are  necessary  for  creating  and  processing  the  PBI  environ- 

* ment . 

*/ 


short 

short 

short 

int 

int 

struct 

struct 

struct 


Pbi_ Disable; 

P b i_Hot_Ndx ; 
Pbi_Num  - 0; 
Pbi_Env_  Id; 
Pbi_Toggle_Dir  - 
pbi_def  *Pbi_Def; 
PBI  ENTRY  *Pbi  Ptr; 


/* 

/* 


l;  / 


Pbi  Disable  flag  to  disable  all  Pbi  input  */ 
Pbi  Index  which  indicates  which  entry  is  hot  */ 
/*  Number  of  Pbi  entries  for  the  current  display*/ 
/*  Pbi  Environment  Id  for  interfacing  with  WSA  */ 
Pbi  Forward/Reverse  toggle  dir  ( def-FORW  ) */ 

/*  Pointer  to  the  Pbi  display  definition  entries*/ 
/*  Pointer  to  the  PBI  header  table  for  WSA  proc.*/ 


PBI  TABLE  *Pbi  Table;/*  Ptr  to  the  entry  table  entries  for  WSA  prc 


/* 

* This  variable  is  to  hold  the  current  zoom  value 
*/ 


float 


Zoom  factor  - 1.5; 


struct  limit_fil 
struct  limit_file 
int 


*First_lim_ptr  - NULL; 
*Last_lim_ptr  - NULL; 
Screen  color; 


/* 

* 

*/ 


Plot  data  file  end-of-file 


flag. 


short  End_of_file  - NO; 
/♦ 

♦ History  tab  globals. 
*/ 


struct  hist_tab  *Htab; 

struct  ht  files  *Ht  files; 


/* 

* Structure  templates. 
♦/ 


struct  file_header  *Bg_hdr_f  ile; 
struct  file_header  ♦Filel; 
struct  rec_header  ^Record; 
struct  graph_record  *graph_rec; 
struct  graph_record  *Graph— Rec; 
struct  graph— record  *loc_graph_ptr; 
struct  fg_f ile_header  ♦Ffile; 


struct  msid_ent 
struct  tabular_ent 
struct  limit_ent 
struct  mtext_ent 
struct  pbi_ent 
struct  limit_ent 
struct  timeb 
union  p_data 
struct  val  txt 

struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 


*Msid; 

*Tab; 

* Limit ; 

♦Mtext ; 

♦Pbi; 

♦Limit_inf  o; 
Last_Update; 

Data; 

*text_ptr; 

Bg_Rec ; 

Fg_rec ; 

♦Loc_ fgr_ptr; 
♦Lab; 

♦label; 

♦Scale; 

♦Ddd; 

♦line__ptr; 
♦rect_ptr; 
♦polyjptr; 
♦circle^ ptr; 
♦arc_ptr; 
♦ellipse_ptr; 
♦ell_arc_ptr; 
*curve_ ptr; 


bg_recs 
fg_recs 
fgr_record 
label_ent 
label_ent 
scale_ent 
ddd_ent 
line_record 
rectangle_record 
po lygo n_r  e c o r d 
circle_record 
arc_record 
ellipse_record 
ell_a  rc^record 
curve  record 


/* 

♦ pointers  to  pat  files. 
♦/ 


struct  pat_file_header  ♦Pfile; 
struct  pat_msid_entry  *Pat_file; 

/* 

♦ Information  related  to  fonts. 

V 
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.for  plot  redraw  only 


/♦  Ptr  to  background  file  hdr  struct 
/♦  Ptr  to  background  file  hdr  struct 
/♦  Ptr  to  background  rec.  structure 
/♦  Ptr  to  background  graph  structure 
/*  Ptr  to  background  graph  structure 
/♦  Ptr  to  background  graph  structure 

/*  Ptr  to  foreground  file  header 
/*  Ptr  to  foreground  maid  rec  struct 
/*  Ptr  to  Tabular  record  structure 
/*  Ptr  to  Limit  record  structure 
/♦  Ptr  to  Multilevel  txt  record  stru 
/*  Ptr  to  PBI  record  structure 
/♦  local  ptr  for  limit  structure 
/*  last  ds_getparm  time  call 
/♦  local  ptr  to  union  structure 
/*  Text  pointer  for  multilevel  txt 

/*  ptr  thru  all  background  records 
/♦  ptr  thru  all  foreground  records 
/♦  ptr  to  start  of  foreground  records 
/♦  beginning  ptr  to  label  records 

/♦  beginning  ptr  to  scale  records 

/*  beginning  ptr  to  ddd  records 

/♦  ptr  thru  line  records 

/♦  ptr  thru  rect  records 

/*  ptr  thru  poly  records 

/♦  ptr  thru  circle  records 

/*  ptr  thru  arc  records 

/*  ptr  thru  ellipse  records 

/♦  ptr  thru  elliptical  arc  records 

/♦  ptr  thru  curve  records 


/*  ptr  to  pat  header  file 
/♦  ptr  to  pat  maid  file 


Horz_Size  [MAX__FONTS]  ; 
Vert— Size  [MAX_FONTS]  ; 


double 

double 


Variable  for  year  to  be  displayed. 


/* 

* 

*/ 
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int  Year; 

int  Year_Cat; 

/* 

* Character  array  to  hold  the  incoming  ASCII  string. 
*/ 

char  Cdata 1256] ; 

/* 

* Plot  information. 

*/ 

char  plot_ name  [DISP_ NAME_LEN]  ; 

struct  plot_ptrs  *Plot_info _ptr; 

struct  plot_tmplt  *Tmplt; 

/* 

* Data  array  used  for  comparison  with  new  data. 

*/ 


unsigned 

unsigned 

char 

char 

New_Data [60000] ; 
OldJData [60000] ; 

unsigned 

unsigned 

char 

char 

GraphJNew_Data [60000] ; 
Graph_01d_Data [60000] ; 

short 

Nbr_of  j plots; 

short 

OvrlayJDrawn; 

/* 

* X Windows  declarations. 
*/ 

float 
float 
float 

unsigned  long 
unsigned  long 

int 
int 
long 
short 
short 

/* 

* Logging  variables. 

*/ 


Font65_ height  » 0.65; 
Font 8 0— height  » 0.80; 
Fontl00_height  - 1.00; 

Show; 

Mod; 

Offset; 

Change ; 

Status^ Color; 

Unlatch; 

Ko_Change; 


Int 

Logging_On  - NO; 

/* 

Displayer  logging  flag 

*/ 

int 

Log— File— Id; 

/* 

WEX  Logging  identifier 

*/ 

int 

/* 

Log_ Pid; 

/*■ 

WEX  Logging  identifier 

*/ 

* Redraw  variables . 
*/ 


short 

short 

float 

float 

float 

float 
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Resize;  / * flag  whether  a graphic  will  resize  the  window^ 

Redraw_f lag-NO;  /*  flag  whether  to  redraw  shapes  or  to  just  size*7~^ 


Redraw_ulx  - 0.0;  /*  left  x for  global  redraw  box  */ 
Redraw_lry  - 0.0;  /*  lower  y for  global  redraw  box  ★ / 
Redraw_lrx  - 0.0;  /*  right  x for  global  redraw  box  */ 
Redraw_uly  - 0.0;  /*  upper  y for  global  redraw  box  */ 


* MODULE  NAME:  hist_tab.C 


★ 

* This  function  builds  si  list  of  limit  or  plot  fil©s  and  allows  the  ussr  to 

* turn  a plot/limit  file  on  or  off. 

* 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* D.  Rice  - Ford  Aerospace  Corporation 

★ 


* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★★★A**************************************************************************/ 


♦include  <stdio.h> 

♦include  <X11/ Intrinsic. h> 
♦include  <constants .h> 
♦include  <disp.h> 

♦include  <DDdisp.h> 
♦include  <pf_key.h> 
♦include  <stdio.h> 

♦include  <wex/EXmsg.h> 


extern  Widget 

Top; 

extern  struct 

fg_f  ile_header 

*Ffile; 

extern  struct 

hist_tab 

*Htab; 

extern  struct 

dm__  shmemory 

*Dm__Address ; 

extern  struct 

pfkey_def s 

Current_Com; 

extern  short 

Disp_Num; 

extern  int 

Num_ht , 
Num_ plot, 
Num_limit ; 

extern  char 

**ListJit, 
**List_plot, 
**List_limit ; 

int  hist  tab 
{ 

register 

( ) 

int  i, 

j; 

int 

f lag; 

char 

*3/ 

filename (DNAME_LEN  + 1], 
*malloc  ()  ; 


D (print f {"START  hist_tab\n" ) ) ; 

/* 

* If  it  is  already  known  that  this  display  does  not  have  any  history  table  entries 

* for  available  limit  files,  generate  an  error  and  return, 

*/ 


if  { Num_ht  — -1  ) { 

tui_msg  ( M_YELLOW,  "No  limit  files  for  the  history  tabs  in  display"  ) ; 
return  ( -1  ) / 

} 


If  a new  display  has  been  initialized,  generate  a new  list  of  limits. 


if  ( Num_ht  “ 0 ) { 

tui  start  wait  ( ) ; 


Call  list_files  to  read  the  directory  of  limit  files. 


list_files  ( TRUE,  TRUE  ) ; 
if  ( Num_limit  «-  0 ) { 

tui_msg  ( M_YELLOW,  "No  limit  files  available  for  history  tables"  ) ; 
tui_stop_wait  { ) / 
return  ( -1  ) ; 


Build  a list  which  consists  of  only  the  limit  files  which  are  referenced  within 
the  history  table  entries  in  the  display  file.  First  allocate  enough  memory  for 
the  list  of  pointers.  If  this  fails,  log  an  error  and  return. 


if  { { List_ht  ■ (char  **)malloc  { Num_limit  * sizeof  ( char  * ) ) ) ~ NULL  ) { 
tui_msg  ( M_ YELLOW,  "Unable  to  allocate  memory  for  limit/history  table  list"  ) 

tui_stop_wait  ( ) ; 
return  ( -1  ) ; 


For  each  filename  in  the  list  of  limit  files,  check  if  it  is  referenced  in  the 
history  tab  file.  If  a match  is  found,  set  pointer  in  the  new  list. 


for  ( i 
for 


> 


} 


■ 0;  i < Num_limit;  i++  ) { 

( j - 0;  j < Ffile->Htab_Num;  j++  ) { 

if  ( strncmp  ( (Htab  + j) ->file_name,  *(List_limit  + i) , 
*(List_ht  + Num_ht)  - (Htab  + j) ->file_name; 
printf  ( "FILE:  %s\n", * (List_ht  + Num_ht)  ); 
Num_ht++; 
break; 

} 


6 ) 


0 ) { 


If  no  matches  were  found  then  there  are  no  limit  files  available  for  the  history 
table  entries  in  the  display.  Generate  an  error  and  return. 


tui__stop_wait  ( ) ; 
if  ( Num_ht  — 0 ) ( 

( M_YELLOW,  "No  limit  fries  for  the  history  tabs  in  display"  ) ; 
Num_ht  - -1; 
return  ( -1  ) ; 


} 


/* 

* Present  the  list  of  names  to  the  user  and  wait  for  a response. 
*/ 


flag  - tui  get_list  ( Top,  List_ht,  Num_ht,  filename,  "History  Table", 

"Limit  Files",  FALSE,  -1,  NULL,  0 >; 

/* 

* If  the  user  canceled  the  pop  up,  return. 

*/ 

if  ( flag  --  0 ) 
return  ( 0 ) ; 


* Remove  any  trailing  blanks  from  the  filename  and  save  in  command  buffer. 
*/ 


strncpy  ( Current_Com.disp_name,  filename,  8 ) ; 
if  ( s — index  ( Current_Com.disp_name,  ' ' ) ) 

*s  - ' \0' ; 

else 

Current_Com . disp_name [ 8 ] “ ' \ 0 ' ; 


/* 

* Copy  the  filename  into  shared  memory  and  set  flag  for  the  Data  Handler. 
*/ 


strcpy  ( Dm_Address->display [Disp_Num] .display_name,  Current_Com.disp_name  ) 
strcpy  ( Dm_Address->display [Disp_Num] .plot_overlay,  Current_Com.disp_name  ) 
Dm_Address->display [Disp_Num] ,dh_htab  “ YES; 


/* 

* Normal  return. 
*/ 


D<printf ("END  hist_tab\n") ) ; 
return  ( 0 ) ; 
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♦include  <stdio.h> 
♦include  <string.h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 
♦include  <wex/EXmsg.h> 


struct  msid_ent  *Msid;  /* 
extern  struct  hist_tab  *Htab;  /* 
extern  struct  tabular_ent  *Tab;  /* 
extern  struct  dm_shmemory  *Dm_Address;  /* 
extern  short  Disp_Num;  /* 
extern  struct  ht_files  *Ht_files;  / * 


int  ht_init  ( entry__num,  htab  num  ) 


long 

entry_num. 

/* 

htab_num; 

/* 

struct 

hist_tab  *first. 

/* 

*curr, 

/* 

*prev. 

/* 

*prev_prev. 

/* 

*htab; 

/* 

struct 

msid_ent  *msid_j>tr; 

/* 

struct 

ht_ files  *f ile_struct ; 

/* 

struct 

tabular^ ent  *tab_ptr; 

/* 

FILE 

*f ile^ptr; 

/* 

short 

i,  j. 

/* 

flag. 

/* 

f lag2. 

/* 

version. 

/* 

access; 

/* 

long 

status; 

/* 

int 

size. 

/* 

length. 

/* 

num_samps ; 

/* 

msid  structure  pointer  */ 
history  tab  structure  pointer  */ 
Tabular  entry  table  local  ptr  */ 
Display  Manager  shared  mem.  ★/ 
display  number  * / 
the  array  of  file  names  and  pointers  */ 


number  of  msid  entries  */ 
number  of  history  tab  entries  */ 

points  to  first  history  tab  entry  */ 
points  to  current  history  tab  entry  */ 
points  to  previous  history  tab  entry  */ 
points  to  history  tab  two  prior  to  curr  */ 
pointer  to  loop  through  htab  list  * / 
local  msid  pointer  */ 
local  pointer  to  file  array  */ 
local  tabular  pointer  * / 

pointer  to  the  history  tab  file  */ 

loop  counters  * / 
flag  if  prev  file  name  is  > curr  */ 
flag  if  prev  msid  is  > curr  */ 
version  read  from  the  history  tab  file  */ 
access  rest  code  from  the  hist  tab  file  */ 

status  variable  * / 

size  read  from  the  hist  tab  file  */ 
length  read  from  the  hist  tab  file  */ 
♦ of  samples  read  from  the  hist  tab  file  */ 


char 


flight  id [ 5 ] , /*  flight  id  read  from  the  hist  tab  file  */ 
strm  type [3],  /*  stream  type  read  from  the  hist  tab  file  */ 
filell4],  /*  file  name  of  the  history  tab  file  */ 
ht  file  name [50],  / * local  history  tab  file  name  to  open  */ 
msTd[MsYD_LENGTH] , /*  msid  name  read  from  the  hist  tab  file  */ 
sample [5],  /*  sample  read  from  the  hist  tab  file  */ 
source [3],  /*  source  read  from  the  hist  tab  file  */ 
attribute,  /*  attribute  read  from  the  hist  tab  file  */ 
error,  /*  error  read  from  the  hist  tab  file  */ 
★value;  /*  value  read  from  the  hist  tab  file  */ 


double  lolimit, 

hilimit; 


/*  low  limit  read  from  the  hist  tab  file  */ 
/*  high  limit  read  from  the  hist  tab  file  * / 


D(printf ("START  HT_INIT\n") ) ; 

/* 

* Set  up  the  msid_indices  of  the  hist_tab  struct. 
*/ 


for  ( i - 0;  i < entry_num;  i++  ) { 

if  ( ( Msid  + i ) ->hist_ind  !-  0 ) 

( Htab  + ( Msid  + i ) ->hist_ind  - 1 ) ->maid_index  - i + 1; 

) 

* 

* Group  the  history  tab  records  by  file  name,  msid  name,  and  sorted 

* by  the  time  in  descending  order. 


first  - Htab; 


/* 

* After  this  sort  the  history  tab  records  will  be  grouped  by  file 

* then,  within  each  file  grouping  they  will  be  sorted  by  msid, 

* and  within  each  msid  they  will  be  sorted  by  time  in  descending 

* order. 

*/ 

/* 

* Outside  loop  decrements  for  each  number  > 1. 

*/ 


for  ( i - htab_num;  i > 1;  i — ) { 

i 

/* 

* Reset  pointers  for  next  pass. 

*/ 

curr  - f irst->next_ptr; 
prev  - first; 
prev_j3rev  - NULL; 

/* 

* Inside  loop  goes  to  number  on  outside  loop. 
*/ 

for  ( j ■ 1;  j < i;  j++  ) { 

/* 

* Set  flag  on  file  name  comparison. 

*/ 


flag  - strcmp  ( prev->f ile_name,  curr->f ile_ name  ) ; 


Set  flag  on  maid  name  comparison. 


f lag2  - strcmp  ( { Ms id  + { prev->msid_index  ) - 1 ) ->MSID, 
( Ms id  + ( curr->msid_index  ) - 1 ) ->MSID  ) ; 


If  prev  file  name  is  greater  then  swap. 


if  ( flag  > 0 ) { 

prev->next_ ptr  - curr->next_ptr; 
curr->next_jptr  - prev; 
if  ( prevj>rev  !-  NULL  ) 

prev_prev->next_ptr  - curr; 

else 

first  - curr; 
curr  - prev; 

if  ( prev__prev  !-  NULL  ) 

prev  - prev__prev->next_ptr; 

else 

prev  - first; 

} 


If  prev  maid  name  is  greater  then  swap. 


else  if  ( flag  — 0 &&  flag2  > 0 ) { 
prev->next_ptr  ■>  curr->next_ptr; 
curr->next_ptr  - prev; 
if  ( prev_prev  !-  NULL  ) 

prev_prev->next_ptr  - curr; 

else 

first  - curr; 
curr  - prev; 

if  ( prev_prev  !*  NULL  ) 

prev  » prev_prev->next_ptr; 

else 

prev  - first; 

} 


If  prev  time  is  less  than  current  then  swap. 


else  if  ( { flag  — 0 ) &&  ( flag2  — 0 ) &£ 

( curr->time_cntr  > prev->time_cntr  ) ) { 
prev->next_ptr  • curr->next_ptr; 
curr->next_ ptr  - prev; 
if  ( prev_prev  !-  NULL  ) 

prev_prev->next_ ptr  - curr; 

else 

first  - curr; 
curr  - prev; 

if  ( prevj>rev  !-  NULL  ) 

prev  - prev_prev->next_ptr; 

else 

prev  - first; 

> 


Set  up  pointers  for  next  pass  through. 
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prev  - prev->next— ptr ; 
if  ( prev__prev  !-  NULL  ) 

prev_prev  * prev__prev->next_ptr  ; 

else 

prev_prev  - first; 
curr  - curr->next_jDtr ; 

} 

} 


/* 

* Reset  global  to  point  to  first  in  list. 
*/ 


Htab  * first; 


* Make  all  entries  sequential  with  dummy  entries  and  set  the  values  to  NULL. 
*/ 


curr  - Htab; 

while  ( curr->next_ptr  !-  NULL  ) { 

if  ( strcmp  ( ( Ms id  + curr->msid_ index  - 1 ) ->MSID, 

( Ms id  + curr->next_ptr->msid_index  - 1 ) ->MSID  ) " 0 ) { 

if  ( curr->time_cntr  > ( curr->next_ptr->time_cntr  + 1 ) 

&&  curr->time_cntr  !-  0 ) { 

i - curr->time_ cntr  - curr->next_ptr->tiine_cntr  - 1; 
prev  ■ ( struct  hist_tab  * ) calloc  ( i,  sizeof  ( struct  hist_tab  ) ) ; 
for  ( j - 0;  j < i;  j++  ) i 

( prev  + j ) ->next_ptr  - prev  + j + 1; 

( prev  + j ) ->time_cntr  - curr->time_cntr  - j - 1; 

{ prev  + j ) ->ht absent r ■ INVALID; 

( prev  + j ) ->msid__index  - curr->msid_index; 
strcpy  ( ( prev  + j ) ->f ile_name,  curr->f ile_name  ) ; 

} 

( prev  + i - 1 ) ->next_ptr  - curr^next^ ptr; 
curr->next_ptr  - prev; 

} /*  end  of  if  */ 

} 

else  if  ( curr->time_cntr  > 1 ) { /*  if  the  sequence  didn't  start  at  1 */ 

i - curr->time_cntr  - 1; 

prev  - ( struct  hist_tab  * ) calloc  ( i,  sizeof  ( struct  hist_tab  ) ) ; 
for  ( j - 0;  j < i;  j++  ) { 

( prev  + j ) ->next_ptr  - prev  + j + 1; 

( prev  + j ) ->time_cntr  - curr->time_cntr  - j - 1; 

( prev  + j ) ->htab_entr  - INVALID; 

( prev  + j ) ->msid_index  - curr->msid_ index; 
strcpy  ( { prev  + j ) ->file_name,  curr->f ile_name  ) ; 

} 

( prev  + i - 1 ) ->next_ptr  - curr->next_ ptr; 
curr->next_ ptr  - prev; 

} /*  end  of  else  */ 

curr->value  ■ NULL; 
curr  - curr->next_ ptr; 


if  ( curr->time_cntr  >1)1  /*  if  the  sequence  didn't  start  at  1 */ 

i - curr->time_cntr  - 1; 

prev  - { struct  hist_tab  * ) calloc  ( i,  sizeof  { struct  hist_ tab  ) ) ; 
for  { j - 0;  j < i;  j++  ) { 

( prev  + j ) ->next_ptr  - prev  + j + 1; 

( prev  + j ) ->time_cntr  - curr->time_cntr  - j - 1; 
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( prev  + j ) ->htab_entr  » INVALID; 

( prev  + j ) ->msid_index  = curr->msid_index; 
strcpy  ( < prev  + j ) ->file_name,  curr->f ile_name 
( prev  + j ) ->value  - NULL; 

} 

( prev  + i - 1 ) ->next_ptr  ■ curr->next_ptr; 
curr->next_ ptr  - prev; 

I 

curr->value  - NULL; 


) ; 


/* 

* If  the  history  tab  data  files  already  exist  then  update  the  screen 

* and  memory  with  the  data . 

*/ 


curr  “ Htab; 


/* 

* Loop  through  the  htab  list  creating  space  for  each  file. 
*/ 


while  ( curr  !-  NULL  ) { 


/* 

* Create  the  filename  to  see  if  it  exists  or  not. 

*/ 

strcpy  ( file,  curr->f ile_name  ) ; 
if  ( f ile [0]  !-  • f ) { 

strcpy  ( ht_file_name,  Dm_Address->display [Disp_Num] .plot_path  ) ; 
strcat  ( ht_file_name,  file  ) ; 

} else  { 

strcpy  < ht_file_name,  file  ) ; 

} 

strcat  ( ht_f ile_name,  ".htb"  ); 

/* 

* Open  the  file  for  read  to  see  if  it  exists. 

V 

file _ptr  - fopen  ( ht_file_name,  "rb"  ) ; 

if  ( f ile_ptr  !-  NULL  ) { /*  The  file  exists  V 

/* 

* If  this  is  the  first  existing  data  file  set  up  the  global. 


if  ( Ht_f iles  — NULL  ) { 

m I struct  ht files  * ) calloc  ( 1,  sizeof  ( struct  ht  files 

f ile_struct  - Ht_files;  “ 

if  ( file_struct  --  NULL  ) { 

tui_msg  ( M_YELLOW,  "error  allocating  history  tab  file  struct"  ) ; 
return  ( -1  ) ; 

} 

f ile_struct->ht_rec_ptr  » curr; 


/* 
1 k 

*/ 


If  this  is  not  the  first  existing  data  file. 


} else  { 


/* 


*/ 
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Add  the  file  to  the  list  of  open  data  files. 


f ile_struct->next_ptr  - { struct  ht_files  * ) 
calloc  ( 1,  sizeof  < struct  ht_files  ) ) ; 
if  ( f ile_struct->next_ptr  NULL  ) { 

tui_msg  ( M_YELLOW,  "error  allocating  history  tab  file  struct"  ) ; 
return  ( -1  ) ; 

» 

file_struct  “ f ile_struct->next_ptr; 
f ile_st ruct ->ht_rec jpt r - curr; 


) 


* Store  the  file  pointer  and  read  in  the  header  information. 

*/ 


f ile_struct->file_ptr  - file _ptr; 

fread  ( ( void  * ) Sversion,  2,  1,  f ile_struct->f ile _ptr  ) ; 

fread  ( < void  * ) flight_id,  5,  1,  f ile_struct->f ile_ptr  ); 

fread  ( ( void  * ) strm_type,  3,  1,  f ile_struct->f ile_ptr  ) ; 

fread  ( ( void  * ) 4f ile_struct->num_entries,  4,  1,  f ile_struct->f ile_ptr  ) ; 

fread  ( ( void  * > saccess,  2,  1,  f ile_struct->f ile _ptr  ) ; 

if  ( version  > VERSION  ) { 

tui_msg  ( M_YELLOW,  "version  %hd  of  the  history  tab  file  i3  not  supported 
with  this  version  of  Display  Manager"  ) ; 

return  ( -1  ) ; 

} 


/* 

* Read  in  the  data  for  the  current  data  file  and  store  the  values  in  temp. 

*/ 


while  ( feof  ( file_ptr  ) --  NO  ) { 


/* 

* 

*/ 


/* 

★ 

*/ 


/* 

it 

*/ 


Read  the  maid,  sample,  and  source. 


fread  { ( void  * ) msid,  MS ID_ LENGTH , 1,  f ile_struct->f ile__ptr  ) ; 
if  ( feof  ( file_ptr  ) !-  NO  ) { 

break; 

} 

fread  ( ( void  * ) sample,  5,  1,  f ile_struct->f ile_ptr  ) ; 
fread  ( ( void  * ) source,  3,  1,  f ile_struct->f ile _ptr  ) ; 


Read  the  decom  information. 


fread  ( 
fread  ( 
fread  ( 
fread  ( 
fread  ( 


( void  * ) 
( void  * ) 
( void  * ) 
( void  * ) 
( void  * ) 


&size,  4,  1,  file_struct->f ilejptr  ) ; 
filength,  4,  1,  f ile_struct->f ile_ ptr  ) ; 
&num_samps,  4,  1,  f ile_struct->f ile_ptr  ) ; 
^attribute,  1,  1,  f ile_struct->f ile_pt r ) ; 
(error,  1,  1,  f ile_struct->f ile_pt r ) ; 


Read  the  limits  and  value. 


fread  ( ( void  * ) ilolimit,  8,  1,  f ile_struct->f ile_ptr  ) ; 
fread  ( ( void  * ) &hilimit,  8,  1,  f ile_struct->f ile_ptr  ); 


/* 

★ 

*/ 
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value  - ( char  * ) malloc  ( size  ) ; 

fread  ( ( void  * ) value,  size,  1,  f ile_struct->f ile_ptr  ) ; 


Check  to  see  if  the  msid  is  in  the  history  tab  list. 


SID  ) 


/* 

★ 

*/ 


htab  - f ile_struct->ht_rec_ptr; 

while  ( htab  !-  NULL  &&  strcmp  ( msid,  ( Msid  + htab->msid_index  - 1 ) ->m 

!•  0 &&  ( strcmp  { htab->f ile_name,  file  ) --  0 ) ) 
htab  - htab->next_ptr; 


If  the  msid  is  found  in  the  history  tab  list. 


if  ( htab  !-  NULL  &&  ( strcmp  ( htab->f ile_name,  file  ) --  0 ) ) { 


/* 

* 

*/ 


Move  values  along  the  sequence  of  hist  tab  entries. 


while  ( htab->next_ptr  !-  NULL  &£ 

strcmp  { msid,  (Msid+htab->next_ptr->msid_index-l) ->MSID  ) — 0 && 
htab->time_cntr  > 1 && 

strcmp  ( htab->f ile_name,  file  ) --  0 ) { 


/* 

★ 

*/ 


/* 

* 

*/ 


/* 

★ 

*/ 


) ? 


/* 

■k 

*/ 


s; 


If  the  value  exists  then  free  up  this  memory. 


if  ( htab->value  !-  NULL  ) 
free  ( htab->value  ) ; 


If  the  previous  value  exists  then  copy  it  to  current, 
if  { htab->next_ ptr->value  !■  NULL  ) { 

Allocate  space  for  value  and  copy  it . 

htab->value  m (char  *) malloc  ( htab->next_jptr->decom_ent . size 

memcpy  ( htab->value,  htab->nextjptr->value,  htab->next_ptr-> 
decom_ent  .size  ) ; 

Copy  the  decom  information  into  current  struct. 


htab->de comment . length  - htab->next  j)tr->decom__ent . length; 
htab->decom_ent . size  - htab->next j>tr->decom_ent . size; 
htab->decom_ent . of f set  - htab->next_ptr->decom_ent . of f set ; 
htab->decom_ent . num_samps  - htab-*>next__ptr->decom  ent.num  sam 

htab->decom_ent .attribute  - htab->next_ ptr->de comment . attribut 

htab->decom_ent .error  - htab->next_ptr->decom_ent.error; 
htab->decom_ent . samplers ize  - htab->next_ptr-> 
decom_ent . sample__size; 


e; 


. s '£  ^ v M ■'■ 

I | rg|||X;|i 
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} 

htab  - h t ab - >next_ pt r ; 


* Update  the  most  recent  history  tab  value. 

*/ 


htab->value  - ( char  * ) malloc  ( size  ) ; 
memcpy  ( htab->value,  value,  size  ) ; 
free  ( value  ) ; 


★ Update  the  most  recent  history  tab  decom  buffer. 

*/ 


htab->decom_ent . size  - size; 
htab->decom_ent . length  ■ length; 
htab->decom_ent .of fset  - 0; 
htab->decom_ent  .num_samps  - num_samps; 
htab->decom_ent .attribute  ■ attribute; 
htab->decom_ent .error  - error; 

htab->decom_ent . sample_size  * size  / num_samps; 


/* 

★ Loop  through  the  history  tab  limit  entries. 

*/ 


while  ( htab->next_ptr  !»  NULL  &&  htab->next_ptr->time_cntr  ■«  0 ) { 

htab  - htab->next_ptr; 
if  ( htab->value  !-  NULL  ) 
free  ( htab->value  ) ; 

htab->value  - ( char  * ) malloc  ( 20  ) ; /*  allocate  length  20 

* for  string  */ 
if  ( htab->value  — NULL  ) { 

tui_msg  ( M_YELLOW,  "Error  allocating  space  for  history  tab 

lue"  ) ; 

return  ( -1  ) ; 

} 

if  ( htab->llimit_f lag  --  'Y'  ) 

sprintf  ( htab->value,  "%f",  lolimit  ) ; 
else  if  < htab->ulimit_f  lag  — 'Y'  ) 

sprintf  ( htab->value,  "%f",  hilimit  ); 

} /*  end  of  while  */ 

} /*  end  of  if  msid  found  in  htab  list  */ 

} /*  end  of  while  not  end  of  file  */ 

) /*  end  of  if  file  exists  */ 

/* 

* Move  the  history  tab  pointer  past  the  file  entries. 

*/ 

while  ( curr  &&  strcmp  ( file,  curr->f ile_name  ) --  0 ) 
curr  - curr->next_ ptr; 

} 

/* 

* Loop  through  the  history  tab  limit  entries. 

*/ 


curr  - Htab; 
i - 0; 

while  ( curr  !«  NULL  ) { 


} 
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( curr->value  !•  NULL  &&  curr->htab_entr  !•  INVALID  ) 
i++; 

m3id_j>tr  - Ms  id  + curr->msid_indox  - 1; 

tab_ptr  - Tab  + msid_j>tr->Tab_Index  - 1; 

status  - extract  ( curr->value,  &curr->decom_ent  ) / 

msid— ptr->Wid__Ind  - i; 

updtfg  ( Disp_Num,  & curr->decom_ent , msid^ptr, 
tab_ ptr,  status) ; 


curr  - curr->next- ptr ; 

} 


{ 


D {print f ("END  HT_INIT\n" ) ) ; 
return  ( 0 ) ; 
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/**»*****★! ******************************’ *************************************** 

* MODULE  NAME:  init.C 

* 

* This  function  performs  all  one-time  initialization. 

★ 


* INTERNAL  FUNCTIONS: 

★ 

* O 

* 


control_fpe  - Called  when  a floating  point  exception  occurs. 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* K.  Noonan  - Ford  Aerospace  Corporation 

★ 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

★ Mark  D.  Collier  - Software  Engineering  Section 

★ Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 
************************************************************************* *****/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio ,h> 

<f cntl .h> 

<signal .h> 
<X11/Xlib.h> 
<Xll/cursorfont .h> 
<X11/Intrinsic.h> 
<sys/types .h> 
<constants . h> 
<disp.h> 

<pf_key . h> 
<wex/EXmsg.h> 
<wex/EXerror . h> 
<wex/EXexec . h> 
<wex/EXWEX . h> 


extern  struct  data_info  *Dh_Address; 
extern  struct  dm_shmemory  *Dm_Address; 
extern  struct  pfkey_defs  Current^ Com; 


extern  int 


errno; 


extern  short  Disp_Num,  * 

First_Copy, 

Good_Strm, 

Flt_Selected; 

extern  char  Disp_Path  [DNAME_LEN]  , 

Plot  Path [DNAME  LEN] ; 


/*  DH  shared  memory  */ 
/*  DM  shared  memory  */ 


/*  error  return  value  */ 

/*  slot  nbr  where  the  display  info  is  */ 
/*  set  to  a 1 if  first  Display  Manager  */ 
/*  set  to  YES  if  data  type  is  valid  */ 
/*  Yes,  if  flight/data  type  input  */ 


int 

{ 

init  ( ) 

int 

error, 

/* 

pid. 

/* 

f irst— copy. 

/* 

i/ 

/* 

wex_err  - NO, 

/* 

new. 

/* 

return  value  for  function  calls  */ 
process  Id  for  new  processes  */ 
flag  signifying  first  Display  Manager  */ 
counter  */ 
error  flag  set  if  error  on  fit  id  or  */ 
contains  new  position  Id  index  */ 


char 


match,  /*  set  to  YES  for  pos . Id  match  */ 

control_fpe  ( ) , 
val  fn  ( ) ; 


acceas_mode [20] , /*  WEX  access  mode 

f 1 ight_id [ 9 ] ; /*  fit  id  obtained  from  WEX 


D(printf ("START  init\n") ) ; 

/* 

* Set  up  the  signal  handler  for  floating  point  exceptions. 
*/ 


signal  ( SIGFPE,  control_fpe  ) ; 

/* 

* Call  a routine  to  determine  if  this  is  the  first  Display  Manager  in  the  w/s. 
* / 

if  ( ( first_copy  - first_proc  ( ) ) --  -1  ) 
return  ( -1  ) ; 

/* 

* Check  the  version  date. 

*/ 

date_chek  ( ) ; 

/* 

* Initialize  WEX. 

*/ 


EXwexinit  ( WEX_MSG_Q  ) ; 

/* 

* If  first  copy  and  the  shared  memory  does  not  exist  then  call  a routine 

to  create  the  shared  memory.  Get  the  access  mode  of  the  workstation.  Clear  flags 

* in  shared  memory.  Set  up  flags  and  start  the  Data  Handler  task  and  monitor  the 

* time  for  the  initialization  to  complete.  Store  the  Data  Handler  process  Id.  Attach 

* to  the  Data  Handler  shared  memory. 

*/ 

if  ( first_copy  !-  NO  ) ( 

if  ( first_copy  --  CREAT_SHM  ) { 

if  ( ( error  - shm_creat  ( ) ) — -1  ) 
return  ( -1  ) ; 

) 

Dm_Address->process .disp_nbr  — 1; 

/* 

* Get  the  access  mode  of  the  workstation  (development/operational) 


error  - EXaccess  ( access  mode  ) ; 


if  ( error  --  -1  ) { 

tui_msg  ( M_YELLOW,  "Error  %d  in  obtaining  the  access  mode  of  workstation", 
errno  ) ; 
return  ( -1  ) ; 

} else  ( 

if  ( ( strcmp  ( access_mode,  "DEVELOPMENT"  ) ) — o ) 

Dm_Address->process . wex_mode  - DEV; 

else 
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Dm_Addres3->proces3.wex_mode  - OPS; 


First— Copy  - YES; 


Initialize  all  flags  in  the  Display  Manager  shared  memory 
since  this  is  the  first  Display  Manager  on  this  workstation, 


for  ( 
Dm 


L - 0;  i 

^Address 
_Address 
_Address 
Address 
_Address 
_Address 
_Address 
_Addr ess 
_Address 
_Address 
_Address 
Address 
^Address 
^Address 
^Address 
^Address 
^Address 
^Address 
_Address 
_ Address 
_Address 
_Address 
_Address 
_Address 
Address 


< MAX_DISP; 
->dmjpid [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 
->display [ i ] 
->display [i] 
->display [i] 
->display [i] 
->display [i] 


i++  ) { 

- -1; 

,disp— active  - NO; 

. active_display  “ NO; 
• disp_init  - NO; 
.disp_pid  - -1; 

.clear  * NO; 

,dh_clear  • NO; 

.halt  - NO; 

.get— lim  - NO; 
.upd_lim  - NO; 
.dh_new__disp  - NO; 
.disp_pause  - NO; 
.new_ display  - NO; 
.upd_lim  - NO; 
.grp__lim  - NO; 

.dh_ plot  - NO; 

. read_j>lot  » NO; 

.dd_ strt  - NO; 
.dd_stop  - NO; 

. log_enable  - NO; 
.update^ rate  - 1000; 

♦ low_x  - 0.0; 

• low_y  - 0.0; 

. high_x  - 100.0; 
.highly  - 100.0; 


for  ( i - 0;  i < MAX_POS_ID;  i++  ) { 

Dm_Address->process .pos_id[i] [0]  - 0; 
Dm_Address->process .nbr_pos [i]  - 0; 
Dm_Address->proces3 .alarm [i]  - YES; 


for  ( i - 0;  i < MAX_FLTS;  i++  ) { 

strncpy  { Dm_Address->strm[i] . f lt_id,  " 
strncpy  { Dm_ Address->strm[i]  . strm_type, 
Dm  Address->strm[i] .nbr  conn  - 0; 


\0",  4 ); 
\0",  3 ) ; 


Dm_Address->process  .nbr_st  reams  - 0; 
Dm_Address->proces3  .dh_not_halted  - NO; 
Dm__Address->process .dh_ initialized  - NO; 
Dm__Address->process  .disp_init  - NO; 
Dm_Address->process  .dh_ack_evnt  - NO; 
Dm_Address->process .dh_ evnt  - NO; 
Dm_Address->pbi__shroeraory .disp_num  - -1; 
Dm__Addr  e s s - >pb  i_s  hmemo  r y . numbe  r_o  f_c  h a nge  s 


Start  the  Data  Handler.  Verify  assignment  of  a valid 
process  id.  Wait  for  the  Data  Handler  to  set  its 
initialization  flag,  then  record  it's  PID  in  DM  shared 
memory. 
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#ifdef  SUN 

pid  - EXexec  ( "/WEX/Exec/dh_sun", 

ARGALI  ST,  "dh_sun",  END_OF_L  1ST,  END_OF_LIST  ); 

#else 

pid  - EXexec  ( "/WEX/Exec/dh_mass", 

ARG_LIST,  Ttdh_mas3n,  END_OF_LIST,  END_OF_LIST  ); 

tendif 

if  < pid  — -1  ) { 

tui_msg  ( M_YELLOW,  "Error  %d  on  starting  Data  Handler",  errno  ); 
return  ( -1  ) ; 

} 

error  - chk_flg  ( &Dm_Address->proces3 .dh_ initialized,  DDH_LOOP,  1 ); 
if  < error  — -1  ) { 

tuijnsg  ( M_YELLOW,  "Display  Manager  - Data  Handler  task  not  initialized"  ) 
return  ( -1  ) ; 

} 

Dm_Addre33->proces3 .dh_pid  - pid; 

#ifdef  STUB 


pid  » EXexec  ( "/WEX/ Exec /pdt_feed", 

ARG_LI$T,  "pdt_feed",  END_OF_LIST,  END_OF  LIST  ); 


lendif 

/* 

* If  not  the  first  Display  Manager  process,  assure  First_Copy  is  negated 

* and  increment  the  Display  Manager  process  counter. 

*/ 


} else  ( 

Dm_Address->proce33 .disp_nbr++; 
First_Copy  * NO; 

} 


/* 

* Attach  to  the  Data  Handler  shared  memory 

*/ 


Dh_Address  - (struct  data_ info  *)shmat  (Dm__Address->process .data  shm  id,  0,  0); 
if  ( (int)  Dh_Address  **  -1  ) { 

tui_msg  ( M^YELLOW,  "Error  %d  on  Data  Handler  shared  memory  attach",  errno  ) ; 
return  ( -1  ) ; 

} 


/* 

* Get  the  flight  Id,  data  type,  and  position  Id  from  WEX  and  store  with  the  display 

* information.  If  errors  occurs  on  the  flight  or  data  type  call,  set  flight  or  data 

* type  to  null  and  set  an  internal  error  flag  to  YES.  If  an  error  occurs  on  the 

* position  call,  default  the  position  Id  to  GNC. 

*/ 

if  ( wex_err  --  NO  ) { 

error  - EXf light  ( Dm_Address->dm_pid [Disp_Num] , flight_id  ); 
if  ( error  !-  0 ) { 

tui_msg  ( M_YELLOW,  "Error  %d  on  WEX  EXf light  call", 

Dm_Address->display [Disp_Num] . f light_id[0]  - ' \0'; 
wex_err  - YES; 

) else  { 


errno  ) ; 


} 
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strncpy  ( Dm_Address->display  [Disp_Num]  . f light_id,  flight_id,  3 ); 
Dm  Address->display [Disp_Num] . f light_id[3]  - 0; 


{ 


) ; 


error  - EXdatatype  ( Dm_Address->dm_pid  [Disp_Num] , 

Dm_Address->di3play  [Disp_Num]  .strm_type  ); 

if  ( error  !-  0 ) { 

tui_msg  ( M_YELLOW,  "Error  %d  on  WEX  EXdatatype  call",  errno  ) ; 
Dm_Address->display  [Disp— Num]  . strm_type  [0]  - f\0'; 
wex_err  * YES; 

} else  { 


} 


if  ( Dm_Address->display [Disp_Num]  . strm_type [0]  !-  0 ) { 

val— dt  ( Dm_Address->display [Disp_Num] . strm_type  ); 
if  ( Good_Strm  — NO  ) 
wex_ err  - YES; 

} 


if  ( ( Dm_Address->display  [Disp_Num]  . flighted [0]  — 0 ) II  ( Good__Strm  !-  YES  ) ) 


wex_err  - YES; 

} else  { 

Flt_Selected  • YES; 

> 


error  - Exposition  ( Dm_Addre33->dm_pid[Disp_Num] , 

Dm_Address->display  [Disp_Num]  .pos_id  ) ; 

if  ( error  !-  0 ) { 

tui_msg  { M_ YELLOW,  "Error  %d  on  WEX  Exposition  call-  default  to  GNC  ",  errno 

strncpy  ( Dm_Addres s->di splay [Disp_Num] *pos_id,  "GNC\0",  4 ); 

} else  if  ( Dm_Address->display [Disp_Num] .pos_id[0]  “ NULL  ) { 

tui_msg  ( M__YELLOW,  "Position  Id  not  available  - default  to  GNC",  errno  ) ; 
strncpy  ( Dm_Address->di splay [Disp_Num] .pos_id,  "GNC\0",  4 ); 

} 


} else  { 

tui_msg  ( M_WHITE,  "Default  position  Id  to  GNC",  errno  ); 
strncpy  ( Dm_Address->display [Disp_Num]  .pos_id,  "GNC\0",  4 ); 

} 


/* 

* Search  the  active  position  Id  table  and  see  if  this  is  a new  position  Id  or  a 

* currently  existing  position.  Set  an  index  which  points  to  the  position  Id  and  the 

* position  Id  alarm  flag.  Increment  the  number  of  users  for  this  position  Id. 

*/ 


i - match  - new  - 0; 

while  ( ( i < MAX_POS_ID  ) &&  ( match  — NO  ) ) { 

if  ( ( strcmp  ( Dm_Address->di splay  [Disp__Num]  .pos_id, 

Dm_Addre3s->process .pos_id[i]  ) " 0 ) ) { 

match  - YES; 

Dm_Address->process .nbr_pos [i] ++; 
Dm_Addres3->display [Disp_Num] .pos_id_indx  * i; 

} else 

if  ( Dm_Address->process .nbr— pos [i]  <-  0 ) 
new  — i ; 


i++; 

} 

if  ( match  — NO  ) { 


new; 


Dm_Address->process .nbr_j>os [new]  - 1; 

Dm_Address->d±3play [Disp_Num] .pos_id_indx  - 
strcpy  ( Dm__Address->procesa  .pos_id[new]  , 

Dm_Address->display  [Disp_Num]  .pos_id  ) ; 

Dm_Address->proce33 . alarm[new]  * YES ; 

} 

/* 

* RLK  9/19/90  Need  to  make  this  display-specific.  Actually,  each  gets 

* its  own  copy  (see  below),  so  why  the  globals? 

* 

* Generate  the  default  path  name  of  the  display  universal  plots  and  data  files. 

* Then  copy  the  default  path  names  into  shared  memory. 

*/ 


strcpy  ( Disp_Path,  "/WEX/Dataf iles/display/"  ); 
strcpy  ( Plot_Path,  "/user/display/"  ) ; 


strcat  ( Disp_Path,  Dm_Address->di splay [Disp_Num]  ,pos_id  ); 
street  ( Plot_Path,  Dm_Address->display  [Disp_Num]  ,pos_id  ); 


strcat  ( Disp_Path,  "/"  ) ; 
strcat  ( Plot_Path,  "/"  ); 


strcpy  < Dm_Address->display [Disp_Num] .plot_path,  Plot_Path  ); 
strcpy  ( Dm_Address->display  [Disp_Num]  .dispjpath,  Disp^Path  ); 


/* 

* RLK  9/19/90  Need  to  make  this  display-specific 

* 

* Call  a routine  to  validate  the  flight  id  and  stream  tag. 
*/ 


if  ( wex_err  ■>«  NO  ) 

wex_err  - chk_flt  ( YES  ) ; 


/* 

* Read  in  the  default  PF  key  definitions  for  the  workstation. 

*/ 


read_pf  ( YES,  NONE  ) ; 

/*  RLK  9/19/90  Placed  here  temporarily  until  get  "Current_Display"  or  whatever  working  */ 
Disp_Num  “0; 

tui_msg  ( M_WHITE,  "Display  Manager  %d  initialized",  Dm_Address->process.disp_nbr); 

D (printf ("END  init\n")); 
return  ( 0 ) ; 

) 


* MODULE  NAME:  control_fpe 


★ 

* This  function  processes  floating  point  exceptions. 
************************************************************* *****************/ 

int  control_fpe  ( ) 

{ 

signal  ( SIGFPE,  control_fpe  ) ; 

} 
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* MODULE  NAME:  init_disp.c 


* 


* The  initialization  routine  initializes  all  X attributes  and  creates  the 

* top-level  drawing  and  scrolling  widgets  for  a new  display  (if  the 

* display  is  already  active  and  is  being  reinitialized,  the  above  actions 

* are  not  performed) . The  background  and  foreground  DDF  files  are  read. 

* The  timer  is  set  for  the  foreground  update  callback  here  first. 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 

* 


* 


* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

*******************  *******★*★★*****★★*******★**★**★***************************/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio .h> 

<X11/ Intrinsic .h> 
<X11/Shell.h> 
<Xm/Xm.h> 
<Xm/ScrolledW. h> 
<Xm/DrawingA . h> 
<sys/types . h> 
<sys/ipc ,h> 
<sys/shm.h> 
<signal.h> 
Cconstants .h> 
<DDdisp.h> 

<DDplot . h> 
<disp.h> 
<user_inter . h> 
<wex/EXmsg . h> 


extern  Widget 

Top,  Scrl_Win, 

Draw_Win; 

extern  Colormap 

Main  cmap; 

extern  struct  dm_shmemory  *Dm  Address; 

/ * DM  shared  memory  address 

*/ 

extern  struct  bg_recs 

Bg_Rec  ; 

/*  bg  record  header  structure 

*/ 

extern  int 

errno; 

/*  system  call  return  value 

*/ 

extern  int 

Nbr_of_plots; 

/*  ♦ plots  for  this  display 

*/ 

init_disp  (disp_num) 

short  disp  num; 

{ 

/*  display  ♦ of  new  display 

*/ 

register  int  i; 

/*  argument  list  counter 

*/ 

Arg 

args [10] ; 

/*  argument  array  for  X calls 

*/ 

Display 

♦xdisplay; 

/*  ptr  to  X display  for  display 

*/ 

XGCValues 

*gc_val; 

/*  contains  GC  initial  values 

*/ 

XtCallbackProc 

cb _jpbi  ()  , 
cb_cnvd  ( ) , 

cb_expose_display  () 

/*  callback  procedures 

*/ 

struct  disp_info 

♦display; 

/*  ptr  to  display  disp  info  struct 

*/ 

unsigned  long 


gc_mask; 


/*  mask  for  GC  values 
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int  t ot al_nbr  Jbgrecords , 

total_nbr_fgrecords; 


/*  total  number  of  bg  records  */ 

/*  total  number  of  fg  records  */ 


D (print f ("START  init_disp\n" ) ) ; 


* If  this  display  is  not  active,  initialize  X objects. 
*/ 


if  (Dm_Address->display  [disp_num]  ,disp_active  “ NO)  { 

D (print f ("Activating  display  number  %d...\n",  disp_num) ) ; 
Dm  Address->display [disp_num] .disp_active  - YES; 


* Create  the  shell  widget  which  is  the  parent  of  the  display  window. 

*/ 

i - 0; 

Dm_Addres3->shell [disp_num]  - 

t u i_c r e a t e__app_s hell  { "Display  Window",  Main_cmap,  args,  i ); 
i - 0; 

XtMan ageCh i Id  ( Scrl_Win  - XmCreateScrolledWindow  ( Dm_Address->shell  [disp_num]  , 

"scroll",  args,  i ) ) ; 

i - 0; 

XtManageChild  ( Draw_Win  - XmCreateDrawingArea  ( Scrl_Win,  "draw",  args,  i ) ); 
XtAddCallback  ( Draw_Win,  XmNinputCallback,  cbjpbi,  0 ) ; 

XtAddCallback (Draw_win,  XmNexposeCallback,  cb_expose_display,  disp_num) ; 

XtRealizeWidget  ( Dm_Addres3->shell [disp_num]  ); 

Dm_Addres3->window[disp_num]  - XtWindow  ( Draw_Win  ); 

/* 

* Initialize  the  color  map  for  the  window. 

*/ 

set^cmap  ( Dm_Address->shell  [disp_num]  ); 

/* 

* Set  values  in  gc  values  structure 
*/ 


gc_val  » £Dm_Address->gc_val  [disp_ num] ; 
xdisplay  - Dm_Address->xdi splay [disp_ num] ; 


gc_val->function  » GXcopy; 
gc_val->plane_mask  - AllPlanes; 
gc_val->foreground  ■ WhitePixel (xdisplay, 
gc_val->background  - BlackPixel (xdisplay, 
gc_val->line_width  * 1; 
gc_val->line_3tyle  * LineSolid; 
gc_val->cap_style  - CapButt; 
gc_val-> join_style  - JoinMiter; 
gc_val->f ill_style  - FillSolid; 
gc_val->f ill_rule  - EvenOddRule; 
gc_val->arc_mode  - ArcChord; 


/*  default  */ 
/*  default  */ 
DefaultScreen (xdisplay) ) ; 
Def aultScreen (xdisplay) ) ; 

/*  default  */ 
/*  default  */ 
/*  default  */ 
/*  default  */ 
/*  default  */ 


/*  gc_val->tile 

/* 

default 

*/ 

/*  gc_val->stipple 

/* 

default 

*/ 

gc_val->ts_x_origin  - 0; 

/* 

default 

*/ 

gc_val->ts_y_ origin  - 0; 

/* 

default 

*/ 

/*  gc_val->font 

/* 

default 

*/ 

gc_val->subwindow_mode  - ClipByChildren; 

/* 

default 

*/ 

gc_val->graphics_exposures  ■ True; 

/* 

default 

*/ 

gc_val->clip_x_origin  - 0; 

/* 

default 

*/ 

gc_ val->clip_y_origin  - 0; 

/* 

default 

*/ 

gc_val->clip— mask  - None; 

/* 

default 

*/ 

gc_val->dash_of f set  - 0; 

/* 

default 

*/ 

gc_val->dashes  - 4; 

/* 

default 

*/ 

/* 

* Set  mask  for  update  of  non-default  values 

V 

gc_mask  - GCForeground  I GCBackground  I GCLineWidth  I GCArcMode; 

/* 

* Create  gc  with  set  values 

V 

Dm_Address->gc  [disp__num]  - 

XCreateGC (xdisplay,  Dm_Address-> window [disp_num] , gc_mask,  gc_val) 

/* 

* If  this  display  is  active,  must  be  selecting  new  display  for 

* this  display  number.  Clear  old  display,  free  memory 

* (in  clearO)  and  re-initialize  for  new  display. 

*/ 

} else  { 

clear  (disp_ num)  ; 

gc_val  - 4Dm_Address->gc_val  [disp_num]  ; 
xdisplay  - Drn_Address->xdisplay  [disp_num] ; 

> 

/* 

* Read  bg  display  definition  file 
*/ 


total_nbr_bgrecords  - readbg  (disp_num)  ; 
if  (total_nbr_ bgrecords  <-  0) 

tui_msg (M_YELLOW,  "There  are  no  background  records  available\n") ; 
display  - £Dm_Address->display [disp_num] ; 


/* 

* Set  the  background  of  the  display  gc  and  of  the  window  according  to 

* the  color  specified  in  the  background  file. 

*/ 


gc_val->background  - Bg_Rec.s_color; 

XSetBackground (xdisplay,  Dm_Address->gc [disp_num] , Bg_Rec . s_color ) ; 
XSetWindowBackground (xdisplay,  Dm_Address-> window [disp_num] , Bg_Rec . s_color ) 


/* 

* Set  the  size  of  the  scrolled  window  widget  to  the  size  of  the  display 

* plus  a few  pixels  to  account  for  spacing  and  borders.  MDC  - fix  to  really 

* take  into  account  the  borders  and  such. 

*/ 
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i - 0; 

XtSetArg  ( argsfi],  XmNwidth,  display->size_x  + 4 );  x++; 
XtSetArg  ( args[i],  XmNheight,  display->size_y  + 4 );  i++; 
XtSetValues  ( Scrl_Win,  args,  i ); 


* Set  the  size  of  the  drawing  area  widget  to  the  exact  size  of  the  image. 

* This  is  necessary,  as  it  sets  up  the  relationship  between  the  size  of 

* the  drawing  area  and  the  scrolled  window  widget. 

*/ 

i - 0; 

XtSetArg  ( args[i],  XmNwidth,  display->size_x  );  i++; 

XtSetArg  ( args[i],  XmNheight,  display->size_y  );  i++; 

XtSetValues  ( Draw_Win,  args,  i ); 


* Read  foreground  Display  Definition  File  and  draw  background 

* axes  and  grid  lines  for  all  active  plots  (done  in  readfgO). 

*/ 

total_nbr_fgrecords  “ readfg (disp_num) ; 

if  ( (total_nbr_bgrecords  <-  0)  II  (total_nbr_fgrecords  <-  0) ) { 

tui_msg <M_YELLOW,  "There  are  no  records  available"); 
return (-1) ; 

) 

/* 

* RLK  9/26/90  Here  need  to  check  out  the  fg/bg  records  and  fonts  and  create 

* GCs  for  the  common  colors/fonts 

* 

* Actually,  should  prob.  do  this  in  readfgO,  accumulating  counts  as 

* the  stuff  is  read,  then  call  a routine  to  figure  out  the  colors/fonts 

* 

* XCreateGC,  XSetForeground,  XSetBackground,  XLoadQueryFont,  XSetFont,  etc. 
*/ 

/*  RLK  10/25/90  font  stuff 

* Initialize  fonts 

DDfont_ init  ()  ; 

*/ 

/* 

* Return  successful  initialization  flag  to  DM  and  clear  new  display  flag 
*/ 

Dm_Address->display [disp_ num] ,new_display  - NO; 

Dm_Address->display  [disp_num]  .disp_init  - YES; 

/* 

* Set  up  callback  timer  for  foreground  update 

V 

set_timer  (disp_num)  ; 

D (print f ("END  init_disp\n" ) ) ; 
return (0) ; 


/**★*★** *********************************************************************** 

* MODULE  NAME:  init_fg.c 

* 

* This  routine  displays  the  Dead  status  for  all  the  data  fields, 

* pending  the  first  foreground  data  update  and  initializes  the  data 

* buffers  to  all  z's. 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 

* 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough  & 

* Nancy  Martin  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

**************************************************************************A**^ 


♦include  <stdio,h> 
♦include  <X11/Xlib.h> 
♦include  <constants . h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 
♦include  <Dbdata.h> 
♦include  <wex/EXmsg. h> 

extern  struct  dm_shmemory  *Dm_Address; 

extern  struct  tabular_ent  *Tab; 

extern  struct  fg_ f ile_header  *Ffile; 

extern  struct  msid_ent  *Msid; 

extern  struct  limit_ent  *Limit; 

extern  unsigned  char 
extern  unsigned  char 

01d_Data [60000] ; 
Graph_01d_Data [60000] 

extern  float 
extern  float 
extern  float 

Font  65_height ; 
Font  8 0_height ; 
Font 1 0 0_height ; 

extern  Widget 

Draw  Win; 

init_fg  (disp_num) 

short  disp_num; 

{ 

register  struct  msid_ent  *msid_info; 

struct  tabular_ent  *tab_info; 

struct  limit_ent  *lim_info; 

int  i,  j,  n; 


DbElement 

Widget 

Arg 

double 


Wdata [MAXIMS IDS] ; 
db_data; 
wargs [20]  ; 
init  val  - 0; 
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D(printf ("START  INIT_FG\n") ) ; 

/* 

* Set  dead  status  for  each  maid 
*/ 


msid  info  m Msid; 


n » 0; 

for  (i  - 0;  i < Ff ile->Entry_Num;  i++)  { 

if  (msid_info->Stat_Flag  !-  0 &&  msid_info->hist_ind  --  0)  { 

tab  info  - Tab  + msid_info->Tab_Index  - 1; 


* Nancy  is  beginning  to  make  the  move  to  the  Dbdata  widget . 

*/ 


Wdata [n] .value  - (char*) malloc (8) ; 
memcpy  (SWdata [n] .Value,  &init_val,  8)  ; 
printf  ("Value  %d\n",  Wdata [n] .Value) ; 

Wdata [n] .Attrib  - 0; 

Wdata [n] .Type  “ msid_info->Scrn_Type; 

Wdata [n] .Width  - tab_info->Data_Width; 

Wdata [n] .Precision  - tab_info->Dig_Right; 

Wdata [n] .JustFlag  ■ tab_info->Just_Flag; 

Wdata [n] .DispStat  - DEAD_DATA; 

Wdata [n] .StatFlag  - 0; 

Wdata [n] .X  - tab_info->X_XC; 

Wdata [n] .Y  - tab_info->Y_XC; 
if  ( msid_info->Limit_Ind  > 0 ) { 

lim_info  - Limit  + msid_info->Limit_Ind  - 1; 
Wdata [n] .MinLimit  - lim_info->Low_Limit; 
Wdata [n] .MaxLimit  - lim_info->Hi_Limit; 

Wdata [n] . LowColor  - lim_info->Lo_Color; 

Wdata [n] .HiColor  - lim_info->Hi_Color; 

Wdata [n] .CrMinLimit  - lim_info->Crit_Low; 
Wdata [n] .CrMaxLimit  - lim_info->Crit_Hi; 
Wdata [n] .CrLColor  - lim_info->Cr_Lcolor; 
Wdata [n] .CrHColor  - lim_inf o->Cr_Hcolor; 

} else  { 

Wdata [n] .MinLimit  ” 0; 

Wdata [n] .MaxLimit  ■ 0; 

Wdata [n] .LowColor  - msid_info->Nom_Color; 
Wdata [n] . HiColor  ■ msid_info->Nom_Color; 
Wdata [n] .CrMinLimit  ■ 0; 

Wdata [n] .CrMaxLimit  ■ 0; 

Wdata [n] .CrLColor  « msid_info->Nom_Color; 
Wdata [n] .CrHColor  - msid_info->Nom_Color; 

) 

Wdata [n] .NomColor  - msid_info->Nom_Color; 

Wdata [n] .StaColor  - msid_info->Sta_Color; 

Wdata [n] .OvrColor  - msid_info->Ovr_Color; 

Wdata [n] .DeadColor  - msid_info->Dead_Color; 

/*  RLK  9/12/90  More  font  stuff  to  fix. 

Wdata [n] .DefFont  - Pixels (tab_info->Dead_Color) ; 

if  ( (tab_info->Font_Num  - 1)  % 3 --  0) 
fp.font  - 1; 

else 

if  ( (tab_info->Font_Num  - 2)  % 3 — 0) 
fp.font  - 2; 


else 


fp.font  - 3 
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if  (tab_info->Font_Num  < 4) 

gsetcharheight  (Font 65_height ) ; 

else 

if  <tab_info->Font_Num  < 7) 

gsetcharheight  {Font80_height ) ; 

else 

gsetcharheight  (FontlOO_height ) ; 
gsettextfontprec  (&fp) ; 

*/ 

n++; 

} 

msid_info++; 

} 

/* 

* Create  a Dbdata  widget  to  display  all  foreground  values  in  their  specified 

* positions, 

*/ 

i - 0; 

printf ("INITFG  num  values  %d\n",  n) ; 

XtSetArg  (wargsfi],  XtNvalues,  Wdata) ; i++; 

XtSetArg  <wargs[i],  XtNnumValues,  n) / i++; 

XtSetArg  (wargs[i],  XtNpacking,  XeNO_PACKING) ; i++; 

db_data  - XtCreateManagedWidget  ("data",  XedbdataWidgetClass,  Draw_Win, 

wargs,  i)  ; 

/* 

* Fill  old  data  buffer  with  z's 
*/ 

for  (i  « 0;  i < 60000;  i++)  { 

01d_Data[i]  - 'z'; 

Graph_01d_Data [i]  - 9 z' ; 

) 

D (printf {"END  INIT_FG\n")  ) ; 
return  (0) ; 


* MODULE  NAME:  init_label 


★ 

* This  function  initializes  the  labels  on  menu  entries  which  act  as  toggles. 

★ 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

a*****************************************************************************/ 


♦include  <X11/Intrinsic .h> 

♦include  <constant s . h> 

♦include  <disp.h> 

♦include  <wex/EXmsg. h> 

extern  Widget  Pb_Alarm,  Pb_Pbi,  Pb_ Log,  Pb_Log__A,  Pb_Msg,  Pb_Pf; 

extern  struct  dm_shmemory  *Dm_Address; 

extern  short  Disp_Num, 

Msg_Popup_Flag, 

Pbi  Disable; 


int  init_label  ( ) 

( 

register  int  index; 

D (print f ( "START  init_label\n" ) ) ; 

/* 

* Initialize  alarm  label. 

*/ 

index  ■■  Dm_Address->display [Disp_Num]  .pos_id_indx; 
if  ( Dm_Address->process . alarm [index]  — ON  ) 
set_label  { Pb_Alarm,  "Disable  Alarms"  ) ; 

else 

set_label  { Pb_Alarm,  "Enable  Alarms"  ) ; 

/* 

* Initialize  Pbi's  label. 

*/ 

if  ( Pbi_Disable  — ENABLED  ) 

set_label  ( Pb_Pbi,  "Disable  PBI's"  ); 

else 

set_label  ( Pb_Pbi,  "Enable  PBI's"  ); 

/* 

* Initialize  logging  label. 

*/ 

if  ( Dm_Address->display [Disp_Num] . log_enable  — YES  ) 
set_label  ( Pb_Log,  "Disable  Logging"  ) ; 

else 

set_ label  ( Pb_Log,  "Enable  Logging"  ) ; 

/* 

* Initialize  all  logging  label. 
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*/ 

if  ( Dm_Addreas->proce33 . log_ enable  -«  YES  ) 

set_label  ( Pb_Log_A,  "Disable  All  Logging"  ) 

else 

set_label  ( Pb_Log_A,  "Enable  All  Logging"  ) 

/* 

* Initialize  message  label. 

*/ 

if  { Msg_Popup_Flag  — YES  ) 

set_label  ( Pb_Msg,  "Disable  Messages"  ) ; 

else 

set_label  ( Pb_Msg,  "Enable  Messages"  ) ; 

/* 

* Initialize  FREEZE/PAUSE  label; 

*/ 

set_label  ( Pb_Pf , "Freeze  Display"  ) ; 

D (printf ("END  init_label\n" ) ) ; 
return  ( 0 ) ; 
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*********************************************************************** 

* MODULE  NAME:  int_ln . c 

* 

* This  function  determines  if  any  of  the  given  lines  intersect 

* the  bounding  lines  of  the  redraw  box. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Tod  Milam  - Ford  Aerospace  Corporation/Houston 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

A*****************************************************************************/ 


♦include  <stdio.h> 
♦include  <X11/Xlib.h> 
♦include  <wex/EXmsg.h> 
♦include  <constants . h> 


int_ln(ulx,  uly,  lrx, 

Iry, 

points,  num^ pts) 

short 

ulx,  uly,  lrx. 

lry; 

/*  coordinates  of  the  redraw  box 

*/ 

XPoint 

points [ ] ; 

/*  endpoints 

of  the  lines 

*/ 

short 

num_pts ; 

/*  number  of 

endpoints 

*/ 

int 

pt_cnt , 

/* 

loop  counter 

*/ 

redraw_f  lag. 

/* 

set  as  soon  as  redraw 

necessity  determined 

*/ 

x,  y; 

/* 

temp  x/y  coordinates 

/* 

* Check  each  line  to  see  if  it  crosses  a line  of  the  redraw  box 
*/ 


pt_cnt  -0; 
redraw_flag  - NO; 

while  (redraw_f lag  — NO  &&  pt_cnt  < (num_pts  -1))  { 

if  (points [pt_cnt  + 1] .x  !-  points [pt_cnt] .x 

&&  ( (ulx  > points [pt_cnt  + 1] .x  &&  ulx  < points [pt_cnt] . x) 

||  (points [pt_cnt  + 1] .x  > ulx  &£  points [pt_cnt] . x < ulx)))  ( 


/* 

* Calculate  the  intersection  point  of  the  line  and  the  edge  of  the  box 
*/ 

y - points [pt_cnt] .y  + (points [pt_cnt+l] .y  - points [pt_cnt] .y) 

/ (points [pt_cnt+l] .x  - points [pt_cnt] .x) 

* (ulx  - points [pt_cnt] .x) ; 

/* 

* If  this  point  lies  on  the  two  lines  then  set  the  redraw  flag. 

*/ 


* 


if  (y  < uly  44  y > lry)  { 


if  (y  <«  points [pt_cnt] .y  44  y >-  points [pt_cnt+l] .y) 
redraw_flag  - YES; 

else  if  (y  < points [pt_cnt+l] .y  44  y > points [pt_cnt] .y) 
redraw_flag  ” YES; 

} 

} 


/* 

* If  the  redraw  flag  has  not  yet  been  set,  check  the  remaining 

* edges  of  the  redraw  box. 

*/ 


if  ( ! redraw_f lag)  ( 

if  (points [pt_cnt+l] .x  !-  points [pt_cnt] .x 

44  ( (lrx  > points [pt_cnt+l] .x  £4  lrx  < points [pt_cnt] . x) 

II  (points [pt_cnt+l] .x  > lrx  44  points [pt_cnt] . x < lrx)))  ( 


/* 

* Calculate  the  intersection  point  of  the 

* line  and  the  edge  of  the  box. 

*/ 

y - points [pt_cnt] .y  + (points [pt_cnt+l] .y  - points [pt_cnt] .y) 
/ (points [pt_cnt+l] .x  - points [pt_cnt] .x) 

* (lrx  - points tpt_cnt] .x) ; 

/* 

* If  this  point  lies  on  the  two  lines 

* then  set  the  redraw  flag. 

*/ 

if  (y  < uly  &&  y > lry)  ( 

if  (y  <-  points [pt_cnt] .y  44  y >-  points [pt_cnt+l] . y) 
redraw_flag  - YES; 

else  if  (y  < points [pt_cnt+l] .y  £4  y > points [pt_cnt] . y) 
redraw_flag  *■  YES; 

} 

) 

} 

/* 

* If  the  redraw  flag  has  not  yet  been  set,  check  the  remaining 

* edges  of  the  redraw  box. 

*/ 


if  ( ! redraw_flag)  ( 

if  (points [pt_cnt+l] .y  !-  points [pt_cnt] .y 

£4  ((uly  > points [pt_cnt+l] .y  44  uly  < points [pt_cnt] .y) 

II  (points (pt_cnt+l] .y  > uly  44  points [pt_cnt] .y  < uly)))  { 


/* 

* Calculate  the  intersection  point  of  the 

* line  and  the  edge  of  the  box. 

*/ 


x - points [pt_cnt] .x  + (points [pt_cnt+l] .x  - points [pt_cnt] .x) 


/ (points [pt_cnt+l]  .y  - points [pt_cnt] .y) 
* (uly  - points (pt_cnt].y); 


If  this  point  is  on  the  two  lines  then  set  the  redraw  flag, 
if  (x  < ulx  44  x > lrx)  ( 

if  (x  <-  points [pt_cnt] .x  44  x >-  points [pt_cnt+l] . x) 
redraw_flag  “ YES; 

else  if  (x  < points [pt_cnt+l] .x  44  x > points [pt_cnt] .x) 
redraw_flag  “ YES; 

} 

} 

) 


If  the  redraw  flag  has  not  yet  been  set,  check  the  remaining 
edges  of  the  redraw  box. 


if  ( ! redraw_f lag)  { 

if  (points [pt_cnt+l] .y  !-  points [pt_cnt] .y 

44  ((lry  > points [pt_cnt+l] .y  44  lry  < points [pt_cnt] .y) 

II  (points [pt_cnt+l] .y  > lry  44  points [pt_cnt] .y  < lry)))  { 


Calculate  the  intersection  point  of  the 
line  and  the  edge  of  the  box. 


x - points (pt_cnt] .x  + (points [pt_cnt+l] .x  - points [pt_cnt] .x) 
/ (points [pt_cnt+l] .y  - points [pt_cnt] .y) 

* (lry  - points [pt_cnt] .y) ; 


If  this  point  is  on  the  two  lines  then  set  the  redraw  flag. 


if  (x  < ulx  44  x > lrx)  { 

if  (x  <-  points [pt_cnt] .x  44  x >-  points [pt_cnt+l] . x) 
redraw_flag  - YES; 

else  if  (x  < points [pt_cnt+l] .x  44  x > points [pt_cnt] . x) 
redraw_flag  - YES; 

) 

} 

) 

pt_cnt++; 

) 


return  (redraw_f lag) ; 
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* MODULE  NAME:  lim_grp.c 

★ 


* This  function  allows  the  user  to  turn  a limit  group  on  or  off. 

★ 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* C.  Davis  - Ford  Aerospace  Corporation 

★ 


* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************^ 


#include  <stdio.h> 
♦include  <constants .h> 
♦include  <pf_key.h> 
♦include  <disp.h> 
♦include  <wex/EXmsg.h> 


extern  struct  pfkey_defs 
extern  struct  dm_s hmemo r y 
extern  struct  limit  file 


extern  short 
extern  char 
extern  int 


Current_Com; 

* Dm_Addr e s s ; 
*First_limjptr, 
*Last_lim_ ptr; 

Disp_Num; 

Disp_Path[DNAME_LEN]  ; 
errno; 


int  lim_grp  ( ) 

{ 

struct  limit  file 


short 


*temp_ptr, 

*lim_j?tr, 

*current_lim_j>tr; 

error  - 0,  /*  return  value 

match; 


char 


*calloc  ( ) ; 


D (print f ("START  lim  grp\n")); 

/* 

* Send  the  turn  on  or  off  limit  group  command  to  the  Data  Handler. 

* Call  the  chk_flg  routine  to  monitor  a response  from  the  Data  Handler. 
*/ 


*/ 


Dm_Address ->di splay [Disp^Num] .display_name [0]  - 0; 
if  ( Current__Com.disp_name  [0]  !-  '/'  ) 

strcpy  ( Dm_Address-*>di  splay  [Disp_Num]  . display_name,  Disp_Path  ); 

strcat  ( Dm_Address->display  [Disp_Num]  . display_name,  Current_Com.  disp_name  ); 
Dm_Address“>display  [Disp_Num]  . action  - (Current_Com.  f unc__no  " LIM_GRP)  ? START  : STOP 

Dm_Address->display  [Disp_ Num]  .grp__lim  - YES; 

Dm_Address->display  [Disp__Num]  . dh_grp_ limit  - NO; 

error  - chk_flg  ( &Dm_Address->display  [Disp_Num]  .dh_grp_limit,  10,  1 ); 


if  ( error  ) { 

tui_msg  ( M_YELLOW, 
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Data  Handler  - Unable  to  process  the  limit  group  command”  ) ; 


/* 

* If  the  command  is  to  STOP  the  limit,  then  check  the  link 

* list  for  the  file  name  to  delete.  Once  found,  the  file  will 

* be  deleted,  and  the  pointers  to  the  other  file  name  in  the 

* list  will  be  adjusted. 

*/ 


) else  { 

if  ( Current_Com. func_no  " LIM_GRP_OFF  ) { 

match  - NO; 

temp_ptr  * First_lim_j3tr; 
if  ( tempjptr  !-  NULL  ) { 

while  ( match  ~ NO  &&  temp_ptr  !■  NULL  ) { 

if  ( strcmp  ( Dm_ Address->display [Disp_Num] .display_name, 
t emp_pt  r - > f i 1 e_name  ) " 0 ) { 

match  • YES; 
lim_ptr  - temp_ptr; 

} else 

temp_ptr  * temp— ptr->next_ptr ; 


} 

if  < match  --  YES  ) { 

if  ( lim_jptr->prev_j?tr  !-  NULL  ) 

limj>tr->prevjptr->next_ptr  - lim_j5tr->next_jptr ; 
else  { 

if  ( lim_ptr->next_ptr  !-  NULL  ) 

First__lim_j>tr  - lim_ptr->next  j>tr; 

else 


First_lim_ptr  - NULL; 

} 

if  ( lim_ptr->next_jptr  !■  NULL  ) 

lim_ptr->next _ptr->prev_jptr  - lim_j>tr->prev_ptr; 

else 

Last_lim_ptr  - lim^ ptr->prev_ptr ; 


} 


free  < liinjptr  ) ; 


/* 

* Else,  we  want  to  start  the  limit,  so  add  it  to  the  link  list. 

*/ 


} else  if  ( Current_Com. func_no  --  LIM_GRP  ) { 

if  ( First_lim_jDtr  " NULL  ) { 

First_lim_ptr  - (struct  limit_file  *) 

calloc  ( 1,  sizeof  ( struct  limit_file  ) ) ; 
if  ( First— lim_ptr  -■  NULL  ) { 

tui__msg  ( M_ YELLOW,  "Error  %d  on  calloc  of  Limit  List",  errno  ); 
return  ( -1  ) ; 

} else  { 

current_lim_j>tr  - First_lim_ptr; 
current_lim_j>tr->prev_ptr  * NULL; 
current_lim_ptr->next_ptr  * NULL; 

Last_lim_j>tr  - First_lim_j>tr; 

} 

} else  { 

current_lim— ptr  - ( struct  limit_file  * ) 

calloc  ( 1,  sizeof  ( struct  limit_file  ) ) ; 
if  ( current_lim_ptr  — NULL  ) { 

tui_msg  { M_YELLOW,  "Error  %d  on  calloc  of  Limit  List”, 
return  ( -1  ) ; 


errno  ) ; 


lim_grp.c 

} else  ( 

Last^im^ptr^next^ ptr  - current_lim_j>tr; 
current_lim_ptr->prev__ptr  - Last—lim_j>tr; 
current_limjptr->next_j>tr  - NULL; 
Last_lim_j>tr  - current_limjptr; 

} 


/* 

* 

*/ 


Store  the  file  name  into  the  link  list 


if  ( Current_Com.disp_name [0]  !-  '/'  ) 

strcpy  ( current_lim— ptr->f ile_name,  Disp_Path  ) ; 
strcat  { current_lim_j?tr->f ile_name,  Current^Com.  disp_name  ) ; 

} 

} 

D (print f ("END  limjgrp\n") ) ; 
return  ( error  ) ; 


"JZ^V************************************************************************* 

* MODULE  NAME:  lim_ln.c 

★ 

* This  function  draws  a nominal  or  limit  line  for  a plot.  Note,  coefficient 

* limit  lines  have  not  been  tested. 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************/ 


♦include  <stdio.h> 

♦include  <X11/Intrinsic .h> 
♦include  <string.h> 
♦include  <math.h> 

♦include  <wex/EXmsg ,h> 
♦include  <constants .h> 
♦include  <disp.h> 

♦include  <DDdisp.h> 
♦include  <DDplot.h> 
♦include  <errno.h> 


extern  struct  dm_shmemory  *Dm_Address;  /*  ptr  to  DM  shared  memory 


*/ 


void  lim_ln (disp_ num,  plot_ptr,  line _ptr) 


short  disp_num; 

struct  plot_ptrs  *plot_ptr; 

struct  lim_lines  *line_ptr; 


double 

sqrt  0 ; 

/* 

XPoint 

points [101] ; 

/* 

Display 

*xdisplay; 

/* 

Window 

xwindow; 

/* 

GC 

gc; 

/* 

XGCValues  *gc_val; 

/* 

struct  . 

axis_info  *x_ptr. 

/* 

*y_ptr; 

/* 

double 

xvalue,  yvalue. 

/* 

coeffs [6] , 

/* 

axis_xmaxf  axis_xmin, 
axis— ymax,  axis_ymin, 

/* 

axis— ylow,  axis_xlow. 

/* 

factor_x,  factor_y; 

/* 

float 

xpoints [101] , 
ypoints [101] , 

/* 

xpoint,  ypoint. 

/* 

square  root  function  for  logs  */ 

vertices  of  limit  line  */ 

ptr  to  X display  in  DM  shared  memory  */ 
XID  of  display  window  */ 

XID  of  GC  in  DM  shared  memory  */ 

ptr  to  GC  values  in  DM  shared  memory  */ 

ptr  to  x axis  records  */ 

ptr  to  y axis  records  */ 

used  for  sqrt  function  calculation  */ 

contains  double  format  of  coeffs  */ 

local  high/low  axis  scale  values  */ 

lower  of  low/hi  scale  values  */ 

coordinate  transformation  factors  */ 

world  coordinate  points  */ 

used  in  world  coord  pt  calculations  */ 


sqrtval. 

/* 

temp  holder  for  result  of  sqrt 

*/ 

xscaler,  yscaler; 

/* 

ratio  of  display  scale  to  axis  scale 

*/ 

unsigned  long  gc_ 

mask; 

/* 

mask  for  GC  change  values 

*/ 

int 

count ; 

/* 

index  into  point  arrays 

V 

short 

point_num. 

/* 

convenience  local  for  # point  pairs 

*/ 

polyn_num. 

/* 

convenience  local  for  # coefficients 

*/ 

xmultiply  * 

i. 

/* 

used  to  temporarily  change  value  to 

*/ 

ymultiply  - 

1; 

/* 

either  positive  or  negative  for 

*/ 

/* 

processing  lo  values  which  are 

*/ 

/* 

higher  than  the  hi  value 

*/ 

Set  up  local  X variables  and  transformation  factors 


xdisplay  - Dm_ Address->xdisplay [disp_num] ; 
xwindow  - Xt Window (plot_ptr->draw_win)  ; 
gc_val  - &Dm_Address->gc_val  [disp_num] ; 
gc  - Dm_Address->gc  [disp_num]  ; 

factor_x  - plot-ptr~>plot_pos->f actor^x; 
factor__y  «*  plot_ptr->plot_pos->factor_y; 


Set  up  misc  local  variables 


point_num  - line_j>tr->point_num; 
polyn_num  - line_ptr->polyn_num; 


Get  the  axis  information 


x_ ptr  « plot _j>tr->axis  + (linejptr->xaxis_num  - 1)  ; 
y_ptr  » plot_ptr->axis  + 

(line _j>tr->yaxis_num  + plotjptr->header->xaxes_num  - 1)  ; 

axis_xmax  - x_ptr->high_value; 
axis_xmin  - x_jptr->low_value; 
axis_ymax  - y_ptr->high_ value; 
axis_ ymin  » y_jptr->low_value; 


Set  the  line  parameters 


if  (gc_mask  - set_gc (xdisplay,  gc,  gc_val,  line_ptr->line_color,  1,  1.0, 

NO— CHANGE,  NO_CHANGE,  NO_CHANGE,  NO_CHANGE) ) 
XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 


If  line  type  is  Point  pairs,  vertices  of  line  are  given 
as  x/y  world  coordinates. 


if  (line_ptr->line_def  — 'P')  { 


Copy  points  from  plot  structure  into  local  points  array 


'T'  ) 


if  { x p tr->scal__t ype  — 

for  (count  - 0;  count  < point_num;  count++) 
xpointa [count]  - 

(float)  p_atimei( (line_ptr->plot_pta_ptr  + count ) ->point_x) 


else  if  (x_ptr->scal_type  — 'N') 

for  (count  - 0;  count  < point_num;  count++) 

sscanf ( (line_ptr->plot_pts_ptr  + count ) ->point_x, 

"%f ",  Sxpoints [count] ) ; 


if  (y_ptr->scal_type  — 'T') 


for  (count  * 0;  count  < point_num;  count++) 
ypoints [count ] * 

(float)  p_atimei ( (line_j5tr->plot_pts_ptr  + count ) ->point_y) 


else  if  <y_ptr->scal_type  " 'N') 

for  (count  - 0;  count  < point— num;  count++) 

sscanf  ( (line_jptr->plot_pts_j>tr  + count)  ->point_y, 

"%£ ",  fiypoints [count] ) ; 


Convert  the  x and  y axis  scale  to  a 100  x 100  window 


if  (x_ptr->axis_type  — POLAR  &&  yjptr->axis_type  --  POLAR)  { 
xscaler  *50.0/  axis_xmax; 


Y scale  value  is  360,  the  radius 
of  this  is  2PI  ->  2PI/2PI  - 1. 


yscaler  - 1.0; 

) else  { /*  LOGARITHMIC  or  CARTESIAN  */ 

xscaler  - 100.0  / (axis_xmax  - axis_xmin)  ; 
yscaler  - 100.0  / (axis— ymax  - axis_ymin) ; 


Calculate  the  x axis  coordinates 


if  (x_jptr->axis_type  --  CARTESIAN)  { 

for  (count  - 0;  count  < point_num;  count++) 

points [count] .x  - (short)  ( (xpoints [count]  - axis_xmin) 

* xscaler  * factor_x) ; 

} else  if  (x__ptr->axis_type  ■■  POLAR  &&  y_j>tr->axis_type  — POLAR)  { 

for  (count  - 0;  count  < point_num;  count ++)  { 

xpoint  - xpoints [count ] ; 
ypoint  - ypoints [count ] * (PI  / 180.0); 
points [count ] .x  - (short)  ((xpoint  * xscaler) 

* (float) cos ( (double)  ypoint  * yscaler)  +50.0  * factor_x); 
points [count ]. y - (short)  ((100.0  - (xpoint  * xscaler) 

* (float) sin ( (double)  ypoint  * yscaler)  +50.0)  * factor^ y) 


} 


} else  if  (x— ptr->axis_type  " LOGARITHMIC)  { 


/* 

* If  low  value  is  greater  than  the  high  value,  set  multiply  to  -1 

* so  that  while  processing  log  values  we  don't  take  the  sqrt  of  a 

* negative  number. 

*/ 


if  (axis_xmin  > axis_ xmax) 
xmultiply  - -1/ 

else 

xmultiply  - 1; 


for  (count  * 0;  count  < point_num;  count++) 

xpoints [count ] - xpoints [count ] * xmultiply; 

axis_ xmin  - axis_xmin  * xmultiply; 
axis_ xmax  - axis_xmax  * xmultiply; 


for  (count  - 0;  count  < point_num;  count ++)  { 

if  (xpoints [count ] — 0.0) 
xvalue  - 0.0; 

else 

xvalue  - (double)  xpoints [count ] - axis  xmin; 


} 


points [count] .x  - (short)  ((((float)  sqrt ( (double)  xvalue)) 

/ x_ptr->logval  * 100.0)  * factor_x) 


/* 

* 

*/ 


Calculate  the  y axis  coordinates 


if  (y_ptr->axis_type  — LOGARITHMIC)  { 

if  (axis_ymin  > axis_ymax) 
ymultiply  * -1; 

else 

ymultiply  - 1; 

for  (count  * 0;  count  < point_num;  count ++) 

ypoints [count]  - ypoints [count]  * ymultiply; 

axis_ymin  - axis_ymin  * ymultiply; 
axis— ymax  * axis_ymax  * ymultiply; 

for  (count  - 0;  count  < point_num;  count++)  { 

if  (ypoints [count ] — 0.0) 
yvalue  - 0.0; 

else 

yvalue  * (double)  ypoints [count ] - axis_ymin; 

points [count] .y  - (short) 

(100.0  - (((float)  sqrt ( (double)  yvalue)) 

^ / y_ptr->logval  * 100.0)  * factor_y) ; 

} else  if  (y_ptr->axis_type  — CARTESIAN)  { 
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for  (count  - 0;  count  < point_num;  count ++) 

points [count] .y  - (short)  ((100.0  - (ypoints [count]  - axis_ymin) 

* yscaler)  * factor_y) ; 

) 


/* 

* Draw  the  nominal/ limit  line 
*/ 

if  (point_num  > 0) 

XDrawLines (xdisplay,  xwindow,  gc, 

points,  point_num,  CoordModeOrigin) ; 

/* 

* If  line  type  is  coEfficient,  calculate  the  vertices  of  the 

* nominal/ limit  line  and  draw  the  line. 

*/ 


) else  if  (line_ptr->line_def  --  'E')  { 

yscaler  - fabs<100.0  / (axis_ymax  - axis_ymin) ) ; 
xscaler  - f abs ( (axis_xmax  - axis_xmin)  / 100.0); 


/* 

* 

*/ 


/* 

★ 

*/ 


/* 

★ 

*/ 


Convert  the  coefficients  from  string  to  double 


for  (count  - 0;  count  < polyn_num;  count++) 

sscanf  (line_ptr->coef f [count] , "%lf ",  ficoeff s [count] ) ; 


Calculate  the  points  along  the  line  varying  x from  0 to  100 


if  (x_ptr->axis_type  --  CARTESIAN) 

for  (count  ■ 0;  count  <•  100;  count++) 
xpoints [count]  - (float)  count; 

else  if  (x_jptr->axis__type  “ LOGARITHMIC)  ( 

for  (count  * 0;  count  <•  100;  count++)  { 
xpoints [count ] - (short)  count; 

xpoints [count]  - ((float)  sqrt ( (double)  xpoints [count ]) ) 

/ 10.0  * 100.0; 


> 


Calculate  y axis  points  for  coefficent  line 


if  (yjptr->axis_type  “ CARTESIAN)  { 

if  (axis_ymin  > axis_ymax) 
axis_ ylow  - axis_ymax; 

else 

axis_ylow  * axis_ymin; 

' if  (axis_xmin  > axis_xmax) 
axis  xlow  - axis  xmax; 


else 

axis_xlow  * axis_xmin; 
if  (axis_xmin  > axis_xmax)  { 

if  (axis_ymin  > axia_ymax)  { 

for  (count  » 0;  count  <*  100;  count ++)  { 

ypoints [ 100  - count]  - (axis_ymin  - axis_ymax 
- add_jpt  (xscaler  * xpoints  [count  ] 

+ (float)  axis_xlow,  coeffs,  polyn_num) ) 
* yscaler; 


} else  { 

for  (count  - 0;  count  <«  100;  count++)  { 
ypoints [100  - count]  - 

(add_pt (xscaler  * xpoints [count ] 

+ (float)  axis_xlow,  coeffs,  polyn_num) 
- (float)  axisylow)  * yscaler; 


) 


} else  { 


if  (axis_ymin  > axis_ ymax)  { 


for  (count  -0;  count  <-  100;  count++)  { 

ypoints [count]  - <axis_ ymin  - axis_ymax  - 
add_j>t  (xscaler  * xpoints  [count] 

+ (float)  axis_xlow,  coeffs,  polyn_num) ) 
* yscaler; 

) 

} else  ( 


for 


) 


(count  - 0;  count  <•  100;  count ++)  { 
ypoints [count ] - 

(add_pt (xscaler  * xpoints [count] 
+ (float)  axis_xlow,  coeffs, 
- (float)  axis_ ylow)  * yscaler; 


polyn_num) 


} 


} 

) else  if  (y_ptr->axis_type  — LOGARITHMIC)  { 

if  (axis_ymin  > axis_ ymax) 
axis_ylow  - axis— ymax; 

else 

axis_ylow  - axis__ymin; 

if  (axis_xmin  > axis_xmax) 
axis_xlow  - axis_xmax; 

else 

axis_xlow  - axis_xmin; 
if  (axis_xmin  > axis_xmax)  { 


if  (axis_ymin  > axis_ymax)  { 

for  (count  - 0;  count  <■  100;  count++)  { 

ypoints [100  - count]  - (axi3_ymin  - axis_ymax 

- add_pt (xscaler  * xpoints [count] 

+ (float)  axis_xlow,  coeffs,  polyn_num) ) 

* yscaler; 

if  ( (ypoints [100  - count]  - axis_ylow)  < 0.0) 
ypoints [100  - count]  m -1.0; 
else  [ 

sqrtval  - (float) 

sqrt ( (double)  ypoints [100-count]  - axis_ylow) ; 

ypoints [100  - count]  - sqrtval  / 10.0  * 100.0; 

} 

} 

} else  { 

for  (count  “ 0;  count  <m  100;  count++)  { 

ypoints [100  - count]  ■ 

(add_pt (xscaler  * xpoints [count] 

+ (float)  axis_xlow,  coeffs,  polyn_num) 

- (float)  axis_ylow) 

* yscaler; 

if  ( (ypoints [100  - count]  - axis _ylow)  < 0.0) 
ypoints [100  - count]  - -1.0; 
else  { 

sqrtval  * (float) 

sqrt ( (double)  ypoints [100-count]  - axis_ylow) ; 
ypoints[100  - count]  - sqrtval  / 10.0  * 100.0; 

) 


» 

} else  ( 

if  (axis_ymin  > axis_ymax)  ( 

for  (count  » 0;  count  <■  100;  count ++)  [ 

ypoints  [count]  * (axis_ymin  - axis_ytnax 

- add_pt (xscaler  * xpoints [count] 

+ (float)  axis_xlow,  coeffs,  polyn_num) ) 
* yscaler; 

if  ( (ypoints [count]  - axis_ylow)  < 0.0) 
ypoints [count]  - -1.0; 

else  ( 

sqrtval  - (float)  sqrt ( (double)  ypoints [count] 

- axis_ylow) ; 

ypoints [count]  “ sqrtval  / 10.0  * 100.0; 

) 


} 


) else  { 
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for  (count  - 0;  count  <-  100;  count++)  { 

ypoints [count]  - (add_pt (xscaler  * xpointa [count] 

+ (float)  axia_xlow,  coeffa,  polyn_num) 
- (float)  axia _^ylow)  * yacaler; 


if  ( (ypointa [count]  - axis_ylow)  < 0.0) 
ypoints [count]  - -1.0; 
elae  { 

sqrtval  - (float)  aqrt ( (double)  ypoints [count] 

- axis_ylow) ; 

ypointa [count]  - aqrtval  / 10.0  * 100.0; 

} 


) 


) 


} 


) 


/* 

* Transform  the  points  to  pixel  coordinates 
*/ 

for  (count-0;  count  <-  100;  count ++)  { 

points [count] .x  - (short)  (xpointa [count]  * factor_x) ; 

points [count] .y  - (short)  ((100.0  - ypointa [count] ) * factor_y) ; 

/* 

* Draw  the  line.  There  are  101  points  since  the  limit  line  is 

* formed  from  a function  varying  x from  0..100. 

*/ 


if  (polyn_num  > 0) 

XDrawLines (xdisplay,  xwindow,  gc,  points,  101,  CoordModeOrigin) ; 


) 


} 


return; 
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/■n,***** ************** ********** **************************************** ******* 

* MODULE  NAME:  limit_val.c 

★ 

* This  function  verifies  a limit  value  in  scientific  notation. 

★ 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* K.  Noonan  - Ford  Aerospace  Corporation/Houston 

it 

it 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

I,*****************************************************************************/ 


# include  <const.h> 
♦include  <wex/EXmsg.h> 


int  limit_val  ( limit  ) 

char  limit(15]; 

{ 

short  if 

j t 

decimal; 

/* 

* If  limit  is  null,  consider  it  valid 
*/ 

if  ( limit  [0]  — 0 ) 
return  ( YES  ) ; 

i - 0; 

/* 

* First  character  may  be  "+"  or 
*/ 

if  ( ( limit [i]  --  '+'  ) II  ( limit [i]  --  ) ) ( 

i++; 

/* 

* If  first  character  is  a sign,  the  next  character  must  be  a digit 
*/ 

if  ( ( limit [i]  >-  '0'  ) 44  ( limit [i]  <-  '9'  ) ) 
i++; 

else 

return  ( NO  );/*  exit  with  invalid  code  */ 

> 

/* 

* Search  for  digits  or  decimal  point  until  possible  "E"  is  reached 
*/ 


while  ( ( ( limitti]  >-  '0'  ) &4  ( limit[i]  O ' 9'  ) ) II  ( ( limit[i] 


' ) ) ) 
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i++; 

/* 

* Now  make  sure  there  is  a decimal  point  before  the  "E" 
*/ 


decimal  - 0; 

for  { j - 0;  j < i;  j++  ) { 

if  ( limit [ j]  ~ ' . ' ) 

decimal++;/*  count  the  number  of  decimal  points  */ 

} 

/* 

* Make  sure  there  is  only  one  decimal  point 
*/ 

if  { decimal  !-  1 ) 

return  ( NO  );/*  exit  with  invalid  code  */ 

if  < { limit [i]  --  'E'  ) ||  ( limit [i]  — fe'  ) ) 

limit [i]  * 'E';/*  force  "e"  to  upper  case  */ 

else 

return  ( NO  );/*  if  not  an  "E"  call  it  invalid  */ 

/* 

* A digit  must  precede  the  "Ew  to  be  valid 
*/ 

if  ( [ ( limit [i  - 1]  >-  r0'  ) &&  ( limit [i  - 1]  <-  f 9'  ) ) 
return  ( NO  );/*  exit  with  invalid  code  */ 

/* 

* A sign  followed  by  two  digits  must  follow  the  "E"  to  be  valid 
*/ 


i++; 

if  ( ( limit  [i]  — ) ||  { limitfi]  — ) ) 

i++; 

else 

return  ( NO  );/*  if  not  a sign,  call  it  invalid  */ 

if  ( ( limit  [i]  >•  '0'  ) ( limit [i]  <-  '9'  ) && 

( limit  [i  + 1]  >-  '0r  ) &&  ( limit [i  + 1]  <-  '9'  ) ) 
i++; 

else 

return  { NO  ) ; 


/* 

it 

*/ 


Make  sure  next  character  is  a null  if  limit  is  less  than  14  characters 


i++; 

if  ( i < 14  ) { 

if  ( limit  [i]  — 0 ) 
return  ( YES  ) ; 

else 

return  ( NO  ) ; 

} else 

return  ( YES  ) ; 


* MODULE  NAME:  list_ files. c 


* 

★ This  function  builds  a list  of  limit  or  plot  files  and  allows  the  user  to 

★ turn  a plot/limit  file  on  or  off. 

★ 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* D.  Rice  - Ford  Aerospace  Corporation 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
***************★****★*********************************************************/ 


♦include  <X11/Intrinsic .h> 
♦include  <constants .h> 
♦include  <disp.h> 

♦include  <pf_key.h> 
♦include  <stdio . h> 

♦include  <wex/EXmsg.h> 

extern  Widget 
extern  struct  dm_shmemory 
extern  struct  file_info 
extern  struct  pfkey_defs 

Top? 

* Dm_Addr e s a ; 

*Di3p_Info; 

Current_Com; 

/*  ptr  to  file  information  */ 

/*  Current  command  structure  */ 

extern  int 

Num_plot, 

Num_limit; 

extern  char 

**Listjplot, 
**List  limit; 

int  list_f lies  ( limit_list,  hist_flag  ) 

int  limit_list, 

hist_f lag; 

struct  file_info  *d_info_ptr;  /*  ptr  to  file  information  */ 

short  error,  /*  return  function  value  */ 

i;  /*  index  counter  */ 

int  flag, 

nuinjiisps; 

char  *s,  *3 1 , 

**ptr, 

filename  [50] , 

*malloc  () ; 

D (printf ("START  list_f iles\n" ) ) ; 

/* 

* Call  read_files  to  read  the  directory  of  limit  or  plot  files. 

*/ 
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if  ( limit_list  &&  List_limit  “ NULL  I I 
! limit— list  &&  List_plot  “ NULL  ) { 

num__ disps  - read_files  ( limit_list  ) ; 


if  ( num_disps  " ERROR  ) 
return  ( ERROR  ) ; 
else  if  ( num_disps  ™ 0 ) 
if  ( limit_list  --  YES 
tui_msg  { M_WHITE, 

else 

tui_msg  ( M_WHITE, 
return  < 0 ) ; 

} 


{ 

) 

"No  Limit  Files  Found”  ) ; 
"No  Plot  Files  Found"  ) ; 


/* 

* Format  the  names  into  a list  of  character  strings. 

*/ 

d_info_ptr  - Disp_Info; 

ptr  - (char  **)malloc  ( num_disps  * sizeof  ( char  * ) ); 
for  ( i - 0;  i < num_disps;  i++  ) { 

*(ptr+i)  - malloc  ( 30  ) ; 

strcpy  ( * (ptr+i) , d_info_ptr->name  ) ; 

strcat  { * (ptr+i),  d_info_ptr->act_f lag  ); 
d_info_ptr++; 

) 

if  ( limit_list  ) { 

Num_ limit  - num_disps; 

List_limit  - ptr; 

} else  { 

List_plot  - ptr; 

Num^ plot  - num_ disps; 

) 

free  ( (char  *)Disp_Info  ); 

/* 

* Otherwise,  list  is  already  set  up,  so  set  (ptr)  to  the  right  list. 

V 

} else  { 

ptr  - ( limit_list  ) ? List_limit  : List_plot; 

num_di3ps  - ( limit_list  ) ? Num_ limit  : Num_plot; 

/* 

* If  the  history  table  parameter  is  set,  then  the  only  required  action  is  to  set 

* the  list  of  filenames.  In  this  case,  return  now. 

*/ 

if  ( hist_f lag  ) 
return  ( 0 ) ; 

/* 

* ^ Present  the  list  of  names  to  the  user  and  wait  for  a response. 

s * ( limit_list  ) ? "List  Limit  Files"  : "List  Plot  Files"; 

si  - ( limit_list  ) ? "Limit  Files"  : "Plot  Files"; 

flag  - tui_get_list  ( Top,  ptr,  num_disps,  filename,  s,  si,  1,  -1,  NULL,  0 ) ; 


/* 

* If  the  user  canceled  the  pop  up,  return. 


if  ( flag  — 0 ) 
return  ( 0 ) ; 
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* Remove  any  trailing  blanks  from  the  filename. 
*/ 


strncpy  ( Current_Com.disp_name,  filename,  8 ) ; 
if  ( s - index  ( Current_Com. disp_name,  ' 9 ) ) 

*s  - '\0'; 

else 

Current_Com.disp_name [8]  * '\0'; 


* Scan  the  list  for  a match.  If  none  found,  generate  a warning  and  return. 
*/ 

for  { i - 0;  i < numjdisps;  i++  ) { 

if  ( strncmp  ( *ptr,  filename,  DNAME_LEN  ) — 0 ) 
break; 
ptr++; 

} 

/* 

* Set  action  to  ON  or  OFF  based  on  the  selection  of  the  user. 

*/ 

if  ( flag  — 1 ) { 

if  ( limitJList  ) 

Current^ Com. func_no  “ LIM_GRP; 

else 

Current_ Com. func_no  - PLOT; 

} else  ( 

if  < limit_list  ) 

Current_Com. func_no  » LIM_GRP_OFF; 

else 

Current_Com.  func__no  - PLOT— OFF; 

) 

/* 

* Call  appropriate  function  to  initialize  the  limit  group  or  the  plot. 

*/ 


Current_Com.prompt_f lag  - NO; 
if  ( limit_list  ) 

error  - lim_grp  ( ) ; 

else 

error  - get_plot  ( ) ; 

if  ( error  !-  -1  ) { 

s - *ptr ; 
s +«  11; 

if  ( *s  — 'I'  ) 

strcpy  ( s,  "ACTIVE"  ); 

else 

Strcpy  ( 3 , "INACTIVE"  ); 

} 

/* 

* Normal  return. 

*/ 
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D (printf ("END  list_file3\n") ) ; 
return  ( 0 ) ; 

} 


★ MODULE  NAME:  main.c 


* 

★ This  function  is  the  main  controller  for  the  Display  Manager. 

* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* K.  Noonan  - Ford  Aerospace  Corporation 

* 


* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************/ 


♦include  <X11/Intrinsic .h> 
♦include  <Xll/StringDefs .h> 
♦include  <constants .h> 
♦include  <wex/EXmsg.h> 


extern  Widget 
extern  short 

Top; 

Dm_Halt; 

int  main  { argc 

, argv  ) 

int 

a rgc ; 

char 

< 

XEvent 

**argv; 

event; 

int 

error 

D (printf ("START  main\n") ) ; 

/* 

* Call  the  initialization  routine  to  initialize  shared  memory,  data  files,  and  all 

* other  initialization  not  concerned  with  graphics. 

*/ 

error  - init  ( ) ; 


/* 

* Initialize  the  X Toolkit  and  the  bulk  of  the  user  interface. 
*/ 


if  ( error  «-  0 ) 

error  m ui_init  ( argc,  argv  ) ; 

/* 

* If  no  error  occured  during  initialization,  then  loop  forever  processing  toolkit 

* events . 

*/ 

if  ( error  — — 0 ) ( 

Dm_Halt  - 0; 

while  ( Dm_Halt  --  0 ) { 

XtNextEvent  ( Sevent  ) ; 


} 


XtDispatchEvent  { &event  ) 


} 


Perform  all  necessary  cleanup. 


cleanup  ( ) ; 

D (printf  ("END  main\n")  ) ; 
exit  ( 0 ) ; 
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* MODULE  NAME:  new_disp.c 


* This  function  brings  up  the  DTE  emulator  task  or  a new 

* display.  If  a new  display  other  than  the  DTE  display  is  selected,  then 
h the  current  window  is  resized  to  the  size  of  the  window  specified  m the 

* display  definition  file.  A new  displayer  task  is  started,  if  one  hasn't 

* already  been  started  for  this  display  manager.  The  PF  key  file  for  this 

* display  is  read  in  also  if  one  exists. 

* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* K . Noonan  - Ford  Aerospace  Corporation 

★ 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

★ Mark  D.  Collier  - Software  Engineering  Section 

★ Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 
★★*****★**★**★*★★**★★★★**★***★***★******* *************************************/ 


♦include 
♦include 
♦include 
♦include 
♦include 
— ♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 


<stdio .h> 

<signal . h> 

<f cntl .h> 
<X11/Intrinsic .h> 
<Xm/Xm.h> 
<constants  * h> 
<disp.h> 
<DDdisp.h> 

<pf_key .h> 
<wex/EXmsg .h> 
<wex/EXexec . h> 
<wex/EXWEX.h> 
<wex/EXerror . h> 


extern 


extern 

extern 

extern 

extern 

extern 


Widget 


Top, 

Scrl_Win, 

Draw_Win, 


struct  dm_shmemory 
struct  data_ info 
struct  pfkey_defs 
struct  msid_ent 
struct  fg_f ile_header 


Pb_Pf  ; 

*Dm_Address 

*Dh_Address 

Current_Com 

*Msid; 

*Ff ile; 


extern  short 


extern  int 


Disp_Num, 
Pbi_Num, 
Good_Strm, 
Flt_Selected, 
Pixels [128] ; 


/*  display  number  of  this  task  */ 
/*  Number  of  Pbi' s in  the  display  */ 
/*  set  to  YES  if  data  type  is  valid  */ 
/*  Yes,  if  flight  and  data  type  input  */ 
/*  Display  Builder  to  Colormap  index  */ 


Pbi_Env_Id, 

Ms  id_num_lim, 
Ms  i d_num_ddd , 
Num_ht , 
Screen_color, 
errno; 


/*  Pbi  enviroment  id  for  this  display  */ 


/*  error  return  value  */ 


extern  char 
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Disp_Path [DNAME_LEN] , /*  display  path 

Pl0t_Path [DNAME_LEN] , 

**List_ht, 

* *Ms id_l i s t_ddd , 

**Msid_list  liiti; 


int  new_disp  ( ) 

( 

register  int  in- 


struct disp_info 
struct  shm_decom 
double 

int 

FILE 

char 


‘display;  /*  ptr  to  display  information 


*decom_buf fer; 

width, 

/* 

width  of  display 

height; 

/* 

height  of  display 

error  - 0, 

/* 

return  value  from  a function  call 

access. 

/* 

access  restriction  code 

pid; 

/* 

DTE  process  Id 

*fopen  ( ) , 

*fp; 

/* 

pointers  to  the  display  bg  file 

disp_fn [DNAME LEN+4];/*  display  name 


D (printf ("START  new_disp\n") ) ; 

/* 

* Search  the  display  information  table  in  the  Display  Manager  Shared  Memory  for  the 

* first  unused  slot.  The  entry  number  will  become  the  new  display's  number. 

*/ 


*/ 


*/ 

*/ 

*/ 

*/ 

*/ 


*/ 

*/ 


Disp_Num  - 0; 


/* 

* RLK  9/19/90  Commented  out  temporarily  until  all  code  can  handle  multiple  displays. 

* At  that  time,  make  lower-case,  non-global  disp_num,  need  to  setup 

* concept  of  "current  display" . 

while  (! found  &&  Disp_Num  < MAX_DISP)  { 

if  ( Dm_Address->display [Disp_Num] .disp_active  — NO  ) 
found  - YES; 

else 

Disp— Num++; 


if  ( ! found  ) { 

tui_msg  ( M_YELLOW,  "Number  of  maximum  displays  exceeded  in  this  workstation"  ) ; 
return  ( -1  ) ; 

} 

V 


/* 

★ 

*/ 


Get  the  process  Id  of  the  Display  Manager  associated  with  this  display 


if  ( ( Dm_Address->dm_pid(Disp_Num]  - getpid  ( ) ) 
tui_msg  ( M_YELLOW,  "Error  %d  in  getpid  call". 


— -1  ) 
errno  ) ; 


/* 

* ^ flight  has  been  selected  and  the  event  trigger  file  has  not 


* V4i V 

? W": 
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been  read  by  the  Data  Handler,  signal  the  Data  Handler  to  read 
the  event  trigger  file  and  wait  for  an  acknowledgement. 


*/ 


if  (Fit  Selected  -«  YES  &&  Dm_Address->process .dh_ack_evnt  — N 
— Dm_Addre33->process .dh_evnt  !*  YES)  { 
Dm_Addre33->proces3 .dh_num  - Disp_Num; 

Dm_Address->proce33 .dh_evnt  ” YES; 

error  - chk_flg  ( &Dm_Address->process .dh_ack_evnt,  5,  1 ); 


if  (error)  { , , , , 

tui  msg(M  YELLOW, "Data  Handler  not  able  to  process  initialization  files") 

Dm_Address->process .dh_ack_evnt  - YES; 

Dm_Address->proces3 .dh_evnt  - NO; 


* If  the  DTE  emulator  was  selected  to  be  started,  then  call  EXexec  to  start 

* the  DTE  task.  If  an  error  occurs,  then  advise. 

*/ 


if  ( ( strcmp  ( Current_Com.disp_name,  "DTE  DISPLAY"  ) --  0 ) II 

( strcmp  ( Current_Com.disp_name,  ”/WEX/Exec/FCdte"  ) — ■ 0 ) II 
( strcmp  ( Current_Com.disp_name,  "FCdte"  ) “ 0 ) ) { 

if  ( ( pid  » fork  ( ) ) -•  0 ) { 

execl  ( "/WEX/Exec/FCdte",  "FCdte",  0 ); 
exit  ( ) ; 

) 

if  ( pid  --  -1  ) < 

tui_msg  ( M_YELLOW,  "Unable  to  start  DTE  Emulator  task"  ) ; 
return  ( -1  ) ; 

) else  { 

return  ( 1 ) ; 

) 

} 


/* 

* Generate  the  path  name  of  the  display.  If  the  display  name  in  the  current 

* command  structure  already  has  a path  name  ( if  it  contains  a "/"  ) , then 

* copy  the  display  name  into  the  display  information  in  shared  memory  and 

* into  a local  variable.  If  no  path  name,  copy  the  display  path  name  from 

* globals  and  add  the  display  name.  Store  the  name  into  shared  memory.  For 

* the  display  name  to  be  used  in  reading  the  background  file,  add  the  ".bg" 

* extension. 

*/ 


display  - 4Dm_Address->display [Disp_Num] ; 


if  ( Current_Com.disp_name [0]  !-  '/'  ) ( 

strcpy  ( disp_fn,  Disp_Path  ) ; 
strcat  ( disp_fn,  Current_Com.disp_name  ); 
strcpy  ( display->display_name,  disp_fn  ) ; 

} else  { 

strcpy  ( display->display_name,  Current_Com.disp_name 
strcpy  ( disp_fn,  Current_Com.disp_name  ); 


) ; 


strncat  ( disp_fn,  ".bg\0",  4 ); 


/* 

* Read  the  background  table  for  the  display  size  and  the  access  restriction 

* flag.  Then  close  the  file. 
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if  ( ( fp  - fopen  ( disp_fn,  "r"  ) ) -■  NULL  ) { 

tui_msg  ( M_YELLOW,  "Error  %d  on  open  of  <%s>",  errno,  disp_fn  ) ; 
return  ( -1  ) ; 

} 

fscanf  ( fp,  "%*53c"  ) ; 
fscanf  ( fp,  "%lf",  £width  ); 
fscanf  ( fp,  "%lf",  ^height  ) ; 
fscanf  ( fp,  "Id”,  &Screen_color  ) ; 

Screen_color  - Pixels [Screen_color] ; 
fscanf  ( fp,  "%*15c"  ) ; 
fscanf  ( fp,  "%d”,  &access  ); 
fclose  ( fp  ) ; 


/* 

* Check  the  access  restriction  code  to  see  if  the  display  is  either  a 

* Medical  or  Payload  restricted  display.  If  the  display  is  access 

* restricted  and  the  position  Id  does  not  match  the  access  restriction,  then 

* exit  out  of  this  routine. 

*/ 


if  ( chk_res  { access,  display->pos_id  ) ) 
return  ( -1  ) ; 

/* 

* Set  flags  for  the  data  and  display  handler. 
*/ 


display->dh_disp_init  - NO; 
display->dh_new_disp  - YES; 
display->dispjpause  - NO; 
display->new_display  - YES; 


/* 

* Initialize  the  new  display 
*/ 


init_disp  ( Disp_Num  ) ; 

/* 

* Set  the  menu  item  which  allows  the  display  to  be  paused/restarted  to  PAUSE,  as 

* the  new  display  will  be  active. 

*/ 


set_label  ( Pb_Pf , "Freeze  Display"  ) ; 


/* 

★ 

*/ 


Check  the  initialization  flag  to  insure  the  data  handler  has  properly  initialized. 


error  - chk_flg  ( &display->dh_disp_init,  100,  1 ); 
if  ( error  ) { 

tui_msg  { M_YELLOW,  "Data  Handler  not  initialized  to  new  display"  ) ; 
display->clear  - YES; 
clear  ( Disp_Num  ) ; 
return  ( -1  ) ; 

} 


/* 

* Read  the  function  keys. 
*/ 
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read_pf  ( NO,  display->display_name  ) ; 
di3play->active_di3play  - YES; 


* Build  a list  of  the  MSID's  available  for  updating  limits.  Note  that  only  MSID' s with 

* a type  of  'D',  'E',  or  'F'  are  valid  for  limit  sensing. 

*/ 

if  ( ( Msid  list_lim  - (char  **)malloc  ( Ff ile->Entry_Num  * sizeof  ( char  * ) ) ) 

— NULL  T { 

tui_msg  ( M_YELLOW,  "Could  not  allocate  memory  for  list"  ) ; 
return  ( -1  ) ; 

} 

decom_buf fer  - (struct  shm_decom  *) ((char  *) Dh_Address  + Dh_Address->decom_buf ) ; 
Msid_num_lim  - 0; 

for  ( i - 0;  i < Ff ile->Entry_Num;  i++  ) 

if  ( (decom_buf fer+i) ->attribute  --  'D'  II  (decom_buf fer+i) ->attribute  ««  'E'  || 

(decom_buf fer+i) ->attribute  ' B'  ) { 

* (Msid_list_lim+Msid_num_lim)  - (Msid+i) ->MSID; 

Ms id_num_lim++ ; 

) 

/* 

* Build  a list  of  the  MSID's  available  for  updating  DDD  status.  Note  that  I am  assuming 

* that  the  only  DDD  MSIDs  are  ones  with  either  ddd  flag  set. 

*/ 

if  ( ( Msid_list_ddd  - (char  **)malloc  ( Ff ile->Entry_Num  * sizeof  ( char  * ) ) ) 

— NULL  ) ( 

tui_msg  { M_YELLOW,  "Could  not  allocate  memory  for  list"  ) ; 
return  ( -1  ) ; 

} 

Msid_num_ddd  - 0; 

for  ( i - 0;  i < Ff ile— >Ent ry_Num;  i++  ) 

if  ( (Msid+i) ->dddO_latch  II  (Msid+i) ->dddl_latch  ) { 

* (Msid_list_ddd+Msid_num_ddd)  ■ (Msid+i) ->MSID; 

Ms id_num_ddd++ ; 

) 


/* 

* Set  the  number  of  limit  files  for  history  tables  to  zero. 
*/ 


if  ( List_ht  ) 

free  ( List_ht  ) ; 
Num  ht  - 0; 


/* 

* Read  the  foreground  file  to  see  if  any  PBI's  are  present 

* and  call  a routine  to  set  up  the  newest  pbi  environment. 

*/ 

if  ( read_pbi  ( ) ) 

return  ( -1  ) ; 

if  ( Pbi_Num  > 0 ) { 

Pbi_Env_Id  « pbi_setup  ( Dm_Address->display [Disp_Num] .flight_id, 

Dm_Address->display [Disp_Num] .strm_type  ) ; 

if  ( Pbi_Env_Id  < 1 ) { 

Pbi_Num  - 0; 

tui_msg  ( M_YELLOW,  "Error  %d  on  PBI  Environment  Init",  errno  ) ; 


) 


HII  new_disp.c 

) 

D(printf ("END  new_disp\n" ) ) ; 
return  ( 0 ) ; 
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* MODULE  NAME:  org_file.c 


* 

* This  function  checks  for  the  existance  of  a plot  data  file  (.pdt). 

* If  one  exists,  it  is  opened  and  the  header  and  decom  information  is 

* read.  All  data  points  are  then  plotted  to  initialize  the  plot. 


* Because  all  displays  on  a single  workstation  will  use  the  same  set  of 

* plot  data  files,  when  a display  is  started  containing  a plot,  it  is 

* possible  that  another  display  on  the  same  workstation  is  also  plotting 

* the  same  data.  If  so,  the  plot  shown  in  the  new  display  must  be  origined. 


* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Tod  Milam  - Ford  Aeroapace  Corporation/Houston 

* 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************/ 


♦include  <stdio.h> 
♦include  <X11/Xlib.h> 
♦include  <fcntl.h> 
♦include  <constants . h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 
♦include  <DDplot.h> 
♦include  <wex/EXmsg . h> 


extern 

struct 

dm_shmemory  *Dm_ Address ; 

/* 

ptr  to  DM  shared  memory 

*/ 

extern 

short 

End_of_f ile; 

/* 

plot  data  file  EOF  flag 

*/ 

extern 

int 

errno; 

/* 

system  error  return  value 

*/ 

org_ f ile  (disp_num,  plot__ptr) 


short 

disp_num; 

/* 

effective  display  number 

*/ 

struct 

plot_j?trs  *plot_ptr; 

/* 

ptr  to  effective  plot  record 

*/ 

char 

*malloc ( ) ; 

/* 

get 

malloc  as  a pointer 

*/ 

struct 

s hm_de  com  * dec  omjp  t r ; 

/* 

ptr 

thru  plot  decom  structure 

*/ 

struct 

plot__hdr  *plot_hdr_ptr; 

/* 

ptr 

thru  plot  header 

*/ 

int 

jf  m. 

/* 

loop  count  variables 

*/ 

next_ of f set , 

/* 

♦ bytes  for  offset  cal. 

*/ 

plot_fp; 

/* 

local  plot  file  pointer 

*/ 

short 

match; 

char 

plot_name  [DNAME_LEN  +5]; 

/* 

plot  data  file  name 

*/ 

D (print f ("START  org_file\n") ) ; 
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j - 0; 
match  * NO; 

/* 

* Copy  plot  name  from  memory  and  store  into  local  variable. 

*/ 

strcpy  (plot_name,  plot _jptr->plot_name)  ; 

/* 

* Check  to  be  sure  plot  is  not  already  active 
*/ 

while  < (match  ~ NO)  &&  {j  < MAX_PLOTS))  { 

if  ( (strcn^(Dm-Address->plots.act_plots [ j] , plot_name) ) — 0) 
match  - YES; 

j++; 


/* 

* If  plot  is  not  active,  open  the  plot  data  file 

* and  read  the  header  and  decom  information. 

*/ 

if  (match  NO)  { 

/* 

* Open  plot  data  file  and  read  decom  buffer 
*/ 

strcpy (plot_name,  plot_ptr->plot_data_f ile)  ; 
strcat <plot_name,  " ,pdt") ; 

plot_ptr->plot_fp  - open  <plot_name,  0_RD0NLY) ; 

if  (plot_ptr->plot_fp  !-  INVALID)  { 
plot_fp  - plot_ptr->plot_fp; 

/* 

* Skip  over  decom  buffer  header  and  read 

* decom  buffer  to  memory. 

*/ 

lseek (plot_fp,  80,  0); 
decom_ptr  - plot— ptr->plt_decom; 
plot_hdr_ ptr  - plot_ptr->header ; 
plot_ptr->buf_size  - 0; 
next_offset  - 0; 

for  (m  ■ 0;  m < plot_hdr j>tr->msid_num;  m++)  { 

read  (plot_fp,  &decom__ptr->size,  sizeof  (int)  ) ; 
read(plot_fp,  &decom_jDtr->length,  sizeof  (int) ) ; 
read(plot_fp,  &decom_ptr->num_samps,  sizeof (short) ) ; 
read (plot_fp,  &decom_ptr->attribute,  sizeof (char) ) ; 
read (plot_fp,  &decom_jDtr->error,  sizeof  (char)  ) ; 
lseek (plot_fp,  12,  1)  ; 

#ifdef  FAC 

if  <decom_ptr->error  !-  NULL)  { 
decom_pt r->num_samps  - 1; 
decom_ptr->length  - 4; 

} 


tendif 
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★ Calculate  sample  size,  offset,  and  buffer  size 

* then  store  into  memory. 

*/ 


decom_ptr->sample_size  - decom^ ptr->size  / decom _ptr->num_samps ; 
plot_ptr->buf_ size  - plot_ptr->buf_size  + 2 

+ decom_jptr->size; 

decom_ptr->of f set  * next_of f set ; 

next_offset  - decom_j>tr->size  + decom_ptr->of f set  + 2; 
decom__ptr++; 


/* 

★ Allocate  space  for  data  buffer,  and  check  for  error. 

*/ 


plot_ptr->plot_data  - malloc  (plot_ptr->buf_size)  ; 

if  (plot_pt  r->plot_data  “ NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  creating  data  buffer  space",  errno 
return  (-1) ; 

) 


/* 

★ 

*/ 


/* 

★ 

★ 

★ 

★ 


V 


/* 

★ 

★ 

★ 


*/ 


Initialize  seconds  elapsed  time  flag  (used  for  time  plot  only) 


plot_ptr->seconds— elapsed  - 0; 


Initialize  end_of_file  flag  and  call  proc_plt()  to  plot 
data  points.  Continue  calls  to  proc_plt()  until  EOF,  signalling 
all  data  points  plotted.  Check  for  EOF  necessary  since 
proc_plt ( ) and  subordinate  plot_ msidO  may  exit  prematurely  due 
to  an  out-of-scale  data  point. 


End_of_file  - NO; 

while  (End_of_file  ~ NO) 

proc_plt  (disp_num,  plot— ptr)  ; 


Set  previous  active  plot  flag  in  memory  and  free  memory 
of  plot  data  buffer  once  data  file  has  reach  the  end  of 
the  file. 


plot_ptr->prev_ act_f lg  - YES; 
free (plot_ptr->plot_data) ; 

} /*  end  chk  on  data  file  open  */ 

} /*  end  on  match  is  NO  */ 

return  (0) ; 


} 
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/****************************************************************************** 

* MODULE  NAME:  p_atimei.c 

★ 

* This  function  converts  a time  string  to  the  corresponding  number  of  sec- 

* onds . 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Tod  Milam  - Ford  Aerospace  Corporation/Houston 

* 

★ 

♦ MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
****************************************************************************** 


♦include  <stdio.h> 
♦include  <math.h> 
♦include  <string.h> 
♦include  <constants .h> 
♦include  <wex/EXmsg.h> 


p__atiroei 

( t_string  ) 

char 

t_string[15]  ; 

int 

length, 

secs, 

seconds, 

minutes, 

hours, 

days, 

i,  j, 

count, 
atoi  ( ) , 
strlen  ( ) ; 

char 

temp [5] ; 

short 

is_secs; 

double 

pow  ( ) ; 

temp[l]  - 

' \n' ; 

D(printf<" START  p atixnei\n")  ) ; 

/* 

* Check  to  see  if  the  input  string  is  all  seconds. 
*/ 

is__secs  - YES; 

length  - strlen  ( t_string  ) ; 
if  ( t_string [ length  - 3]  — 
is_secs  - NO; 
if  ( is__secs  ) 

seconds  - atoi  ( t^string  ) ; 


/* 


) 
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Figure  out  the  total  seconds  from  days,  hours,  minutes,  and  seconds. 


else  { 

Initialize  the  variables. 

secs  - days  * hours  - minutes  - count  - 0; 
Figure  out  how  many  seconds  are  in  the  time. 


i - length  - 1; 
count  » 0; 

while  ( i >-  0 &&  t_string[i]  ) { 

i — ; 

count ++; 

} 

if  < count  > 0 ) { 

for  ( j - 0;  j < count;  j++  ) 

temp [ j ] - t_string [ i + j + 1] ; 
temp [count]  - '\0'; 
secs  ■ atoi  ( temp  ) ; 

1 


Figure  out  how  many  minutes  are  in  the  time. 


count  ■ 0 ; 
i — ; 

while  ( i >-  0 &&  t_string[i]  ( 

i — ; 

count ++; 

) 

if  ( count  > 0 ) { 

for  ( j - 0;  j < count;  j++  ) 

tempt j]  - t_string[i  + j + 1] ; 
temp [count]  - '\0'; 
minutes  - atoi  ( temp  ) ; 

} 


Figure  out  how  many  hours  are  in  the  time. 


count  - 0; 
i — ; 

while  ( i >-  0 &&  t_string[i]  !-  9 ir  ) { 

i — ; 

count ++; 

} 

if  ( count  > 0 ) { 

for  ( j * 0;  j < count;  j++  ) 

temp[j]  * t_string[i  + j + 1]; 
temp [count]  - '\0'; 
hours  - atoi  ( temp  ) ; 

} 


Figure  out  how  many  days  are  in  the  time. 
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count  - 0 ; 
i — ; 

while  ( i >*  0 &&  t_string(i]  ) { 

i — ; 

count ++; 

} 

if  ( count  > 0 ) { 

for  ( j - 0;  j < count;  j++  ) 

temp[j]  - t_string[i  + j + 1]  ; 
temp [count]  - '\0'; 
days  - atoi  ( temp  ) ; 

} 


Calculate  the  total  number  of  seconds  using  days,  hours,  minutes  and  seconds 


hours  +-  days  * 24; 
minutes  +■  hours  * 60; 
secs  +-  minutes  * 60; 
seconds  * secs; 

} 

D (print f ("END  p_atimei\n") ) ; 
return  ( seconds  ) ; 
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* MODULE  NAME:  p_dataval.c 


★ 

★ 

* 

★ 

it 

★ 

★ 

* 

* 


This  function  retrieves  the  appropriate  union  data  type  of  the 
current  plot  value  based  on  the  parameter  attribute  for  plot_msid() . 


ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

Richard  Romeo  - Ford  Aerospace  Corporation/Houston 


* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 

a*****************************************************************************/ 


♦include  <stdio.h> 
♦include  <X11/Xlib.h> 
♦include  <wex/EXmsg.h> 
♦include  <sys/types .h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 


int  p_ dataval  (decom_j?tr) 

struct  shm_decom  *decomjptr; 

{ 

extern  union  p_data  Data;  /*  local  union  structure  for  p_data 


switch  (decomjptr->attribute)  { 


case  ('E'):  /*  single  precision  real  */ 

Data.ddata  - Data . sfdata [0] ; 
break; 


case  (9) : /*  binary  coded  decimal  tacan  range  */ 

case  (12) : /*  binary  coded  decimal  analog  variable  */ 

case  (14) : /*  binary  coded  hexadecimal  analog  var.  */ 

case  (16) : /*  bit  weighted  analog  variable  */ 

Data.ddata  » Data.uldata [0] ; 
break; 


case  (' F' ) : 
case  (2) : 
case  (3) : 
case  (4) : 


/*  integer  - signed  */ 

/*  integer  - signed  */ 

/*  integer  * no  compliment  */ 

/*  integer  - no  compliment  - overflow  bit  */ 


if  (decomjptr->length  " 16) 

Data.ddata  - Data . ssdata [0] ; 

else 

Data.ddata  * Data . sldata [0] ; 
break; 


case  ( 'B'):  /*  discrete  */ 

case  (24)  : /*  discrete  *f 

Data.ddata  - Data . sldata [0 ] ; 
break; 


*/ 
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case  ('P'):  /*  discrete  Parent  */ 

case  ('L'):  /*  natural  - unsigned  */ 

case  (5) : /*  natural  - unsigned  */ 

case  (6) : /*  discrete  Parent  */ 

if  (decom_ptr->length  o 32) 

Data.ddata  - Data . uldata [0] ; 
break; 

case  (1) : /*  real  */ 

if  (decom_j>tr->length  ««  16) 

Data.ddata  - Data .ssdata [0] ; 
else  if  (decomj>tr-> length  ••  32)  ; 

Data.ddata  - Data . sldata [0] ; 
break; 

case  (7) : 
case  (0)  : 
case  (10)  : 

Data.ddata 
break; 

case  (19) : /*  spacelab  floating  point  */ 

if  (decom_ptr->length  <-  32) 

Data.ddata  - Data. uldata [0] ; 
break; 

default : 
break; 


/*  binary  coded  decimal  - format  x */ 

/*  binary  coded  decimal  - format  y 
/*  binary  coded  decimal  GMT  - days/hrs  */ 
- Data.usdata[0] ; 


) 


) 


/*★★********★**★★* **************** 
* MODULE  NAME:  DMp_itimea.c 


p_itimea.c 


★ 

* This  function  converts  a time  value  expressed  in  seconds  to  an  ascii 

* string  containing  hours,  minutes,  and  seconds. 

* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Tod  Milam  - Ford  Aerospace  Corporation/Houston 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

a*****************************************************************************/ 


♦include  <stdio.h> 
♦include  <wex/EXmsg.h> 


void  p_itimea  ( time_int,  time_char  ) 
int  time_int; 

char  time  char[15]; 


{ 

int  days  - 0, 

hours  - 0, 
minutes  * 0, 
seconds  “ 0, 
total  - 0; 

D {print f { "START  p_itimea\n" ) ) ; 

/* 

* Break  out  the  seconds  into  parts. 
*/ 


total  - time_int; 

days  - ( int  ) ( total  / 86400  ) ; 

total  — 86400  * days; 

hours  - ( int  ) ( total  / 3600  ) ; 

total  — 3600  * hours; 

minutes  - { int  ) ( total  / 60  ) ; 

total  — 60  * minutes; 

seconds  - total; 

hours  +~  days  * 24; 


/* 

* Put  the  time  into  the  string. 
*/ 


if  ( hours  > 0 ) { 

sprintf  ( time_char,  "%3 . 3d: %2 . 2d: %2 .2d\0",  hours, 
minutes,  seconds  ) ; 
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} else 

sprintf  ( time_char,  "%2 . 2d: %2 . 2d\0",  minutes,  seconds  ); 

D (print f ("END  p_itimea\n" ) ) ; 
return; 


* MODULE  NAME:  parse_ cmd.c 


* 

★ This  routine  reads  a command  string  definition  and  assigns  a command 

* number  based  on  the  content  of  a command  line  string.  In  the  case  of 

* and  invalid  string  the  command  is  set  to  INVALID. 

★ 

★ ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* A.  Sprinkle  - Ford  Aerospace  Corporation 

* 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
********************************** * ****************************** **** ****** ***/ 


♦include  <stdio.h> 
♦include  <constants . h> 
♦include  <pf_key.h> 
♦include  <wex/EXmsg . h> 


♦define  TRUE  1 

♦define  FALSE  0 


int  parse_cmd  ( cmd_struct,  cmd_string,  cmd_string_length,  pbi_or_jpfkey,  version  ) 
struct  pfkey_ defs  *cmd_struct; 


char 

int 


*cmd_string; 

cmd_string_length, 

pbi_or_pfkey, 

version; 


static  char 


blank  char 


static  int  change_limits_args [4] [2] 

{0,  0), 

{5,  8 } , 

P,  12), 

{9,  16) 

In- 


struct { 

char  *string; 


) arg [20 ] ; 

/* 

char 

*local_cmd_string. 

/* 

real_src [ 4]  ; 

/* 

int 

a rg_num  - 0 , 

/* 

arg_pos [20] , 

/* 

argument  length [20] , 

/* 

blank  - OFF, 

/* 

comment  - OFF, 

/* 

critical  - 0, 

/* 

external_command  - 0, 

/* 

structure  to  handle  an  array  of  strings  */ 

local  copy  of  the  input  command  string  */ 
real  src  name  if  PPM  or  EVN  */ 

number  of  arguments  in  the  command  */ 

array  of  starting  positions  for  strings  */ 
array  of  argument  lengths  */ 

T/F  for  blank  being  the  prev  character  */ 
T/F  for  comment  on  */ 

position  for  critical  flag  in  the  string  */ 
flag  for  an  external  command  */ 


i, 

int_version, 

lower_limit_arg, 

min_oc_of  f set  - 

operational  - 0r 

second  joe , 

position  « 0, 

stringjposit ion 

upd_rate, 

uppe  r_l imi  t_a  r g , 

valid, 

len; 
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/*  loop  counter 


6, 

t*  pos.  for  operational  flag  in  the  string  */ 


/ * character  position  in  the  argument  */ 

” 0,  /*  pos.  in  the  input  string  */ 

/*  ten?)  storage  place  for  the  update  rate  */ 

/*  flag  for  various  validity  tests  */ 

/*  length  of  a string  */ 


D (printf ("START  parse_cmd\n" ) ) ; 
for  ( i - 0;  i < 20;  i++  ) 

arg(i] .string  - ( char  * ) calloc  ( 1,  120  ); 

arguxnent_length  [arg_num]  - 0; 

local_cmd_string  - ( char  * ) calloc  ( 1,  cmd_string_length  ) ; 
strncpy  ( local_cmd_string,  cmd_string,  cmd_string_length  ) ; 


Start  of  executable 


if  ( cmd_string_length  > C OMMAND_L I NE  ) ( 
cmd_struct->valid_f lag  - INVALID; 
return  ( INVALID  ) ; 

) 

arg_pos [0]  - 0; 
cmd_struct->defined  - YES; 
cmd_struct->valid_flag  - VALID; 

for  ( i - 0;  i < cmd_string_length;  i++  ) ( 


Extract  comments 


if  ( ( i < cmd_string_length  - 2 ) && 

( local_cmd_string [i]  --  ' - ' ) st 
( local_cmd_string[i  + 1]  — ( 

if  ( comment  — OFF  ) 
comment  - ON; 

else 

comment  - OFF; 

> 

Extract  the  arguments 

if  ( comment  — OFF  ) { 

if  ( local_cmd_string[i]  — blank_char  ) { 

Place  a null  at  the  end  of  the  argument 


if  ( ( blank 


OFF  ) &&  ( !external_command  ) ) ( 
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local_cmd_string [string_position]  * NULL; 

stringjjosition**; 

blank  - ON; 

) else  if  ( ( external_cornmand  ) &&  ( blank  -»  OFF  ) ) { 

arg [arg_num] . string [position]  - local_cmd_string [string jpos it ion] ; 
argument_length  [arg_num]  +4*; 
st ring_position++ ; 
position**; 

} 

} else  { 


/* 

★ If  blank  is  on,  start  a new  argument 

*/ 


if  ( blank  — ON  ) { 

arg__num+*; 

argjjos  [arg_num]  - string_position; 
argument_length  [arg_num]  - Op- 
position - 0; 

if  { { ( arg_num  — 1 ) && 


( local_cmd_3tring [0] 

— 'u' 

) 

&& 

( local_cmd_3tring  [1] 
( { arg_num  — 1 ) && 

--  'n' 

) 

) 1 1 

( local_cmd_st  ring  [ 0 ] 

— 'm' 

) 

£& 

( local_cmd_string  [1] 

— * 3f 

) 

) ) { 

external  command  - TRUE; 


} 

blank  - OFF; 

} 

/* 

* Add  a character  to  the  present  argument 

*/ 


arg[arg_num] . string [posit ion]  - local_cmd_3tring [string_jposition]  ; 

argument_length  [arg_num]  ++; 

string__position++; 

position**; 


} 


} 


} 


/* 

* If  the  command  is  an  external  command 
*/ 


if  ( external_command  ) ( 

cmd_struct->mesg_ptr  - ( char  * ) calloc  { 1,  argument_length [arg_num]  ); 
strncpy  ( cmd_st ruct->mesg_jDtrf  arg [arg_num] . string,  argument_length [arg_num]  ); 


} 


/* 
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* If  the  command  requests  for  a prompt 
*/ 

if  { ( ( cmd_string  [arg_pos  [arg_num]  ] — 'p'  ) || 

( cmd_string [arg_pos [arg_num] ] — 'p'  ) ) && 
( argument^ length  [arg_num]  " 1 ) ) { 

cmd_3truct->prompt_f  lag  - YES; 
arg^num — ; 

} 

/* 

* Switch  on  the  first  letter  of  the  command  string 
*/ 


cmd_struct->valid_f lag  - VALID; 
switch  { arg[0] .string [0]  ) { 


/* 

* Ac  can  be  change  group,  change  limits  or  clear  display 

V 


case  ' c' : 

switch  ( arg[0] .string[l]  ) { 
case  'g' : 

if  ( arg_num  — 2 ) { 

if  ( strcmp  ( arg [2] . string,  "on*  ) — 0 ) { 

cmd_struct->action  - ON; 
cmd_struct->func_no  - LIMJ3RP; 

) else  if  ( strcmp  ( arg [2] .string,  "off"  ) — 0 ) { 
cmd_struct->action  - OFF; 
cmd_struct->func_no  - L IM__GRP_OFF ; 

} else  { 

cmd_struct->def  ined  - YES; 
cmd_struet->valid_f lag  - INVALID; 


} 

valid  - val_fn  ( arg[l] .string,  YES  ); 
if  ( valid  ) 

strcpy  ( cmd_3truct->disp_name,  arg[l] .string  ); 

else 

cmd_struct->valid_flag  - INVALID; 

} else 

cmd_struct->valid_f lag  - INVALID; 
break; 
case  ' h' : 


if  ( arg_num  ~ 0 ) 

cmd_struct->func_no  - LIM_MENU; 
else  { 

cmd_3truct->limit_change.ol_alrm  * NO; 
cmd_struct->limit_change.ol_adv  - NO; 


/* 

* 

*/ 
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cmd_struct->lim±t— change . oh_alrm  - NO; 
cmd_struct->limit_change.oh_adv  - NO; 

cmd_struct->limit— change . cl_alrm  “ NO; 
cmd— st ruct->limit— change . cl_adv  ■ NO; 

cmd_struct->limit_change .ch_alrm  - NO; 
cnui_struct->limit_change.ch_adv  - NO; 

if  ( version  > 3 ) 
int_version  - 3; 

else 

int_ver3ion  * version; 

if  ( strlen  ( arg[l] .string  ) <■  MSID_LENGTH  ) 

gtrcpy  { cmd  st met — ^limit change .insid/  arg[l]  .string  ) ; 

else 

cmd_struct->valid_f lag  * INVALID; 

if  ( { arg_num  — change_limits_args [int_version] [0 ] ) II 

( arg_num  " change_limits_args  [int_version]  [ 1]  ) ) { 

valid  - val_src  ( arg  [2]  . string,  real_src  ); 
if  ( valid  ~ NO  ) { 

tui  msg  ( M_YELLOW,  "Invalid  data  source  %s",  arg [2 ]. string  ); 
cmd_struct->valid_f lag  ■ INVALID; 

} else  { 

cmd_s t rue t->func_no  ■ CHG_LIM; 
if  ( ( stremp  ( real_src,  "PPM*"  ) " 0 ) II 
( stremp  ( real_src,  "EVN"  ) — 0 ) ) { 

strepy  ( cnvd_struct->limit_ change. sre,  real_src  ); 
strepy  ( cmd_struct->limit_change.  option,  arg [2] . string  ); 
} else  { 

strepy  { crnd_struct->limit_change.src,  arg [2] . string  ); 
cmd_s true t->limit_change .option [0]  - 0 ; 

} 

if  { arg[3] .stringtO]  — 'O'  ) 
operational  - 3; 

else  if  ( arg [3] * string [0]  — 'C'  ) 
critical  - 3; 

else 

cmd_struct->valid_f lag  - INVALID; 

if  ( arg_num  — change_limits_args  [int_version]  [ 1]  ) { 

second_oc  - min_oc_of f set  + int_version  *2-2; 

if  ( arg [second_oc] .string [0]  — 'O'  ) 

operational  * second_oc; 
else  if  { arg [second—oc] . string [0 ] “ 'C'  ) 
critical  - second_oc; 

else 

cmd_struct->valid_f lag  ■ INVALID; 

} 

Set  up  operational  lower  limits 


if  ( operational  > 0 ) { 

lower_limit_arg  - operational  + 1; 
upper_limit_arg  ■ operational  + 1 + int_version; 


/* 

* 

*/ 


/* 

* 

*/ 
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if  ( limit_val  ( arg[lower_limit_arg] .string  ) ) { 
sscanf  ( arg [lower_limit_arg] . string,  "%lf", 
fi(  cmd_struct->limit_change.ops_ll  ) ); 
cmd_struct->valid_f lag  - VALID; 


Set  up  operational  upper  limits 


if  ( limit val  ( arg [upper_limit arg] .string  ) ) { 

sscanf  ( arg [upper_limit_arg] .string,  "%lf", 

&{  cmd_struct->limit_change.ops_ul  ) ); 
cmd_struct->valid_f lag  - VALID; 


Set  up  advisory  and  alarm  flags 


if  < int_version  >-  2 ) { 

if  ( ( arg [ lower_limit_arg  + l].string[0]  --  ) || 

( arg[lower_limit_arg  + 1] . string [0]  — ' y'  ) ) 
cmd_struct->limit_change.ol_alrm  - 1; 

else 

cmd_struct->limit_change.ol_alrm  - 0; 

if  ( ( arg [upper^imit^arg  + 1]  .string[0]  ««  ' y»  ) | | 

( arg [upper_limit_arg  + l].string[0]  'y'  ) ) 
cmd_struct->limit_change.oh_alrm  - 1; 

else 

cmd_struct->limit_change.oh_alrm  - 0; 
if  ( int_version  >■  3 ) { 

if  ( { arg  [ lower_limit_arg  + 2]  .string[0]  «««  * Y'  ) | | 
( arg[lower_limit_arg  + 2].string[0]  --  ' y'  ) ) 
cmd_struct->limit_change.ol  adv  - l; 

else 

cmd_struct->limit_change.ol_adv  - 0; 

if  ( ( arg [upper_limit_arg  + 2] .string[0]  » 'y*  ) || 
( arg [upper_limit_arg  + 2].string[0]  — 'y'  ) ) 
cmd_struct->limit_change.oh  adv  - 1; 

else 

cmd_struct->limit_change.oh_adv  - 0; 


/* 

★ 

*! 


/* 


> 

) 

Assign  critical  lower  limits 


if  ( critical  > 0 ) { 

lower_limit_arg  - critical  + 1; 
upper_limit_arg  - critical  + 1 + int_version; 

if  ( limit_val  ( arg [lower_limit_arg] .string  ) ) { 
sscanf  ( arg [ lower_limit_arg] .string,  "%lf", 

4(  cmd_struct->limit_change.crit_ll  ) ); 
cmd_struct->valid  flag  » VALID; 

) 


/* 

* 

*/ 
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Assign  critical  upper  limits 


if  ( limit_val  ( arg [upper_limit_arg] . string  ) ) ( 

sscanf  < arg [upper_limit_arg] . string,  "Ilf”, 

& { cmd_struct->limit_change.crit_ul  ) ); 
cmd_struct->valid_f lag  - VALID; 

} 

Set  up  advisory  and  alarm  flags 


if  ( int_version  >-  2 ) { 

if  ( { arg [lower_ limit_arg  + l].string[0]  " ' Y'  ) || 

( arg[lower_limit_arg  + 1] .string[0]  — ' y'  ) ) 

cmd_struct->limit— change. cl_alrm  - 1; 

else 

cmd_struct->limit_change.cl_almi  - 0; 

if  ( ( arg[upper_limit_arg  + l].string[0]  --  'Y'  ) || 

( arg  [upper_limit_arg  + l].string[0]  -»  ' y'  ) ) 
cmd_struct->limit_change . ch_alrm  - 1; 

else 

cmd_struct->limit_change  .ch_alrm  - 0; 
if  ( int_version  >-  3 ) { 

if  ( ( arg [lower_limit_arg  + 2].string[0]  ■■  ' Y'  ) || 

( arg[lower_limit_arg  + 2].string[0]  ' y'  ) ) 
cmd_struct->limit_change . cl_adv  - 1; 

else 

cmd_struct->limit_change . cl_adv  - 0 ; 

if  < { arg [upper_limit_arg  + 2] .string[0]  — 'Y'  ) M 
( arg  [upper_limit_arg  + 2].string(0]  " ' yf  ) ) 
cmd_struct->limit_change.ch_adv  - 1; 

else 

cmd_struct->limit_change.ch_adv  * 0; 


} 


} 

} 

} 

/*  end  chk  for  valid  source  */ 


/* 

* 

*/ 


Set  up  limit  change  flags 


if  ( cmd_struct->valid_f lag  — VALID  ) { 

if  ( ( operational  > 0 ) &&  ( critical  > 0 ) ) 
cmd_struct->limit_change.flag  - 2; 
else  if  ( critical  > 0 ) 

cmd_struct->limit_change . f lag  - 1; 
else  if  ( operational  > 0 ) 

cmd_struct->limit_change.flag  - 0; 

else 

cmd_struct->valid_f lag  * INVALID; 

} 

else 

cmd_struct->valid_f lag  - INVALID; 


case 


) 

break; 
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* 1'  : 


cmd_Struct->func_no  » CLEARED I SPLAY; 
break; 

default : 

cmd_struct->def ined  - NO; 
cmd_struct->valid_f lag  - INVALID; 
break; 


} 

break; 

/* 

* Ad  can  only  be  disable  logging 
*/ 

case  ' d' : 

switch  ( arg[0] .stringfl]  ) ( 
case  ' 1' : 


if  ( arg_num  ••  0 ) 

cmd_struct->func_no  - LOGD I S ABLE_D I SP LAY ; 
else  if  ( ( arg_num  — 1 ) ( strncmp  ( arg[l]  .string,  "all",  3 ) — 0 ) ) 

cmd_struct->func_ no  - LOGD  I S AB  LE_ALL ; 

else 

cmd_struct->func_no  - INVALID; 
break; 

default : 

cmd_struct->func_no  - INVALID; 
cmd_struct->def ined  - NO; 
break; 


} 

break; 


/* 

* An  e can  be  exit  or  enable  logging 

V 


case  9 e'  : 

switch  ( arg[0] .string [1]  ) { 

case  9 1' : 


if  ( arg_num  — 0 ) 

cmd_struct->func_no  - LOGENAB LE_D ISP LAY ; 
else  if  ( ( arg_num  — 1 ) &&  ( strncmp  ( arg[l] .string,  "all”,  3 ) « o ) ) 
cmd_3truct->func_no  - LOGENAB LE^ALL ; 

else 

cmd__struct->func_no  - INVALID; 
break; 


case  ' x' : 


#« 
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crudest  rue  t->func_no  ■ HALT_DISPLAY; 
break; 


default : 

cmd_struct->f unc_no  * INVALID; 
cmd_struct->def ined  * NO; 
break; 


} 

break; 


/* 

★ A g can  only  be  GDR  get  next  command 
*/ 


case  ' g' : 

switch  ( arg [ 0] . string [ 1]  ) { 

case  ' n' : 

if  < arg_num  — 1 ) { 

valid  - val_ppl  { arg[l] . string  ); 
if  ( valid  ) { 

cmd_-struct->f unc_no  ■ GDR_GETNEXT; 
strepy  ( cmd_struct->disp_name/  arg[l] .string  ) 
} else 

cmd_struct->valid_f lag  ■ INVALID; 


} else 

cmd_st ruct->f unc_ no  “ INVALID; 
break; 

default : 

cmd_st ruct->f unc^no  ■ INVALID; 
cmd_struct->def ined  - NO; 
break; 


} 

break; 


/* 

* An  h can  be  help  or  history  tabs 
*/ 


case  9 hr  : 


switch  ( arg[0] .string[l]  ) { 

case  'e'  : 

cmd_3truct->f unc_no  * MAIN_HELP; 
break; 

case  9t9  : 

if  ( arg_num  ~ 2 ) { 

valid  - val_fn  ( arg [ 1] . string,  YES  ); 
if  ( valid  ) { 
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3trcpy  ( cmd_s 1 rue t - >di sp_name , arg  [1]  . string  ); 
valid  - val_fn  ( arg [2] . string,  YES  ); 
if  ( valid  ) { 

cmd_struct->func_no  - HIST_TAB; 
strepy  ( cmd_struct->ovr_name,  arg[2] .string  ); 
} else 

cmd_struct->func_no  - INVALID; 

} else 

cmd_3truct->func_no  - INVALID; 


} else 

cmd_struct->func_no  * INVALID; 
break; 


default : 


cmd_struct->func_no  ■ INVALID; 
cmd_struct->def ined  - NO; 
break; 


) 

break; 


/* 

* An  m can  be  pull  up  the  main  menu  or  send  a message 
*/ 


case  'm' : 

switch  ( arg[0] ,string[l]  ) { 
case  'm'  : 

cmd_struct->func_no  - DRAW_MAIN; 
break; 


case  ' s' : 

if  { arg_num  >«  1 &&  pbi_or_j>fkey  --  PBI  ) 
cmd_struct->func_no  - EXMSG_SEND; 

else 

cmd_struct->func_no  - INVALID; 
break; 

default : 

cmd_struct->func_no  « INVALID; 
cmd_struct->defined  • NO; 
break; 


} 

break; 


/* 

* An  o can  only  be  overlay  a plot 
*/ 


case  'o' 


if  ( arg [0] .string [1]  — 'v'  ) { 

cmd_3truct->func_no  * PLOT  OVRLAY; 
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valid  - val_fn  ( arg [1] . string,  YES  ); 
if  { valid  ) 

strcpy  ( cmd_s t r u c t - >di a p_name , arg [ 1] . string  ); 

else 

cmd__3truct->valid__f lag  * INVALID; 

valid  - val_fn  ( arg  [2]  . string,  YES  ); 
if  ( valid  ) 

strcpy  { cmd_s truct->ov rename , arg[2] , string  ); 

else 

cmd  struct->valid_f lag  - INVALID; 


if  { cmd__struct->valid_f  lag  ) { 

strcpy  ( cmd_struct->disp_name,  arg [1] . string  ); 
strcpy  ( cmd_struct->ovr_name,  arg [2] . string  ); 


} 

} else  { 

cmd_struct“>f unc_no  * INVALID; 
cmd  st ruct->def ined  - NO; 


} 

break; 


A p can  be  switch  pos  id  alarm,  disable  PBIs,  enable  PBIs  or 
start/stop  a plot 


case  'pr : 

switch  ( arg [0] . string [1]  ) { 

case  ' a' : 

if  ( strcmp  ( arg [1] . string,  "on"  ) — 0 ) { 

cmd_struct->action  - ON; 
cmd_st  ruct->func_no  - POS— ALARM; 

} else  if  ( strcmp  ( arg [ 1] . string,  "off"  ) “ 0 ) { 

cmd_struct->action  - OFF; 
cmd_struct->func_no  ■ P 0 S— ALARM_0FF ; 

} else  { 

cmd_struct->def ined  - YES; 
cmd_struct->valid_f lag  ■ INVALID; 


} 

break; 
case  ' d' : 


cmd_struct->func_no  - P B I_D I SABLE ; 
break; 

case  9 e'  : 

cmd_struct->func_no  = PBI_ENABLE; 
break; 


caae  ' 1'  : 
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valid  - val_fn  ( arg[l] .string,  YES  ); 
if  ( ! valid  ) { 

cmd_struct->def ined  - YES; 
cmd_struct->valid_f lag  - INVALID; 

} else  { 

strncpy  ( cmd_struct->disp_name,  arg[l]  .string,  argument_length  [ 1]  ) 
if  ( strcmp  ( arg [2] . string,  "start”  ) — 0 ) { 

cmd_struct->func_no  - PLOT; 
cmd__struct->action  - ON; 

} else  if  ( strcmp  ( arg[2] .string,  "stop”  ) — 0 ) { 

cmd_struct->f unc_no  - PLOT_OFF; 
cmd_struct->action  - OFF; 

} else  { 

cmd_ struct->def ined  - YES; 
cmd_struct->valid_f lag  - INVALID; 

} 

) 

break; 
default : 

cmd_struct->func_no  - INVALID; 
cmd_struct->def ined  - NO; 
break; 


} 

break; 


/* 

* An  s can  be  screen  dump, 
*/ 


select  display  or  show  pf  keys 


case  ' s'  : 

switch  ( arg[0] .string[l]  ) { 
case  ' c' : 

cmd_struct->func_no  - SCRN_DUMP; 
break; 

case  9 e9  : 

if  ( arg_num  — 0 ) 

cmd_struct->func_no  - STARTED I SPLAY; 
else  if  ( arg_num  — 1 ) { 

valid  - val_fn  < arg[l] .string,  YES  ); 

if  ( ! valid  ) 

cmd_struct->valid_flag  - INVALID; 


else  ( 
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gtrcpy  ( cmd  struct—^disp^ nan\6f  arg[l]  •string  ) » 
cmd  3truct*^func_no  * START PDISPLAY; 


} 

) 

break; 
case  ' h' : 

cmd_st ruct->f unc_no  ■ DRAW^PF; 
break; 

default : 

cmd_struct->f unc_no  * INVALID; 
cmd_struct->de fined  - NO; 
break; 


} 

break; 


* A u can  be  unlatch  DDDs , a unix  command  or  change  the  update  rate 
*/ 


case  ' u' : 

switch  ( arg[0] .string[l]  ) { 

case  ' dr  : 


cmd_3t  ruct->f unc^no  *■  DDD__UNLATCH ; 
if  ( arg_num  — 2 ) ( 

if  ( valmsid  ( arg[l]  .string  ) ) { 

strcpy  ( cmd_struct->limit_change.msid,  arg [ 1]  . string  ); 
if  ( val_src  ( arg [2] . string,  real_src  ) ) { 

strcpy  ( cmd_struct->limit_change.src,  arg [2]  .string  ) 
cmd_struct->action  m UNLATCH_M$ID; 

} else 

cmd_struct->func_no  - INVALID; 

} else  { 

cmd_struct->f unc_no  * INVALID; 

tui_msg  ( M_YELLOW,  "Msid  %s  is  an  invalid  msid  name"  ) ; 


} else  if  ( arg_num  > 0 ) 

cmd__struct->f unc_no  * INVALID; 
else  { 

cmd_struct->func_no  * DDD_UNL_ALL ; 
cmd_struct->action  * ALL; 

} 

break; 
case  9 n9  : 

if  ( strlen  ( arg  [ 1]  . string  ) > 0 &&  pbi_pr _pfkey  --  PBI  ) 
cmd_ struct->f unc_no  * UN  I X_C OMMAND ; 

else 

cmd  struct->func  no  - INVALID; 


break; 
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case  9 r' : 

sscanf  ( arg[l] .string,  "Id”,  &upd_rate  ); 
if  { upd_rate  >-  1 &&  upd_rate  <-  99999  ) { 
cmd_struct->func_no  - UPD_RATE; 
cmd_struct->rate  - upd_rate  * 1000; 

} else 

cmd_struct->valid_flag  * INVALID; 
break; 

default : 

cmd_3truct->func_no  - INVALID; 
cmd_struct->def ined  - NO; 
break; 


} 

break; 


/* 

* A z can  be  set  zoom  factor,  zoom  display  or  zoom  reset 
*/ 


case  9 z9  : 

switch  { arg[0] .string[l]  ) { 

case  ' f 9 : 


if  ( arg_num  — 1 ) { 


) ) 


1"  ) ; 


9 . 9"  ) ; 


nd  9 . 9"  ) ; 


.9"  ) ; 


valid  - YES; 

len  - strlen  ( arg [ a rg_num] .string  ); 
for  { i « 0;  i < len;  i++  ) { 

if  ( ( arg [arg_num] .string [i]  --  '+'  ) ||  ( arg [arg_num] . string [i]  — 
valid  - NO; 

} 

if  { valid  ) { 

valid  - dec_val  ( arg [arg_num] .string  ); 
if  ( valid  ) { 

sscanf  ( arg [ a rg_num] .string,  "%f",  & ( cmd_struct->f actor  ) ); 
if  ( cmd_struct->f actor  < .01  ) { 

tui_msg  < YELLOW,  "Zoom  factor  less  than  .01  - default  to  .0 

cmd_struct->factor  - .01; 

} else  if  ( cmd_struct->f actor  > 9.9  ) { 

tuijnsg  ( M_YELLOW,  "Zoom  factor  greater  than  9.9  - default  to 

cmd_struct->factor  - 9.9; 

} 

) else 

tui_msg  ( M_YELLOW,  "Invalid  zoom  factor  - should  be  between  .01  a 

} else 

tui_msg  { M_YELLOW,  "Invalid  zoom  factor  - should  be  between  .01  and  P 


if  ( valid  ) 

cmd_struct->func_no  - ZOOM_FAC; 

else 


cmd_struct->func_no  - INVALID; 


} else  { 
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cmd_st ruct->f unc__no  * INVALID; 
cmd  struct->def ined  * NO; 


} 

break; 
case  'm' : 

cmd_s t r u c t - > f unc_no  * Z OOM_D IS; 
break; 

case  ' r 9 : 

cmd_st ruct->f unc_no  ■ ZOOM_RES; 
break; 

default : 

cmd_ struct ->func_no  - INVALID; 
crnd_st  rue  t->de  fined  - NO; 
break; 


} 

break; 


/* 

♦ In  all  other  cases  the  function  is  invalid 
*/ 

default : 

cmd_st ruct->func_no  - INVALID; 
cmd_st ruct->de fined  - NO; 
break; 


} 

/*Debug  printout  *************** 

tui_msg  ( M_GREEN, "func_no  - %d  defined  - %d  valid_flag  - %d", 

cmd_struct->func_no, cmd_struct->de fined, cmd_struct->valid_f lag  ) ; 

*/ 


for  ( i ■ 0;  i < 20;  i++  ) 
free  ( arg[i] .string  ); 

free  ( local_cmd_string  ) ; 

D (printf { "END  parse_cmd\n" ) ) ; 

if  ( ( cmd_struct->func_no  — INVALID  ) I I ( cmd_struct->de fined  — NO  ) ) { 

cmd__struct->valid_f lag  - INVALID; 
return  ( INVALID  ) ; 

} else 

return  ( 0 ) ; 


} 
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/****************************************************************************** 

* MODULE  NAME:  pbi_cmd.c 

* 

* This  routine  indicates  the  type  of  PBI  command  to  process  by 

* finding  the  pbi  pushed,  either  processing,  sending  a PBI  msid,  or  setting  a 

* PBI  token  to  accomplish  the  command.  Any  display  modifications  are  then 

* sent  to  the  displayer  for  modification  via  shared  memory  and  a process 

* signal. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* A.  Sprinkle  - Ford  Aerospace  Corporation 

★ 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


♦include  <stdio.h> 
♦include  <constants .h> 
♦include  <pf_key.h> 
♦include  <disp.h> 
♦include  <wex/FCpbi .h> 
♦include  <wex/EXmsg.h> 


extern  struct  pbi_def  *Pbi_Def;  /*  Pbi  Hot  index  for  Pbi  processing  */ 
extern  short  Pbi_Hot_Ndx; /*  Pbi  Hot  index  for  Pbi  processing  */ 


int  pbi_cmd  ( ) 


{ 


/* 

* 

*! 


int  modif ied_count;  /*  Number  of  Pbi's  Modified  */ 
struct  pbi_def  *pbi_def_ptr;  /*  pointer  to  PBI  definitions  */ 
D(printf ("START  pbi_cmd\n") ) ; 

Process  the  host  command  by  calling  the  routine  for  host  processing 


pbi_def_ptr  - Pbi_Def; 

if  ( strncmp  ( pbi_def_ptr (Pbi_Hot_Ndx  - 1] .pbi_dest,  PBI_HOST  DEST, 
pbi_def_ptr [Pbi_Hot_Ndx  - 1] .pbi_dest_len  ) — 0 ) { 
if  ( pbi_def_ptr [Pbi_Hot_Ndx  - 1] .pbi_disable  — ENABLED  ) 
pbi_host  ( ) ; 


) 


/* 

* If  the  command  is  not  a HOST  targeted  PBI  then  process  in  the  local 

* R ( Display  Manager  ) pbi  process . 

V 


else  ( 
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if  ( strncmp  ( pbi_def_ptr [Pbi_Hot_Ndx  - 1] .pbi_dest, 
pbi_def_ptr [Pbi_Hot_Ndx  - 1] . pbi_dest_len  ) - 
modified  count  - pbi_local  ( ) ; 


PBI_LOCAL_DEST, 

' 0 ) { 


if  ( modified_count  ““  INVALID  ) 

tui_msg  ( M_YELLOW,  "PBI  ERROR  In  local  pbi  selection"  ) ; 

} else  { 

modif ied_count  m INVALID; 

tui  msg  ( M_YELLOW,  "Invalid  PBI  Destination  Specified  %3s", 
“ pbi_def_ptr [Pbi_Hot_Ndx  - 1] .pbi_dest  ); 
return  ( 0 ) ; 

> 

> 

D (print f ("END  pbi_cmd\n") ) ; 
return  ( 0 ) ? 

» 
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* MODULE  NAME:  pbi_config 

★ 


* This  handles  changes  to  pbi  by  turning  on/off  backlighting,  redrawing 

* labels,  and  new  backlighting  depending  on  the  state  of  the  button. 

* 


* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Scott  Zrubek  - Ford  Aerospace  Corporation/Houston 

★ 


* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
************************************************************************** 


♦include  <stdio . h> 
♦include  <wex/EXmsg.h> 
♦include  <constants . h> 
♦include  <DDdisp.h> 
♦include  <disp.h> 
♦include  <DDfg_graph . h> 


extern  struct  data_info 

*Dh  Address; 

/*  Displayer  shared  memory 

*/ 

extern  struct  ddd_ent 

*Ddd; 

/*  ptr  to  Ddd  entry  table 

*/ 

extern  struct  fg_recs 

Fg  rec; 

/*  fg  graphics  records 

*/ 

extern  struct  pbi_ent 

*Pbi; 

/*  ptr  to  pbi  records 

*/ 

extern  struct  msid_ent 

*Msid; 

/*  ptr  to  msid  entry  table 

*/ 

int  pbi_conf  ig  (disp_num, 

redraw_rect , 

pbi_changed,  number_of_changes ) 

short  disp_num; 

/*  effective  display  number 

*/ 

struct  pbi_redraw_rect  redraw_rect ; /*  redraw  rectangle 

*/ 

struct  pbi_changes 

*pbi_changed; 

/*  list  of  pbi  changes 

*/ 

int  number_ of_changes; 

/*  number  of  pbi  changes 

*/ 

register  struct  shm_ decom  *decom_buf fer ; 
register  char  *ldata  buffer; 


struct  fgr_record 
struct  fg_line_rec 
struct  fg_rectangle_rec 
struct  fg_polygon_rec 
struct  fg_curve_rec 
struct  fg_circle_rec 
struct  fg_arc_rec 
struct  fg_ellipse_rec 
struct  fg_clkmtr_rec 
struct  fg__bar_rec 


* 1 oc_gr  aph_pt  r ; 
*fg_line_ptr; 
*fg_rect_ptr; 

* f g_j>oly_pt  r ; 
*fg_cur_ptr; 
*fg_cir_ptr; 
*fg_arc_ptr; 
*fg_ellj>tr; 
*fg_clk_ptr; 
*fg_bar_ptr; 


long 


new  color; 


short 
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grph_index; 

pbi_index; 

reverse_jvideo  ~ OFF; 
change_flag  - OFF; 

first_pass  - 0; 


D (print f ("START  pbi_conf ig\n") ) ; 
Process  all  of  the  OFF  PBI  entries 


loc_graph_ptr  - Fg_rec .graph_rec; 

for  (i  - 0;  i < number_of_changes;  i++)  ( 

pbi_index  * pbi__changed [i]  .pbi— chg_ndx; 
grph_index  - Pbi [pbi_index] . grph_indx  - 1; 

if  (grph_index  >*  0)  { 

change_flag  - ON; 

if  ( ! pbi_changed[i] .pbi_active_f lag)  { 


If  ddd  or  backlighting  is  enabled  for  the  pbi, 
set  new  color 


if  (Pbi [pbi_index] .ddd_indx  > 0) 

new_color  - Pbi [pbi_index] ,grph_color; 

reverse_video  * OFF; 

Clear  the  offs  for  the  pbis  being  set  to  off 


switch  (loc_graph_ptr [grph_index] .graph_typ)  { 
case  LINE: 

fg_line_ptr  - (struct  fg_line_rec  *) 

l°c_graph_ptr  [grph_index]  .graph _ptr 

for  (j  - 0;  j < fg_ line_ptr->label_num;  j++) 

f g_line_ptr->line_lbl_ptr->label_ind [ j ] - NULL; 

fg_line_ptr->rev_video  - OFF; 
fg_line— ptr->ddd_ind  - NULL; 

break; 

case  RECTANGLE: 

fg_rect_ ptr  - (struct  fg_rectangle_rec  *) 

loc_graph_ptr [grph_index] . graph_ptr 

for  (j  - 0;  j < fg_rect_ptr->label_num;  j++) 

fg_rect_ptr->rect_lbl— ptr->label_ind  [ j ] * NULL; 

fg_rect_ptr->ddd_ind  * NULL; 
fg_rect_ptr->rev_video  - NO; 


break; 


case  POLYGON: 
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fg  polyptr  ” (struct  fg_polygon_rec  *) 

loc_graph_ptr [grph_index] . graphjptr ; 

for  (j  - 0;  j < fg_poly_ptr->label_num;  j++) 

fg_poly_ptr->poly_lbl_ptr->label_ind( j]  - NULL; 

fg_poly_ptr->ddd_ind  - NULL; 
fg_poly_ptr->rev_video  - NO; 

break; 

case  CURVE: 

fg_cur_ptr  - (struct  fg_curve_rec  *) 

loc_graph_ptr [grph_index] . graph_pt  r ; 

for  (j  - 0;  j < fg_cur __ptr->label_num;  j++) 

fg_cur_ptr->cur_lbl _ptr->label_ind[ j]  - NULL; 

fg_cur_ptr->ddd_ind  - NULL; 
fg_cur_ptr->rev_video  - NO; 

break; 

case  CIRCLE: 

fg_cir_ptr  - (struct  fg_circle_rec  *) 

l°c_graph_ptr [grph_index] . graph_ptr ; 

for  (j  - 0;  j < fg_cir_ptr->label_num;  j++) 

f9_cir_ptr->cir_lbl_ptr->label_ind[ j]  - NULL; 

f g_c i r_pt r- >ddd_ind  - NULL; 
fg_cir _ptr->rev_video  - NO; 

break; 

case  ARC: 

f g_a r c _ptr  **  (struct  fg_arc_rec  * ) 

l°c_graph_ptr [grph_index] .graph_ptr; 

for  (j  ■ 0;  j < fg_arc__ptr->label_num;  j++) 

f9_arc_Ptr->arc_lbl_ptr->label_ind[ j]  - NULL; 

fg_arc_ptr->ddd_ind  - NULL; 
f9_*rc_ptr->cur_color  - new_color; 

break; 

case  ELLIPSE: 

fg_ell_ptr  - (struct  fg_ellipse_rec  *) 

loc_graph_ptr [grph_index] . graph_ptr ; 

for  (j  - 0;  j < fg_elljptr->label_num;  j++) 

fg_ell_ptr->ell_lbl jptr->label_ind[ j]  - NULL; 

fg_ell _ptr->ddd_ind  - NULL; 
fg_ell_ptr->rev_video  - NO; 


break; 
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case  CLOCK_METER: 

fg_clk_ptr  - (struct  fg_clkmtr_rec  *) 

loc_graphjptr [grph_index] .graph_ptr; 

for  (j  - 0;  j < fg^lk^ ptr->label_num;  j++) 

f g_clk_pt r->clk_lbl_ptr->label_ind [ j ] - NULL; 

fg_clk_jpt r->rev_video  ■ NO; 

break; 

case  BAR_CHART: 

fg_bar_ ptr  - (struct  fg_bar_rec  *) 

loc_graph_ptr [grph_index] .graph _j?tr; 

for  (j  * 0;  i < fg_bar_ptr->label_num;  j++) 

fg_bar_ ptr->bar_lbl_ptr->label_ind[  j]  " NULL; 

f g_bar_j>t r->rev_video  • NO; 

break; 

default : 

break; 

} 

} / * end  of  check  for  inactive  pbi  */ 

} /*  end  if  grph_indx  > 0 */ 

} /*  end  for  <#  of  pbi  changes>  */ 

/* 

* Process  all  of  the  ON  PBI  entries 
*/ 

for  (i  - 0;  i < number_of_changes;  i++)  { 

pbi_index  * pbi_changed(i]  . pbi_chg_ndx; 
grph_index  * Pbi [pbi_index] .grph_indx  - 1; 

if  (grph_index  >*  0)  { 

/* 

* If  the  pbi  is  now  active 
*/ 

change_flag  - ON; 

if  (pbi_changed[i] ,pbi_active_f lag)  ( 

/* 

* If  ddd  or  backlighting  is  enabled  for  the  pbi 
*/ 

if  (Pbi [pbi_index] . ddd_indx  > 0)  { 

/* 

* Check  to  see  if  the  Data  Handler 

* is  updating  the  decom  buffer. 

*/ 


if  (Dh  Address->need  decom  — YES)  { 


#ifdef  SUN 
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♦else 

#endif 


* 

* 

* 


*/ 


usleep  ( 100000  ) ; 

astpause (0,  100);  /*  NON  - PORTABLE  CODE  */ 

return  (0); 

} 

Dh— Address->decom_in_use [disp_num]  - YES; 


Set  up  the  local  pointers.  The  decom  buffer  will 
be  used  to  access  information  from  the  updated  buffer. 


decom_buf fer  - {struct  shm__decom  *)  ((char  *)  Dh_Address  + 

Dh_Address->decom__buf ) ; 

ldata_buffer  - (char  *)  ((char  *)  Dh_Address  + 

Dh_Address->buffer [Dh_Address->buf_ready] ) ; 

new_color  - ddd (decomjouf fer,  ldata_buf  fer, 

Pbi [pbi_ index] ,ddd_indx,  first^pass) ; 

reverse_video  - OFF; 

) else  ( 

new_color  - Pbi [pbi_index] ,grph_color; 

if  (pbi_changed[i] ,pbi_feedback_f lag) 
reverse_video  - ON; 

else 

reverse_video  - OFF; 


Assign  reverse  video  to  the  proper  element 
of  the  foreground  records  structure. 


switch  (loc_graph_ptr  [grph— index]  ,graph_typ)  { 
case  LINE: 

fg_line (j ptr  - (struct  fg_line_rec  *) 

loc_graph_ptr [grph_index] . graph_ptr; 

fg_line_ptr->pbi_ind  - pbi_index  + 1; 
fg_line_ptr->label_num  - Pbi  [pbi_index]  .num_labels; 

if  (fg_line_ptr->label_num  > 0 

fg_line_ptr->line_lbl_ptr  — NULL) 
f g_l ine_p t r - > 1 ine_lb l_pt r - (struct  label_ index  *) 
calloc (1,  sizeof (struct  label_index) ) ; 

for  (j  - 0;  j < fg_line_ptr->label_num;  j++) 
fg_line jptr->line_lbl_ptr->label_ind[ j]  - 

Pbi [pbi_index] ,label_ptr [ j] .index; 

^9_iine— ptr->rev__video  • reverse_video; 

^ 9_1 in® Jpt r->ddd_ind  * Pbi [pbi_index] . ddd_indx; 

if  (Pbi [pbi_index] ,ddd_indx  > 0)  { 

fg__line_ptr->rev_video  - NO; 
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reverse_video  “ NO; 

} else  { 

fg_line_ptr->cur_color  - new_color; 
fg”line_ptr->rev_video  - reverse_video; 

) 

break; 

case  RECTANGLE: 

fg_rect_ptr  - (struct  fg_rectangle_rec  *) 

l°c_graph_ptr [grph_ index] .graph_ptr 

fg_rect_ptr->pbi_ind  - pbi_index  + 1; 
fg_rect_ptr->label_num  - Pbi  [pbi_index]  .num_labels; 

if  (fg_rect_ptr->label_num  > 0 

&&  f g_rect_ptr->rect_ lbl— ptr  “ NULL) 
fg_rect_ptr->rect_lbl_ptr  - (struct  label_index  *) 
calloc(l,  sizeof (struct  label_index)  ) ; 

for  (j  - 0;  j < fg_rect_ptr->label_num;  j++) 
f g_rect_pt r->rect_lbl_ptr->label_ind  [ j ] - 

Pbi [pbi_index] . label_ptr [ j] .index; 

fg  rect pt r ~ >ddd ind  “ Pbi [pbi index]  .ddd indx; 

if  (Pbi [pbi_index] .ddd_indx  > 0)  { 

fg_rect_ptr->rev_video  ■ NO; 
reverse_video  * NO; 

} else  { 

fg_rect_ptr->cur_color  ■ new_color; 
fg_rect_ptr->rev_video  - reverse_video; 

) 

break; 

case  POLYGON: 

fg^polyjptr  " (struct  fg_polygon_rec  *) 

loc_graph_ptr  [grph_index]  . graphj pt  r 

f g^poly_jptr->pbi_ind  * pbi_ index  + 1; 
fg^p°ly_jDtr->label_nuxn  - Pbi  [pbi_index]  .num_labels; 

for  (j  - 0;  j < fgj>oly_j>tr->label_num;  j++) 
fg^poly^ ptr->poly_lbl— ptr->label_ind[  j ] * 

Pbi [pbi_index] . label_ptr [ j] .index; 

fg_poly_ptr->rev_video  - reverse_video; 

f g_jpoly_- ptr->ddd__ind  ■ Pbi [pbi— index] ,ddd_indx; 

if  (Pbi [pbi_index] .ddd_indx  > 0)  { 

fg_jDoly_ptr->rev— video  * NO; 
reverse_video  ■ NO; 

} else  { 

f g j>oly_ _pt  r->cur color  - new_color; 

fg_J5°ly _ptr->rev_video  ■ reverse_video; 

} 

break; 


case  CURVE: 
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f^_cur__ptr  * (struct  fg__curve_rec  *) 

loc_graph_ptr  [grph_index]  . graph_pt r 

fg_cur_ptr->pbi_ind  - pbi_index  + 1; 
fg_cur_ptr->label_num  - Pbi [pbiJLndex] .num_labels; 

for  (j  - 0;  j < fg_cur_ ptr->label_num;  j++) 
f g_cur^t  r->cur_lbl_j>tr->label_ind  [ j ] - 

Pbi [pbi_index] . label_ptr [ j ] .index; 

fg_cur_ptr->rev_video  - reverse_video; 


fg_cur_ptr->ddd_ind  - Pbi Ipbi_index] .ddd  indx; 


if  (Pbi [pbi_index] .ddd_indx 
fg_cur_ ptr->rev_video  - 
reverse_video  - NO; 

} else  { 

fg_cur_ptr->cur_color  - 
fg_cur_ ptr->rev_video  - 

} 


> 0)  { 
NO; 


new_color; 
reverse  video; 


break; 


case  CIRCLE: 

fg_cir_ptr  - (struct  fg_circle_rec  *) 

loc_graph_ptr [grph_index] .graph_ptr; 

fg_cir_ptr->pbi_ind  - pbi_index  + 1; 

i r_^p  t r - > I a be  l^nuin  - Pbi  [pbi_index]  .num_labels; 

for  (j  - 0;  j < fg_cir _ptr->label_num;  j++) 
f g_cir_j>tr->cir_lbl-ptr->label_ind  [ j ] - 

Pbi [pbi_index] , label_ptr [ j ] . index; 

fg_cir_ptr->rev_video  - reverse_video; 
fg_cir_ptr->ddd_ind  - Pbi [pbi_index] ,ddd_indx; 

if  (Pbi [pbi_index] .ddd_indx  > 0)  ( 
fg_cir_ptr->rev_video  - NO; 
reverse_video  - NO; 

} else  ( 

fg_cir_ ptr->cur_color  - new_color; 
fg  , cir  ptr->rev_video  * reverse  video; 

} 

break; 
case  ARC: 

f9_arc !_j ptr  • (struct  fg__arc_rec  *) 

loc_graph_ptr  [grph_index]  .graphjptr; 

fg_arc _ptr->pbi_ind  - pbi_index  + 1; 

ptr->label_num  » Pbi  [pbi_index]  . num_labels; 

if  (fg_arc_ ptr->label_num  > 0 

&&  fg_ arc_ ptr->arc_lbl_ptr  — NULL) 
fg_a^c_ptr->arc_lbl _j>tr  - (struct  label_index  *) 

calloc (1,  sizeof (struct  label_index) ) ; 

for  (j  - 0;  j < fg_arc_j>tr->label_num;  j++) 
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fg  arc_ptr->arc lbl_  ptr~>label l.nd  [ j ] • 

“ Pbi [pbi_index] . label_ptr [ j ] . index; 

fg  arc pt r->ddd_ind  m Pbi [pbi index] .ddd_indx; 


fg  arc_ptr->rev_video  - reverae_video; 


if  (Pbi [pbi_index] .ddd_indx 
fg_arc_ptr->cur_color  “ 
fg_arc_ptr->rev_video  ” 
reverse_video  • NO; 

} else  ( 

fg_arc_ptr->cur_color  ” 
fg_arc_ptr->rev_video  ” 

) 


> 0)  ( 

new_color; 

NO; 


new_color; 
reverse  video; 


break; 


case  ELLIPSE: 

fg_ell_ptr  - (struct  fg_ellipse_rec  *) 

loc_graph_ptr [grph_index] . graph_ptr ; 

fg_ell_ptr->pbi_ind  - pbi_index  + 1; 
f g_e 1 l_pt r - > 1 abe l_num  - Pbi [pbi_index] .num_labels; 

for  (j  - 0;  j < fg_ell_ptr->label_num;  j++) 
f g_ell_pt r->ell_lbl_ptr->label_ind [ j ] ” 

Pbi [pbi_index] . label_ptr [ j ] . index; 

fg_ell_ptr->rev_video  - reverse_video; 

f g_e 1 l_pt r - >ddd_i nd  - Pbi [pbi_index] .ddd_indx; 

if  (Pbi [pbi_index] .ddd_indx  > 0)  { 

fg_ell_ptr->rev_video  ” NO; 
reverse_video  ■ NO; 

} else  ( 

fg_ell_ptr->cur_color  - new_color; 
fg_ell_ptr->rev_video  - reverse_video; 

} 

break; 

case  CLOCK_METER: 

fg_clk_ptr  - (struct  fg_clkmtr_rec  *) 

loc_graph_ptr  [grph_index]  . graph__pt r ; 

f g_c lk_pt r -> labe l_num  - Pbi [pbi_index] .num_labels; 

for  (j  - 0;  j < fg_clk_ptr->label_num;  j++) 
fg_clk_ptr->clk_lbl_ptr->label_ind[ j]  - 

Pbi [pbi_index] .label_ptr[ j] .index; 

fg_clk_ptr->rev_video  - reverse_video; 

break; 


case  BAR_CHART : 

fg_bar_ptr  - (struct  fg_bar_rec  *) 

loc_graph_ptr [grph_index] .graph_ptr; 
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fg_bar_ptr->label_mim  “ Pbi [pbi_index] . num_labels ; 

for  (j  - 0;  i < fg_bar_ptr->label_num;  j++) 
fg_bar_ptr->bar_lbljptr->label_ind [ j ] - 

Pbi [pbi_index] . label_ptr[ j] .index; 

fg_bar_ptr->rev_video  - reverse_video; 

break; 

default : 

break; 


if  (change_flag  ■-  ON) 
redraw  (disp_num)  ; 


/* 

if  (change_flag  -»  ON)  { 

redraw ( redraw_rect . ulx,  redraw_rect . lry, 

redraw_rect . lrx,  redraw_rect . uly,  NO); 
redraw ( redraw_rect . ulx,  redraw_rect . lry, 

redraw_rect .lrx,  redraw  rect. uly,  YES) ; 

} 

*/ 


D (printf ("END  pbi_conf ig\n") ) ; 
return  ( 0 ) ; 


* MODULE  NAME:  pbi_free.c 


★ 

* This  routine  draws  a red  box  around  the  pbi  on  which  the 

* cursor  was  located  when  the  mouse  button  was  pressed. 

* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

it  Zrubek  — Ford  Aerospace  Corporation 

* 


★ 

* MODIFIED  FOR  X WINDOWS  BY: 


* Mark  D.  Collier  - Software  Engineering  Section 

★ Data  Systems  Department 

* Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 

a*****************************************************************************/ 


♦include  <stdio.h> 
♦include  <wex/FCpbi .h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <wex/EXmsg .h> 


extern  struct  pbi_def  *Pbi_Def;  /* 

extern  PBI_ENTRY  *Pbi_Ptr;  /* 

extern  PBI_ TABLE  *Pbi_Table;  /* 

extern  short  Pbi_Hot_Ndx,  /* 

Pbi_Num;  /* 

extern  int  errno, 

Pbi  Env  Id;  /* 


int  pbi_free  ( ) 

{ 

struct  pbi_def  *pbi_def_ptr;  /* 

int  it  /* 

success;  /* 

D (printf ("START  pbi_Free\n") ) ; 

/* 

* Call  WSA  software  to  delete  the  PB 
*/ 


Pbi  display  definition  table  pointer  */ 
Pbi  Emulation  interface  table  ptr  */ 
Number  of  Pbi  entries  currently  used  */ 

Number  of  Pbi  entries  currently  used  */ 
Number  of  Pbi  entries  currently  used  */ 


Pbi  Environment  id  for  this  display  */ 


Pbi  definition  pointer  for  pbi  defs  */ 

integer  loop  control  index  */ 

*/ 


environment  associated  with  this  display 


Pbi_Num  - 0; 

Pbi_Hot_Ndx  - 0; 

♦if  FAC  -*  NO 

if  { Pbi_Env_Id  > 0 ) 

/♦success  * FCpbidel  ( Pbi_Env_Id  )*/; 

if  ( success  ==*  INVALID  ) 

tui_msg  { M_YELLOW,  "Id  %s",  errno,  EXerrmsg  ( errno  ) ) ; 


♦endif 


Free  PBI  TABLE,  PBI  GROUP,  and  PBI  ENTRY  environment  associated  with 
this  display 


if  ( Pbi_Table  !-  NULL  ) ( 

if  ( Pbi_Table->group_entry  !-  NULL  ) 
free  ( Pbi_Table->group_entry  ) ; 
free  ( Pbi_Table  ) ; 

} 

if  ( Pbi_Ptr  !-  NULL  ) 
free  ( Pbi  Ptr  ) ; 


Free  all  messages,  destinations,  and  dependent  MSIOs  associated  with  the 
Pbi  Definition  Table  entries  before  free  the  Manager  display  definition. 


if  { Pbi_Def  !-  NULL  ) { 

pbi_def_ptr  - Pbi_Def; 

for  ( i - 0;  i < Pbi_Num;  i++  ) { 

if  ( pbi_def_ptr->pbi_mesg_len  > 0 ) 
free  ( pbi_def_ptr->pbi_message  ) ; 

if  ( pbi_def_ptr->pbi_dest_len  > 0 ) 
free  ( pbi_def jptr->pbi_dest  ) ; 

if  ( pbi_def_ptr->pbi_dep_msid_cnt  > 0 ) 
free  ( pbi_def_ptr->pbi_dep_msids  ) ; 

pbi_def_ptr++; 

} 

free  ( Pbi_Def  ) ; 

} 

D (printf ("END  pbi_Free\n" ) ) ; 
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/**************************************** 

* MODULE  NAME:  pbi_hOSt.C 

* 

* This  function  executes  a host  PBI. 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* A.  Sprinkle  - Ford  Aerospace  Corporation 

* 


* 

* MODIFIED  FOR  X WINDOWS  BY: 


★ 


* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 


★ 


Southwest  Research  Institute 

******************************************************** 


* ★ f 


♦include  <stdio.h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <wex/FCpbi .h> 
♦include  <wex/EXmsg . h> 


extern 

struct  pbi_def 

*Pbi__Def ; 

extern 

PBI_ENTRY 

*Pbi_Ptr; 

extern 

PBI_TABLE 

*Pbi_Table; 

extern 

short 

Pbi_Hot_Ndx; 

extern 

int 

Pbi_Env__Id, 

Pbi_Toggle_Dir 

errno; 

/*  Pbi  structure  for  Pbi  processing  */ 

/*  pbi  entry  WSA  table  pointer  */ 

/*  Pbi  header  table  pointer  for  groups  */ 

/*  Pbi  Hot  index  for  Pbi  processing  */ 

/*  Pbi  environment  Id  for  this  display  */ 
/*  Forward/Reverse  toggle  direction  */ 


int  pbi_host  ( ) 

( 

PB I_ENTRY  *ent  ry_pt  r , 

*pbi; 


/*  pointer  to  pbi  entry  found  */ 

/*  pointer  to  PBI  Table  selected  */ 


GROUP_ENT  R Y *pbi_grp ; 

struct  pbi_def  *pbi_def_ptr; 


/*  pointer  to 
/*  pointer  to 


PBI  Group  selected 
PBI  definitions 


*/ 

*/ 


int 


field_select_ reset  - 
groupment , 
if 

loop_counter  - 0, 
match_ found  - FALSE , 
modified  - 0, 
start  index; 


FALSE, 

/*  number  of  groups  in  the  pbi  table 

/ * counter  to  increment  pbi_def_ptr 
/*  flag  for  searching  for  PBI  groups 
/*  Number  of  Pbi's  Modified 
/*  offset  for  pbi_updt 


*/ 

*/ 

*/ 

*/ 

*/ 


pbi  * Pbi_Ptr; 

pbi_grp  - Pbi_Table->group_entry ; 
group_cnt  * Pbi_Table->group_count ; 
pbi_def_ ptr  * Pbi_Def; 


/* 

★ 

*/ 


D (print f ("START  pbi_host \n" ) ) ; 

Switch  on  the  type  of  the  pbi  selected 
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switch  ( pbi [Pbi_Hot_Ndx  - 1] .pbi_type  ) { 


/* 

* If  the  selected  PBI  is  a dependent  disable 
*/ 


case  DS: 


/* 

* If  there  is  no  backlighting  for  this  PBI 

*/ 

if  ( pbi_def_ptr->pbi_bklght  !-  NO_BCKLGHT  ) { 
pbi [Pbi_Hot_Ndx  - 1] . feedback_ind  - ON; 
pbi [Pbi_Hot_Ndx  - 1] .modify_flag  **  ON; 
modified++; 

> 

/* 

Find  the  group  of  displays  PBI's  that  matches  the  group  of  the  selected  PBI 


for  ( i - 0;  i < group_cnt  £&  !match_found;  i++  ) { 

If  < pbi [Pbi_Hot_Ndx  — 1] . group_num  pbi_grp— >group  nun  ) { 

match_found  - TRUE;  ~ 

entry_ptr  - pbi_grp->pbi_ptr; 

} else  { 

loop_counter  - loop_counter  + pbi_grp->entry  count; 
pbi_grp++; 

) 

) 

/* 

* Increment  pbi_def_ptr  to  match  the  pbi  in  entry_ptr 


for  ( i ■ 0;  i < loop_counter;  i++  ) { 
pb i_de  f _pt  r ++ ; 

) 


/* 

★ 

*/ 


Process  all  PBI's  in  this  group 


for  ( i - 0;  i < pbi_grp->entry_count;  i++  ) { 


/* 

* 

V 


If  the  entry  is  active  and  it  is  a dependent  disable 


if  ( entry_ptr->active_f lag  — TRUE  it  entry_ptr->pbi_type  — DP  ) { 
Pbi_def_ptr->pbi  disable  - DISABLED; 

> 


/* 

* 

If 

*/ 

if 

the  entry  is  active  and  if  the  selected  PBI  has  backlight  enabled 

( entry_ptr->active_flag  — TRUE  ££ 

Pb i_de  f _p t r - >pb i_bk 1 ght  !-  NO_BCKLGHT  ) { 


/* 


If 


/* 

★ 

*/ 
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the  entry  is  a dependent  enable 


if  ( entry_ ptr->pbi_type  “ EN  ) { 

entry_jpt r->feedback_ind  * OFF; 
ent ry_pt r->modi f y_f lag  * ON; 
modif ied++; 


If  the  entry  is  a dependent  disable 

if  ( entry_ptr->pbi_type  " DS  ) { 

entry_ptr->feedback_ind  ■ ON; 
entry_ptr->modify_f lag  ■ ON; 
modif ied++; 


} 

} 


* If  the  entry  is  active  and  it  is  a dependent  execute  or  it  is  a dependent  clea 

r 

*/ 


if  < entry_j>tr->active_jf lag  — TRUE  && 

( ent  ry_ptr->pbi_type  " DE  II 
ent ry_ptr->pbi_ type  ■■  DC  ) ) { 

pbi  def_ptr->pbi_di sable  * DISABLED; 

} 

pbi_def_j>tr++; 

entry_ptr++; 


) 


/* 

* If  a pbi  entry  has  been  modified  during  all  of  this 

*/ 


if  ( modified  > 0 ) { 

start_index  - ( pbi_grp->pbi_ptr  ) - Pbi_Ptr; 

pbi_updt  ( modified,  start_index,  pbi_grp->entry_count  ) ; 

} 

break; 


/* 

* If  the  selected  PBI  is  a dependent  enable 
*/ 


case  EN: 


/* 

* If  there  is  no  backlighting  for  this  PBI 

*/ 

if  ( pbi__def _ptr->pbi_bklght  ! * NO_BCKLGHT  ) { 

pbi  [Pbi_Hot_Ndx  - 1] . f eedback_ind  - ON; 
pbi [Pbi_Hot_Ndx  - 1] .modif y_f lag  - ON; 
modif ied++; 

} 
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/* 

* Find  the  group  of  displays  PBI's  that  matches  the 

*/ 


group  of  the  selected  PBI 


for  ( i - 0;  i < group_cnt  & & !match_found;  i++  ) { 

if  ( pbi [Pbi Hot  Ndx  — 1] .group^num  * ™ pbr  grp~^oroup  num  ) ( 

match_found  - TRUE;  ’ “ 

entry_ptr  - pbi_grp->pbi_ptr; 

} else  ( 

loop_counter  - loop_counter  + pbi_grp->entry_count; 
pbi_grp++; 

J 


/* 

* 

V 


/* 

* 

*/ 


/* 

★ 

V 


/* 

* 

*/ 


/* 

★ 

V 


Increment  pbi— def_ptr  to  match  the  pbi  in  entry_ptr 


for  < i - 0;  i < loop_ counter;  i++  ) { 

pbi_de  f _pt  r ++ ; 

> 


Process  all  PBI's  in  this  group 


for  ( i * 0;  i < pbi_grp->entry_count ; i++  ) { 


If  the  entry  is  active  and  it  is  a dependent  disable 


if  ( en t ryjpt r->ac t i ve_f lag  &&  entry  ptr->pbl_type  DP  ) { 

pbi_< def_ptr->pbi_disable  - ENABLED; 

} 


If  the  entry  is  active  and  it  is  a dependent  clear  or  it  is  a dependent 
execute 


if  ( entry_ptr->active_flag  --  TRUE  fit 

( entry_ptr->pbi_type  __  DE  | | entry_ptr->pbi_type  DC  ) ) { 

pbi_def _ptr->pbi_disable  - ENABLED; 


> 

If  the  entry  is  active  and  the  selected  PBI  has  backlighting  enabled 

if  ( entry_ptr->active_f lag  £& 

pbi_def_ptr->pbi_bklght  !-  NO_BCKLGHT  ) ( 

If  the  entry  is  a dependent  enable 

if  ( entry_ptr->pbi_type  --  EN  ) { 
entry_ptr->feedback_ind  - ON; 
entry_ptr->modify_flag  - ON; 


/* 

★ 

*/ 


} 
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modif ied++; 

} 


If  the  entry  is  a dependent  disable 


if  ( entry_ptr->pbi_type  — DS  ) { 

entry_ptr->feedback_ind  - OFF; 
entry_ptr->modify_ f lag  - ON; 
modif ied++; 


/* 

* 

*/ 


If  a pbi  entry  has  been  modified  during  all  of  this 


if  ( modified  > 0 ) { 

start_index  - < pbi_grp->pbi _ptr  ) - Pbi_Ptr; 

pbi_updt  { modified,  start_index,  pbi_grp->entry_count  ) ; 

} 

pbi_def_pt  r ++  ; 
entry_ptr++; 


} 

break; 


/* 

* If  the  pbi  selected  is  any  other  type 
*/ 


default : 


if  ( pbi [Pbi_Hot_Ndx  - 1] .pbi_type  — FS  ) { 

field_select— reset  - TRUE; 

} else  if  { pbi [Pbi_Hot_Ndx  - 1] .pbi_type  — FP  ) { 

Pbi_Toggle_Dir  - TOGGLE__FORWARD; 

} else  if  ( pbi [Pbi_Hot_Ndx  - 1] .pbi_type  -»  MULTIDEF  + FP  ) { 

Pbi_Toggle_Dir  “ TOGGLE_REVERSE ; 

} else  if  { pbi  [Pbi_Hot_Ndx  - 1]  ,pbi_type  — RP  ) { 

Pbi_Toggle_Dir  - TOGGLE_REVERSE; 

} else  if  ( pbi  [Pbi_Hot_Ndx  - 1]  .pbi_type  — MULTIDEF  + RP  ) { 

Pbi_Toggle_Dir  • TOGGLE_FORWARD ; 

} 

errno  - 0; 


#if  FAC 


#endif 

) 


--  NO 

modified  - FCpbisel  ( Pbi_Env_Id,  & ( pbi [Pbi_Hot_Ndx  - 1]  ) 
if  ( errno  > 0 ) 

tui_msg  ( M_YELLOW,  M%d  %s",  errno,  EXerrmsg  ( errno  ) ) 

break; 


) ; 


/* 

* If  we  reset  the  field  select 
*/ 

if  ( f ield_select_reset  ) { 

entry_ptr  * pbi_grp->pbi _pt r ; 

/* 


Process  all  entries  in  this  group 


*/ 
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for  ( i - 0;  i < pbi_grp->entry_count;  i++  ) { 

if  ( entry_ptr->active_f lag  &&  pbi_def_ptr->pbi_disable  — DISABLED  ) { 
pbi_def_ptr->pbi_disable  - ENABLED; 

) 

if  { entry_ptr->active_f lag  &&  pbi_def_ptr->pbi_bklght  INIT_BCKLGHT  ) { 
entry_ptr->feedback_ind  - ON;  ~ 

entry__ptr->modify_f  lag  - ON; 

} 

entry_ptr++; 

pbi_def_ptr++; 


) 


* If  a pbi  entry  haa  been  modified  during  all  of  this 

*/ 

if  ( modified  > 0 ) { 

atart_index  - ( pbi_grp->pbi_ptr  ) - Pbi_Ptr; 

pbi_updt  ( modified,  start_index,  pbi_grp->entry_count  ) ; 

) 

D(printf ("END  pbi_host\n") ) ; 


) 


* MODULE  NAME:  pbi_hot.c 


* 

* This  function  determines  if  a PBI  was  selected  by  comparing  mouse  coor- 

* dinates  with  the  bounding  boxes  of  each  PBI. 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* A.  Sprinkle  - Ford  Aerospace  Corporation 

* 

* 


* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 

************ **********★*******************************************************/ 


♦include  <stdio.h> 
♦include  <X11/Xlib.h> 
♦include  <constants . h> 
♦include  <disp.h> 
♦include  <wex/FCpbi .h> 
♦include  <wex/EXmsg . h> 


extern  struct  dm_shmemory 
extern  struct  pbi_ def 
extern  PBI_ENTRY 

*Dm__Address; 
*Pbi  Def; 
*Pbi_Ptr; 

extern  short 

Disp_Num, 
Pbi_ Num; 

extern  int 

Screen_color; 

int  pbi_hot  ( x,  y ) 

int 

x. 

/* 

X Coordinate  of  mouse  button  selection. 

*/ 

y; 

/* 

Y Coordinate  of  mouse  button  selection. 

*/ 

{ 

register  int 

i; 

/* 

loop  control  variable  for  indexing 

*/ 

struct  pbi_def 
PBI_ENTRY 

*pbi— def_ ptr; 
*pbi; 

/* 

i* 

Pbi  Pointer  to  pbi  display  definition 
Pbi  Pointer  to  pbi  display  definition 

*/ 

*/ 

Display 

^display; 

/* 

X Windows  display  variable. 

*/ 

D(printf ("START  pbijiot \n" ) ) ; 

/* 

* Return  0 if  there  are  no  PBI's. 
*/ 

if  ( Pbi_Num  --  0 ) 
return  ( 0 ) ; 

/* 


Search  the  PBI  table  to  determine  if  the  x/y  coordinates  are  in  a PBI.  If  so,  flash 
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* a rectangle  around  the  PBI  and  return  current  PBI  Index 
*/ 


display  - Dm_Address->xdisplay [Disp_Num] ; 

pbi_def_ptr  - Pbi_Def; 
pbi  - Pbi_Ptr; 


for  ( i - 0/  ( i < Pbi_Num  );  i++  ) { 

if  ( pbi [i] .active_flag  --  PBI_ACTIVE  &£ 

( x >-  pbi_def_ptr [i] .pbi_ul_x_jj  ) && 

( x <«  pbi_def_ptr [i] .pbi_lr_x_p  ) && 

( y >-  pbi_def_ptr [i] .pbi_ul_y_p  ) && 

( y <”  pbi  def  ptr[i].pbi  lr  y p ) 


) { 


XSetForeground  ( display,  Dm_Address->gc [Disp_Num] , 31  ); 

XDrawRect angle  ( display,  Dm_Address->window[Disp_Num] , 

Dm_Address->gc [Disp_Num] , 

pbi_def__ptr [i] .pbi_ul_x_p,  pbi_def_ptr [i] ,pbi_ul_y_p, 
pbi_def_ptr [i] .pbi_lr_x_p  - pbi_def_ptr [i] ,pbi_ul_x_p, 
pbi_def_ptr [i] .pbi_lr_y_p  - pbi  defptr [i] .pbi  ul  y p ) 
XSync  ( display  ) ; 
sleep  { 1 ) ; 


XSetForeground  ( display,  Dm_Address->gc [Disp_Num] , Screen_color  ); 
XDrawRect angle  ( display,  Dm_Address->window[Disp_Num] , 

Dm_Address->gc [Disp_Num] , 

pb  i_de  f _pt  r [ i ] . pb  i_u  l_x_p , pbi_de  f _pt  r [ i ] . pb  i_u  1 _y_p , 
pbi_def_ptr [i] .pbi_lr_x_p  - pbi_def_ptr [i] .pbi_ul_x _p, 
pbi_defjptr[i]  .pbi_lr_y_p  - pbi_def_ptr  [i]  .pbi_ul_y_p  ) 


return  ( i + 1 ) / 

} 


} 

D (printf ( "END  pbi_hot\n")  ) ; 
return  { 0 ) ; 
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/★A****************************** 

* MODULE  NAME:  pbi_local.C 


* This  routine  processes  the  Local  Dependent  enable,  disable,  execute  and 

* clear,  and  any  local  standard,  dependent  pbi,  dependent  group  pbi,  or  no 

* action  pbis  that  have  a local  destination.  The  command  token  number  and 

* number  modified  are  returned.  The  pbis  are  processed  according  to  pbi  type. 

* display  manager  command  token  function  number  is  set  according  to 

* the  input  instruction,  and  the  display  manager  then  executes  the  function 

* selection. 


* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* A.  Sprinkle  - Ford  Aerospace  Corporation 

* 
it 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

it  Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
**★**★*****★★*★***★**★**★*****************************************************/ 


♦include  <stdio.h> 
♦include  <constants .h> 
♦include  <pf_ key.h> 
♦include  <disp.h> 
♦include  <wex/FCpbi .h> 
♦include  <wex/EXmsg.h> 


extern 

extern 

extern 

extern 

extern 


extern 


PBI_ENTRY 

*Pbi_Ptr; 

/* 

pbi 

entry  WSA  table  pointer 

*/ 

PBI_TABLE 

*Pbi_Table; 

/* 

Pbi 

header  table  pointer  for  groups 

*/ 

struct  pfkey^defs 
struct  pbi_def 

Current_Com; 
*Pbi_Def ; 

/* 

Pbi 

structure  for  Pbi  processing 

*/ 

short 

Pbi_Hot_Ndx, 

/* 

Pbi 

Hot  index  for  Pbi  processing 

*/ 

int 

Pbi_Disable; 

Pbi_Toggle_Dir; 

/* 

Forawrd/Reverse  toggle  direction 

*/ 

int  pbi_local  < ) 
{ 


struct 

pbi_def  *pbi_def_ptr; 

/* 

struct 

pfkey_defs  *cmd_ptr; 

/* 

PBI  ENTRY  *entry_ptr. 

/* 

* ent  r y— t o_check , 

/* 

*f irst_entry. 

/* 

*last_entry. 

/* 

*pbi; 

/* 

pointer  to  PBI  definitions  */ 
pointer  to  command  structure  */ 

pointer  to  pbi  entry  found  */ 
pointer  to  pbi  entry  found  */ 
pointer  to  pbi  entry  found  */ 
pointer  to  pbi  entry  found  */ 
pointer  to  PBI  Table  selected  */ 


GROUP_ENTRY  *pbi_grp ; 


/*  pointer 


to  PBI  Group  selected 


*/ 


int 


entry— count  - 0, 

groupment, 

if 

match_found  “ FALSE, 
modified  - 0, 
next  found  - FALSE; 


/*  number  of  entries  in  the  group  */ 

/*  number  of  groups  in  the  pbi  table  * i 

/*  flag  for  searching  for  PBI  groups  */ 
/*  Number  of  Pbi's  Modified  */ 


/*  flag  for  if  the  next  entry  is  found  */ 


int 


seen 


*/ 

*/ 


pbi_local.c 


loop_counter  "0,  /*  counter  for  number  of  pbis 

pbi_array_index;  /*  index  into  array  of  pbis 

D (printf ("START  pbi_local\n") ) ; 

pbi  - Pbi_Ptr; 

pbi_grp  - Pbi_Table->group_entry; 
group_cnt  - Pbi_Table->group_count; 
pbi_def_ptr  - Pbi_Def; 

if  ( pbi (Pbi_Hot_Ndx  - 1] .pbi_type  >-  MULTIDEF  44 
pbi [Pbi_Hot_Ndx  - 1] .active_flag  ) { 


/* 

* Find  the  group  of  displays  PBI's  that  matches  the  group  of  the  selected  PBI 


for  ( i - 0;  i < group_cnt  44  !match_found;  i++  ) ( 

if  ( pbi [Pbi_Hot_Ndx  - 1] .group_num  --  pbi_grp->group  num  ) { 

match_found  - TRUE; 
entry_ptr  - pbi_grp->pbi_ptr; 
entry_count  “ pbi_grp->entry_count; 

} else  ( 

loop counter  “ loop_counter  + pbi_grp-*>entry  count; 

pbi_grp++;  ~ 

} 

> 

/* 

* Find  a new  entry  table  entry 
*/ 

ent ry_t o_check  - 4 ( pbi [Pbi_Hot_Ndx  - 1]  ); 
first_entry  - entry_ptr; 

l»et_entry  - 4 ( entry_ptr (entry_count  - 1]  ); 
pbi_array_index  - Pbi_Hot_Ndx  - 1; 

/* 

* Find  the  next  button  in  the  MULTI  DEF 
*/ 


next_found  - FALSE; 
while  < !next_found  ) { 

if  ( entry_to_check  first_entry  44  Pbi_Toggle_Dir  ——  TOGGLE  REVERSE  ) { 
entry_to_check  - last_entry;  - 

PPi array_index  — loop_counter  + entry_count  - 1; 

) else  if  ( ( entry_to_check  — last_entry  44 
Pbi_Toggle_Dir  --  TOGGLE_FORWARD  ) | | 

( entry_to_check  — NULL  ) ) { 
entry_to_check  - first_entry; 
pbi_array_index  ■ loop_counter; 

} else  ( 

entry_to_check  - entry_to_check  + Pbi_Toggle_Dir; 

Pb^_array_index  ■ pbi_array_index  + Pbi_Toggle_Dir; 

if  ( entry_to_check->lock_num  --  pbi [Pbi_Hot_Ndx  - 1] .lock_num  ) { 

if  ( ( entry_to_check->pbi_type  pbi [Pbi_Hot_Ndx  - 1]  .pbi  type  ) | | 

( entry_to_check->pbi_type  ~ MULTIDEF  + FP  44  ~ 

pbi [Pbi_Hot_Ndx  - 1] ,pbi_type  — MULTIDEF  + RP  ) | | 

( entry_to_check->pbi_type  --  MULTIDEF  + rr  44 


pbi_local.c 

pbi (Pbi_Hot_Ndx  - 1] ,pbi_type  MULTIDEF  + FP  ) ) { 

pbi (Pbi_Hot_Ndx  - 1] .active_flag  - OFF; 
pbi [Pbi_Hot_Ndx  - 1] .modi fy_f lag  - ON; 
modif ied++; 

entry_ptr  « entry_to_check; 
entry_ ptr->feedback_ind  - OFF/ 
entry_ ptr->active_f lag  - ON; 
entry_ptr->modify__f lag  - ON; 
modif ied++; 
next  found  ■ TRUE; 


} 


} 


} 


★ Turn  off  feedback  on  all  non-MULTIDEF  PBIs  that  have  the  same  lock  number 

* as  the  pbi  selected  ( if  it  is  greater  than  0 ) 

*/ 


if  ( ( pbi[Pbi_Hot_Ndx  - 1] .pbi_type  < MULTIDEF  ) && 

( pbi  [Pbi_Hot_Ndx  - l].lock_num  > 0 ) ) { 

entry_ptr  - first_entry; 

for  ( i - 0;  i < entry_count;  i++  ) { 

if  { ( entry_ pt r->lock_nura  " pbi  [Pbi_Hot_Ndx  - l].lock_num  ) && 

( entry_ptr  !-  & ( pbi  [Pbi_Hot_Ndx  - 1]  ) ) ) { 

entry_ptr->modif y_f lag  ■ ON; 
entry_ptr->feedback_ind  ■ OFF; 
modif ied++; 


} 

entry_jptr++; 


} 


} 

) else  { 

entry__ptr  ■ & ( pbi  [Pbi__Hot— Ndx  - 1]  ); 
pbi_array_index  * Pbi_Hot_Ndx  - 1; 

} 


/* 

* Return  invalid  for  invalid  PBIs 
*/ 

if  ( pbi_def— ptr [pbi_array_index]  . pbi_cmd_jDtr  !«  NULL  ) { 

cmd_pt  r - pbi_def_ptr  [pbi_array_index]  .pbi_cmd_jptr; 

if  ( pbi_def_ptr  [pbi_array_index]  ,pbi_cmdjptr->func_no  — INVALID  || 
pb  i_de  f_pt  r [ pb  i_a  r r a y— i nde  x ] .pbi_cmd_ptr->de  fined  “NO  II 

pbi__def_ptr  [pbi_array_index]  .pbi_cmd_ptr->valid_f  lag  “ INVALID  ) { 

return  { -1  ) ; 

} 

} 


*/ 


Switch  on  the  type  of  the  selected  PBI 


pbi_local.c 


match_found  ” FALSE; 

switch  ( pbi [pbi_array_index] .pbi_type  ) { 


/* 

* Process  standard  PBIs 
*/ 


case  ( LOCAL_PBI  + SP  ) : 

case  ( MULTIDEF  + LOCAL_PBI  + SP  ) : 

cmd_ptr  “ pbi_def_ptr [pbi_array_index] .pbi_cmd_ptr; 

if  ( pbi_def_ptr [pbi_array_index] ,pbi_bklght  !-  NO_BCKLGHT  ) { 

if  ( entry_ptr->feedback_ind  — OFF  ) { 

entry_ptr->feedback_ind  - ON; 
entry_ptr->modify_f lag  “ ON; 
modif ied++; 

} 

} 

if  ( modified  > 0 ) 

pbi_updt  ( modified,  pbi_grp->pbi_ptr,  pbi_grp->entry_count  ) ; 

if  ( ( entry_ptr->active_flag  ) 44 

( !pbi_def_ptr [pbi_array_index] .pbi_disable  ) 44 
( crad_ptr->def ined  44  cmd_ptr->valid_f lag  — VALID  ) ) { 
Current_Com  - *cmd_ptr; 

Pbi_Disable  - DISABLED; 
command  ( FALSE  ) ; 

Pbi_Disable  - ENABLED; 

Current_Com. f unc_no  - INVALID; 

} 

break; 


/* 

* Process  dependent  PBIs 
*/ 


case  ( LOCAL_PBI  + DP  ) : 

cmd_ptr  - pbi_def_ptr [pbi_array_index] .pbi_cmd_ptr; 

if  ( pbi_def_ptr [Pbi_Hot_Ndx  - 1] .pbi_disable  » ENABLED  ) { 

if  ( ( entry_ptr->feedback_ind  ~ OFF  ) 44 

( cmd_ptr->de fined  44  cmd_ptr->valid_flag  — VALID  ) ) 
entry_ptr->feedback_ind  - ON; 

else 

entry_ptr->feedback_ind  - OFF; 

entry_ptr->modify_flag  - ON; 
modified++; 

pbi_updt  ( modified,  entry_ptr,  pbi_grp->entry_count  ) ; 


break; 


/* 

* Process  dependent  group  PBIs 
*/ 


case  ( LOCAL_PBI  + DG  ) : 

case  ( MULTIDEF  + LOCAL_PBI  + DG  ) : 


if 


pbi_local.c 


( pbi_def_ptr [pbi_array_index] .pbi_bklght  !-  NO_BCKLGHT  ) { 

if  { entry j>t r->feedback_ind  **  OFF  ) { 

entry_ptr->feedback_ind  * ON; 
ent ry_ pt r->modif y_f lag  “ ON; 
modif ied++; 


} 

) 

Call  pbi_updt  for  the  modified  PBIs 


if  ( modified  > 0 ) 

pbi_updt  ( modified,  pbi_grp->pbi_ptr,  pbi_grp->entry_count  ) ; 
Process  all  of  the  commands  for  the  selected  PBI 


cmd_ptr  - pbi_def_ptr [pbi_array_index] .pbi_cmd_ptr; 

for  ( i - 0;  i < pbi_def_ptr [pbi_array_index] .pbi_cmd_cnt;  i++  ) { 

Current_Com  • *cnvd_ ptr; 

if  ( cmd^ ptr->func_no  !*  CLEARED I SPLAY  && 
cmd— pt r->f unc_no  ! ■ HALTED ISP  LAY  && 
citKl_ ptr->func_no  !■  STARTED I SPLAY  && 
cmd_pt  r->f unc_no  ! ■ START_PDISPLAY  ) { 

Pbi_Disable  - DISABLED; 
command  ( FALSE  ) ; 

Pbi_Disable  - ENABLED; 

Current_Com. func— no  * INVALID; 
cmd_jptr++; 

} else  { 

return  ( cmd_ptr->func_no  ) ; 


break; 


Process  local  dependent  clear  PBIs 

case  ( LOCAL_PBI  + DC  ) : 

pbi_grp  - Pbi_Table->group_entry ; 

Find  the  group  of  the  selected  PBI 

for  ( i * 0;  i < groupment  &&  !match_f ound;  i++  ) { 


pbi_local.c 

if  ( pbi  [pbi_array_index]  .group_num  — pbi_grp->group_num  ) { 

match_found  - TRUE; 
entry _pt r - pbi_grp->pbi_ptr; 

} else  { 

loop_counter  - loop_counter  + pbi_grp->entry_count ; 
pbi_grp++; 

} 


} 


/* 

* 

*/ 


Process  all  of  the  dependent  PBIs 


for  ( i - 0;  i < pbi_grp->entry_count ; i++  ) { 

cmd jptr  ” pbi_def_ptr [loop_counter  + i] .pbi_cmd_ptr; 

if  ( ( entry_ptr->pbi_type  " ( LOCAL_PBI  + DP  ) ) 44 

< cmd _ptr->def ined  44  cmd_ptr->valid_f lag  — - VALID  ) ) { 

if  ( { pbi_def_ptr [loop_counter  + i] .pbijbklght  !-  NO_BCKLGHT  ) 44 
( entry_ptr->feedback_ind  — ON  ) ) { 

entry_ptr->feedback_ind  - OFF; 
entry_ptr->modify_flag  - ON; 
modified++; 

} 

) 

if  ( ( entry_ptr->pbi_type  — { LOCAL_PBI  + DC  ) ) 44 

( pbi_def_ptr [loop_counter  + i] .pbi_bklght  ! ~ NO_BCKLGHT  ) ) { 

entry_ptr->feedback_ind  - OFF; 
entry_ptr->modify_flag  - ON; 
modified++; 

) 

entry_ptr++; 


) 

if  ( modified  > 0 ) 

pbi_updt  ( modified,  pbi_grp->pbi _ptr,  pbi_grp— >entry_count  ) ; 
break ; 


/* 

* Process  local  dependent  execute  PBIs 
*/ 


case  ( LOCAL_PBI  + DE  ) : 


/* 

* 

*/ 


Reset  the  feedback  and  backlighting 


if  ( pbi_def_ptr [pbi_array_index] .pbi_bklght  !-  NO_BCKLGHT  ) { 

entry_ptr->feedback_ind  - OFF; 
entry_ptr->modify_flag  - ON; 
modif ied++; 


} 


pbi_local.c 

pbi_grp  - Pbi_Table->group_entry; 

/* 

* Find  the  group  of  the  selected  PBI 

*/ 

for  ( i - 0;  i < group_cnt  &&  !match_found;  i++  ) { 

if  ( pbi [pbi_array_index] .group_num  pbi_grp->group_num  ) { 

match_found  “ TRUE; 
entry_ptr  = pbi_grp->pbi_ptr; 

} else  { 

loop_counter  = loop_counter  + pbi_grp->entry_count ; 
pbi_grp++; 

} 

} 

Call  pbi_updt  to  handle  the  changed  PBIs 
if  ( modified  > 0 ) 

pbi_updt  ( modified,  pbi_grp->pbi_ptr,  pbi_grp->entry_count  ) ; 

Process  the  PBIs  in  the  group  of  the  PBI  selected 

for  ( i - 0;  i < pbi_grp->entry_count;  i++  ) { 

cmd_ptr  - pbi_def_ptr [loop_counter  + i] .pbi_cmdjptr; 


/* 

★ 

*/ 


/* 

* 

*/ 


if  ( { entry_ptr->pbi_type  " ( LOCAL_PBI  + DP  ) ) && 

{ entry_ptr->active_f  lag  ) ££  < entryjptr->feedback_ind  ~ ON  ) && 
( cmd_j?tr->defined  &&  cmdjptr->valid_f lag  — VALID  ) ) { 

Current_Com  ■ *cmd— ptr; 

if  { ( cmdjptr->func_no  !-  CLEARED  I SPLAY  ) && 

( cnui_ptr->func_no  !■  HALTED  I SPLAY  ) && 

{ cmd_jptr->f  unc_no  !■  STARTED I SPLAY  ) && 

( cmd_ptr->func_no  !-  STARTED  I SPLAY  ) ) { 

Pbi_Disable  - DISABLED; 
command  { FALSE  ) ; 

Pbi_Disable  - ENABLED; 

Current_Com. func_ no  ■ INVALID; 

} else 

return  ( cmd_j5tr->func_no  ) ; 

} 

entry_ptr++; 

} 

break; 


/* 

* Process  local  dependent  enable  PBIs 
*/ 


case  { LOCAL_PBI  + EN  ) : 


pbi_grp  m 


pbi_local.c 


Pbi_Table->group_entry; 


/* 

* Find  the  group  of  the  selected  PBI 
*/ 

for  ( i ■ 0;  i < group_cnt  !match_found;  i++  ) { 

if  ( pbi [pbi_array_index] .group_num  --  pbi_grp->group_num  ) ( 
match_found  - TRUE; 
entry_ptr  - pbi_grp->pbi_ptr; 

) else  { 

loop_counter  - loop_counter  + pbi_grp->entry_count ; 
pbi_grp++; 

} 

} 

/* 

* Process  the  PBIs  in  the  group  of  the  selected  PBI 
*/ 


for  ( i - 0;  i < pbi_grp->entry_count;  i++  ) { 

cmd_ptr  - pbi_def _ptr [loop_counter  + i] .pbi_cmd_ptr; 

if  ( entry_ptr->active_flag  ) { 

if  ( ( entry_ptr->pbi_type  — ( LOCAL_PBI  + DP  ) ) && 

< cmd_ptr->def ined  4fi  cmd_ptr->valid_f lag  — VALID  ) ) { 
pbi_def_ptr [ loop_counter  + i] .pbi_disable  - ENABLED; 

if  ( entry_ptr->pbi_type  — ( LOCAL_PBI  + EN  ) a 

pbi_def_ptr [loop_counter  + i] .pbi_bklght  !■  NO_BCKLGHT  ) { 

entry_ptr->feedback_ind  - ON; 
entry_ptr->modify_flag  - ON; 
modified++; 

} 

if  ( ent ry_pt r->pbi_t ype  — ( LOCAL_PBI  + DS  ) && 

pbi_def_ptr [loop_counter  + i] .pbi_bklght  ! ” NO_BCKLGHT  ) { 

entry_ptr->feedback_ind  - OFF; 
entry_ptr->modify_flag  - ON; 
modified++; 

} 

if  ( entry_ptr->pbi_type  --  ( LOCAL_PBI  + DE  ) | | 
entry_ptr->pbi_type  — < LOCAL_PBI  + DC  ) ) { 

Pbi_def_ptr [loop_counter  + i] .pbi_disable  - ENABLED; 

) 

entry_ptr++; 


/* 

* Call  pbi  updt  for  the  modified  PBIs 

*/ 


if  ( modified  > 0 ) 

Pbi_updt  < modified,  pbi_grp->pbi_ptr,  pbi_grp->entry_count  ) ; 


break; 


Handle  local  dependent  disable 


pbi_local.c 


/* 

* 


*/ 


case  ( LOCAL_PBI  + DS  ) : 

pbi_grp  - Pbi_Table->group_entry; 

/* 

* Find  the  group  of  the  selected  PBI 

*/ 


for  ( i - 0;  i < group_cnt  &&  !match_found;  i++  ) { 

if  ( pbi [pbi_array_index] ,group_num  — pbi_grp->group_num  ) { 

match_found  ” TRUE; 
entry_ptr  - pbi_grp->pbi_ptr ; 

} else  { 

loop_counter  - loop_counter  + pbi_grp->entry_count ; 
pbi_grp++; 

} 

> 

* 

* Process  all  of  the  PBIs  in  the  group  of  the  selected  PBI 

*/ 


for  ( i - 0;  i < pbi_grp->entry_count ; i++  ) { 

cmd_ptr  - pbi_def_ptr  (loop_counter  + i] .pbi_cmd_ptr; 

if  ( entry_j)tr->active_f lag  ) { 

if  ( ( entry_jptr->pbi_type  " ( LOCAL_PBI  + DP  ) ) && 

( cmdjptr->def ined  &&  cnKl_ptr->valid_f  lag  — VALID  ) ) ( 

pbi_def_ptr [loop_counter  + i] .pbi_di sable  - DISABLED; 

} 

if  ( ent ry_j>t r->pbi_type  ” { LOCAL_PBI  + EN  ) && 

pbi_def_ptr [loop_counter  + i]  .pbi_bklght  !■  NO_BCKLGHT  ) { 

entry__ptr->feedback_ind  ■ OFF; 
entry_ptr->modif  y_f  lag  ■ ON; 
modif ied++; 

) 

if  ( entry_ptr->pbi_jtype  " ( LOCAL_PBI  + DS  ) £& 

pbi_def— ptr [loop_ counter  + i] ,pbi_bklght  !■  NO_BCKLGHT  ) ( 

entry_ptr->feedback_ind  * ON; 
entry_jptr->modify—  f lag  m ON; 
modif ied++; 

} 

if  ( entry_ptr->pbi_type  “ ( LOCAL__PBI  + DE  ) II 
entry_ptr->pbi_type  " ( LOCAL_PBI  + DC  ) ) { 

pbi_def_ptr [ loop_counter  + i] ,pbi_di sable  - DISABLED; 

} 

} 

entry_jptr++; 


pbi_local.c 


Call  pbi_updt  for  the  modified  PBIs 


if  ( modified  > 0 ) 

pbi_updt  ( modified,  pbi_grp->pbi_ptr,  pbi_grp->entry_count  ) 
break; 

} 

D (printf ("END  pbi_local\n") ) ; 
return  ( 0 ) ; 


* MODULE  NAME:  pbi_3etup . C 

★ 

* This  routine  initializes  the  PBI  table  entries  necessary  for  both 

* interfacing  with  the  WSA  PBI  emulation  process  and  for  processing  local 

* PBIs.  A PBI  header  is  set  up  for  each  pbi  group  to  process  the  PBIs  by 

* group . 

* 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* A.  Sprinkle  - Ford  Aerospace  Corporation 

* 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark.  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★★★★★★★★★★A*******************************************************************/ 


♦include  <stdio.h> 
♦include  <constants .h> 
♦include  <pf_key.h> 
♦include  <disp.h> 
♦include  <wex/FCpbi.h> 
♦include  <wex/EXmsg.h> 


extern 

PBI_ENTRY 

♦Pbi_Ptr; 

/* 

extern 

GROUP_ENTRY 

♦Pbi_Group; 

/* 

extern 

PBIJTABLE 

*Pbi_Table; 

/* 

extern 

struct  pbi_def 

♦Pbi_Def ; 

/* 

extern 

int 

Pbi_Env_Id, 

/* 

errno; 

extern 

short 

Pbi  Num; 

/* 

Pbi  pointer  to  Pbi  entry  table  */ 

Pbi  pointer  to  Pbi  header  table  */ 

Pbi  pointer  to  Pbi  header  table  */ 

Pbi  pointer  to  Pbi  header  table  */ 

Pbi  environment  id  for  this  display  */ 

Display  number  of  the  Display  Manager  */ 


int  pbi_setup  ( fit 

r datatype  ) 

char 

*f  It; 

/* 

char 

♦datatype; 

/* 

{ 

GROUP  1 

ENTRY 

*pbi_grp; 

/* 

PBI  ENTRY 

♦pbi; 

/* 

struct 

pbi_def 

♦pbi__def_ptr; 

/* 

struct 

pfkey_def  s *cmd_jptr; 

/* 

char 

♦full_buf fer, 

/* 

♦message; 

/* 

short 

pb  i_ p r e v_g  rp  ; 

/* 

int 

already_invalid. 

/* 

if 

/* 

j f 

/* 

index  - 0, 

/* 

length_of_cmd  » 0, 

/* 

input  flight  id  used  for  processing  */ 

input  data  type  used  for  processing  */ 

Pbi  pointer  to  Pbi  header  table  */ 

internal  pointer  for  type  PBI_ TABLE  */ 

internal  pointer  for  type  pbi_def  ( DDF  ) */ 
pointer  to  a pbi  command  structure  ♦/ 

temp  storage  for  the  complete  command  */ 
storage  for  misc.  char  variables  */ 

previous  group  found  while  searching  */ 

flag  for  invalid  local  group  commands  ♦/ 
loop  index  control  variable  */ 

loop  index  control  variable  */ 

for  calc,  digits  in  a number  */ 

length  of  a given  PBI  command  */ 


pbi_setup.c 


number_of_cmds  - 0,  /*  number  of  commends  for  a given  PBI 
modification  - 0;  /*  number  of  PBIs  modified 


D (printf ( "START  pbi_setup\n" ) ) ; 

/* 

* Set  up  Pbi  Tables  for  interfacing  with  PBI  emulation  software 

* Set  up  the  Group  Pbi  table  pointed  to  by  the  header 
*/ 


Pbi_Table->group_entry  - ( GROUP_ENTRY  * ) calloc  ( Pbi_Table->group_count, 

sizeof  ( GROUP_ENTRY  ) ) ; 

if  ( Pbi_Table->group_entry  -«  NULL  ) { 

free  ( Pbi_Table  ) ; 
free  < Pbi_Ptr  ) ; 
free  ( Pbi_Def  ) ; 

tui_msg  ( M_YELLOW,  "Error  in  group  allocation  of  PBI  Group  Table"  ) ; 
return  ( -1  ) ; 

} 

/* 

* Set  up  the  Group  Pbi  table  pointers  to  the  corresponding  entry 

* table  entries 
*/ 


pbi  “ Pbi_Ptr; 

pbi _prev_grp  - pbi->group_num; 
pbi_grp  ■ Pbi_Table->group_entry; 
pbi_grp->pbi_ptr  - pbi; 

for  ( i - 0;  i < Pbi_Num;  i++  ) { 

if  ( pbi - >group_num  ““  pbi pre v grp  ) 

( pbi_grp->entry_count  ) ++; 
else  { 

pbi_grp++ ; 

pbi_grp->pbi_ptr  - pbi; 
pbi_grp->ent  ry_count  ++ ; 
pbi_grp->group_num  - pbi->group_num; 
pbi_prev_grp  - pbi->group  num; 

) 

pbi++; 

} 


/* 

★ 

*/ 


Parse  the  message  string  for  the  portion  that  is  the  command 


modification  - 0; 

pbi  “ Pbi_Ptr; 
pbi_def_ptr  - Pbi_Def; 


/* 

* Loop  for  all  of  the  PBI's 
*/ 


for  ( i - 0;  i < Pbi_Num;  i++  ) { 

/* 

* If  the  PBI  is  initial  backlit  and  it  is  active. 

*/ 


if  ( pbi_def_ptr->pbi_bklght  — 


INIT  BCKLGHT  && 
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pbi->active_f lag  ) ( 

pbi->feedback_ind  • ON; 
pbi->modify_f lag  “ ON; 
modification++; 

} else  if  ( pbi->active_flag  ) { 

pbi->modify_f lag  - ON; 
modif ication++; 

) 

If  the  PBI  destination  is  local  and  it  is  a dependent  PBI  or  a standard  PBI. 


if  ( pbi->pbi_type  --  LOCAL_PBI  + DP  I I pbi->pbi_type  — LOCAL_PBI  + SP  I I 
pbi->pbi_type  " MULTIDEF  + LOCAL_PBI  + DP  I I 
pb i - >pb i_t ype  — MULTIDEF  + LOCAL_PBI  + SP  ) { 


Allocate  the  command  structure 


} 


pbi_def_ptr->pbi_cmd_ptr  - 

(struct  pfkey_defs  *)malloc  ( sizeof  ( struct  pfkey_defs  ) ); 
cmd_ptr  - pbi_def_ptr->pbi_cmd_ptr; 

parse_cmd  ( cmd_ptr,  pbi_def_ptr->pbi_message,  pbi_def_ptr->pbi_mesg_len, 
PBI,  0 ) ; 


If  the  PBI  is  a local  dependent  group 


if  ( pbi->pbi_type  --  LOCAL_PBI  + DG  I I pbi->pbi_type  — MULTIDEF+LOCAL_PBI+DG  ) ( 


Strip  off  the  number  of  commands 


message  ” ( char  * ) calloc  ( 1,  120  ) ; 

strncpy  ( message,  pbi_def_ptr->pbi_message,  strlen (pbi_def_ptr->pbi_message) 

sscanf  ( message,  "%d",  finumber_of_cmds  ); 
pbi_def_ptr->pbi_cmd_cnt  - numbe  r_o  f _cmds ; 
index  - 2; 

if  ( numbe r_o f _cmds  > 9 ) 
index++; 

strncpy  ( message,  &(  pbi_def  ptr->pbi  message [index]  ), 
pbi_def_ptr->pbi_mesg_len  - index  ) ; 


Allocate  the  number  of  command  structures  necessary 


pbi_def_ptr->pbi_cmd_ptr  - 

(struct  pfkey_defs  *) calloc ( numbe r_of_cmds,  sizeof  ( struct  pfkey_def3  ) 


cmd_ptr  ” pbidef  ptr->pbi  cmd  ptr; 


Loop  for  the  number  of  commands 


already_invalid  - FALSE; 

for  ( j - 0;  j < number_of_cmds;  j++  ) { 


/* 

* 

*/ 


Strip  off  the  length  of  this  command 


sscanf  ( message,  "%d",  &length_of_cmd  ); 
index  - index  +2; 
if  ( length_of_cmd  > 9 ) 
index++; 


/* 

★ 

*/ 


Strip  off  the  actual  command 


strncpy  ( message,  & { pbi_def_ptr->pbi_message [index]  ), 
pbi_def _pt  r->pbi_mesg_len  - index  ) ; 

full_buf fer  - ( char  * ) calloc  ( 1,  length_of_cmd  ) ; 
strncpy  < full_buffer,  message,  length_of_cmd  ); 
index  - index  + length_of_cmd  + 1; 

strncpy  ( message,  £ ( pbi_def _ptr->pbi_message [index]  ), 
pbi_def_ptr->pbi_mesg_len  - index  ) ; 
if  { pbi_def_ptr->pbi_mesg_len  > index  ) 

message [pbi_def _ptr->pbi_mesg_len  - index]  - ' \ 0 ' ; 

parse_cmd  ( cmd_ptr,  full_buffer,  length_of_cmd,  PBI,  0 ) ; 


If  any  command  in  the  group  is  invalid  set  a flag 


if  ( cmd _ptr->func_no  — INVALID  | | 
cmd_ptr->def ined  — NO  | | 
cmd _ptr->valid_f lag  — INVALID  ) 
already_invalid  - TRUE; 

free  ( full_buffer  ) ; 

cmd_ptr++; 

) 

free  ( message  ) ; 


/* 

* 

*/ 


If  any  command  in  the  group  is  invalid  set  them  all  to  invalid 


cmd_ptr  - pbi_def_pt r->pbi_cmd_pt r ; 
if  ( already_invalid  ) { 

for  ( j - 0;  j < numbe r_o f _cmds ; j++  ) { 

cmd_pt r->f unc_no  - INVALID; 
cmd_ptr->defined  - NO; 
cmd_ptr->valid_flag  - INVALID; 

} 

cmd_ptr++; 

} 

) 

pbi++; 


pbi_def_ptr++? 
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/* 

* Call  WSA  software  to  initialize  the  Pbi  environment  for  interfacing  with 

* the  host,  and  communicating  pbi  emulation  responses  ( ie  button  modifications 

* in  the  PBI  entry  table 
*/ 

errno  * 0; 

#if  FAC  --  YES 

Pbi_Env_Id  ” 1 ; 

♦else  , 

Pbi_Env_Id  - FCpbinit  ( fit,  datatype,  PBI_HST_RSP_OVRD,  Pbi_Table  ) ; 

♦endif  ~ 

if  ( errno  > 0 ) 

tui_msg  ( M_YELLOW,  "%d  %s",  errno,  EXerrmsg  ( errno  ) ) ; 

else 

pbi_updt  ( modification,  Pbi_Ptr,  Pbi_Num  ) ; 

D (printf ("END  pbi_setup\n") ) ; 
return  ( Pbi_Env_Id  ) ; 


} 
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********** 


* MODULE  NAME:  pbi_updt.C 

* 

* This  routine  passes  any  button  modifications  to  the  Displayer 

* to  be  processed  by  the  Displayer  process.  The  information  is  passed  through 

* shared  memory  and  a signal  is  sent  to  the  Displayer  to  identify  a possible 

* visible  button  changes.  The  process  delays  until  the  Displayer  has  set  back 

* the  pbi  shared  modification  area  for  other  pbi  use. 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* A.  Sprinkle  - Ford  Aerospace  Corporation 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

*******************************************************************^a^^a^^ 


♦include  <stdio.h> 
♦include  cconstants .h> 
♦include  <disp.h> 
♦include  <wex/FCpbi .h> 
♦include  <wex/EXmsg.h> 


extern  struct 

dm_s  hmemo  r y * Dm_Addr  e s s ; 

extern  struct 

pbi  def  *Pbi  Def; 

extern  PBI_ENTRY  *Pbi_Ptr; 

/*  Beginning  of  the  Pbi  entry  Table 

*/ 

extern  short 

Pbi_Num, 

/*  Beginning  of  the  Pbi  entry  Table 

*/ 

Disp_Num; 

/*  Display  Manager  number 

*/ 

int  pbi_updt  ( 

modified,  pbi_start,  pbi 

entries  ) 

int 

modified; 

/*  Number  of  modified  entries  to  search  for 

*/ 

PBI_£NTRY 

*pbi_start; 

/*  Offset  to  start  searching  the  Pbi  table 

*/ 

int 

pbi_entries; 

/*  Total  number  of  entries  to  search 

*/ 

{ 

PBI_ENTRY 

*pbi. 

/*  PBI  Entry  pointer  to  WSA  entry  table 

*/ 

*pbi_mark; 

Struct  pbi 

_def  * pb  i_de  f j>  t r ; 

/*  PBI  Entry  pointer  to  Display  Def  Tbl 

*/ 

int 

change^ count  - 0 

, /*  count  of  number  of  pbis  changed 

*/ 

entry_found  - 0, 

/*  flag  for  finding  a changed  pbi 

*/ 

i / 

/*  index  for  loop  control  variable 

*/ 

start_loop  -0; 

/*  loop  index 

*/ 

D (print f ("START  pbi  updt\n") ) ; 

/* 

* Search  for  modifications  to  update  the  DISPLAYER  with. 
*/ 


pbi  - Pbi  Ptr; 
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pbi_mark  ” Pbi_Ptr; 
pbi  def  ptr  “ Pbi_Def; 

if  ( modified  > 0 ) { 

/* 

* Find  the  first  changed  PBI 

*/ 


for  ( i - 0 ? i < Pbi_Num;  i++  ) { 

if  ( pbi_mark  --  pbi_start  ) 
start_loop  “ i; 

pbi_mark++; 

} 


/* 

* 

*/ 


{ 

/* 

★ 

*/ 


Initialize  the  redraw  rectangle  to  minimum  values.  Note  that  these  values 
assume  that  the  Y value  is  corrected. 


Dm_Addre s s ->pbi— redraw . ulx 
Dm_Address->pbi_redraw. uly 
Dm_Address->pbi_redraw. lrx 
Dm  Addres s ->pbi— redraw. lry 


100.0; 

100.0; 

0.0; 

0.0; 


Process  all  changed  PBIs 

for  ( i - start_loop;  ( i < (pbi_entries+start_loop)  ) &&  ( modified  > 0 ) ; i++  ) 


Copy  all  necessary  information  to  shared  memory 


if  ( pbi [i] .modify_f lag  > 0 ) { 


entry_found  - TRUE; 

Dm_Address->pbi_shmemory  .pbi_change  [change_count  ] .pbi_chg_ndx  - i; 
Dm_Address->pbi_shmemory . pbi_change  [change_count ] ,pbi_active_f  lag  - 
pbi[i] .active_f lag; 

Drn_Address->pbi_3hmemory  .pbi_change  [change_count  ] ,pbi_feedback_f  lag  = 
pbi [ i ] . feedback_ind; 


if  ( pbi_def— ptr [i] .pbi_ul_x  < 
Dm_Address->pbi_redraw . ulx 

if  ( pbi_def_ptr  [i]  .pbi__ul_y  < 
Dm_Address->pbi__redraw . uly 

if  ( pbi_def— ptr  [i]  .pbi_lr_x  > 
Dm_Address->pbi_redraw . lrx 

if  { pbi_def_ptr  [i]  .pbi_lr_y  > 
Dm_Address->pbi_redraw . lry 


Dm_Address->pbi_redraw . ulx  ) 

- pbi_def _ptr  [i]  .pbi_ul_x; 

Dm_Address->pbi_redraw . uly  ) 

- pbi_def—ptr[i].pbi_ul_y; 

Dm_Address->pbi_redraw . lrx  ) 

- pbi_def_ptr[i].pbi_lr_x; 

Dm_Address->pbi_redraw. lry  ) 

- pbi_def_ptr  [i]  .pbi_lr_y; 


pbi [i] .modify_f lag  - 0; 
change_count++ ; 
modified — ; 


} 


Set  shared  memory  flags  and  call  display  function  to  update  PBI . 


if  { entry_found  ) { 

Dm_Addres3->pbi_3hmemory . number_of_changes 
Dm_Address->pbi_shmemory . disp_num 

DDpbi_updt  ( Disp_Num  ) ; 

} 

} 

D (printf ("END  pbi_updt\n") ) ; 
return  ( 0 ) ; 


change^ count ; 
Disp_Num; 
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/********************************* 
* MODULE  NAME:  pk_chk . C 


* This  routine  draws  the  menu  for  the  user  to  verify  the  selection  of  the  PF 

* key.  A menu  is  drawn  to  show  the  definition  of  the  PF  key  and  to  prompt 

* the  user  for  a ' y'  or  ' n'  response. 


* 

★ 

* ORIGINAL  AUTHOR 


AND  IDENTIFICATION: 


★ 

* K.  Noonan  - Ford  Aerospace  Corporation 

* 


★ 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

★ Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

a****************************************** ********* *★★**★★*★***★**★**★* ******/ 


♦include  <X11/Intrinsic .h> 
♦include  <constants . h> 
♦include  <disp.h> 

♦include  <pf_ key.h> 
♦include  <wex/EXmsg.h> 


extern  Widget 

Top; 

/* 

The  top  level  widget 

*/ 

extern  struct  dm_shmemory 

*Dm_Address; 

/* 

Display  manager  shm 

*/ 

extern  short 

Disp_Num; 

/* 

display  manager  task  number 

*/ 

extern  char 

*Func_Desc  [] ; 

/* 

Array  of  labels  for  the  functions 

*/ 

int  pf_chk  ( New_Com  ) 

struct  pfkey_defs  *New_Com;  /*  PF  key  command  information 

{ 

char  str  [80] , 

strl [80]  ; 

D ( pr int f ("START  pf_chk\n")); 

/* 

* Process  each  of  the  commands  which  require  display  of  a corresponding  piece 

* of  information  (filename,  value,  etc.). 

*/ 


*/ 


switch  ( New__ Com->func_no  ) { 

case  STARTED  I SPLAY: 

get_fn  ( New_Com->disp_name,  strl  ) ; 

sprintf  ( str,  "Start  Display  (%s)?  ",  strl  ); 

break; 

case  CHG_LIM: 

sprintf  ( str,  "Change  Limits  For  MSID  (%s)?",  New_Com->limit_change  .msid  ); 
break; 

case  UPD_RATE: 

sprintf  ( str,  "Update  display  Rate  Ro  (%d)  Seconds?",  New_Com->rate/1000  ) ; 


break; 


case  LIM_GRP: 

get__fn  ( New_Com->disp_name,  3trl  ) ; 
if  { New_Com->action  — ON  ) 

sprintf  ( str,  "Turn  On  Limit  Group  (%s)?",  3trl  ); 

else 

sprintf  ( str,  "Turn  Off  Limit  Group  (%s)?",  strl  ); 
break; 

caae  PLOT: 

get_fn  ( New_Com->disp_name,  strl  ) ; 
if  ( New_Com->action  — ON  ) 

sprintf  { str,  "Start  Plot  (%s)?",  strl  ); 

else 

sprintf  ( str,  "Stop  Plot  (%s)?",  strl  ); 
break; 

case  PLOTJDVRLAY: 

get_fn  ( New_Com->disp_name,  strl  ) ; 
sprintf  ( str,  "Overlay  Plot  (%s)?",  strl  ); 
break; 

case  HIST_TAB: 

get_fn  ( New_Com->disp_name,  strl  ) ; 

sprintf  ( str,  "Update  History  Field  (%s)?",  strl  ); 

break; 

case  ZOOM_FAC: 

sprintf  ( str,  "Set  Zoom  Factor  To  (%3.1f)?",  New__Com— >f  actor  ); 
break; 

case  GDR_GETNEXT: 

get_fn  ( New_Com->disp_name,  strl  ) ; 

sprintf  { str,  "Retrieve  GDR  Change  For  (%s)?",  strl  ); 
break; 

case  DDD_UNLATCH: 

sprintf  ( str,  "Unlatch  DDD  MSID  (%s)?"f  New_Com->limit  change. msid  ); 
break;  “ 


The  default  is  to  simply  print  the  description  of  the  command  without  any 
data  values. 


default : 

sprintf  ( str,  "%s?",  Func_Desc [New_Com->func_no]  ); 
break; 

} 


Call  function  to  display  and  manage  a popup.  The  result  of  this  function  is 
returned  to  the  calling  function.  MDC  - add  a new  help  entry  for  this  type 
of  popup . 


D (printf ("END  pf_chk\n")); 

return  ( tui_display_question  ( Top,  "Verify  Function  Key 


str,  -1,  NULL,  0 ) ) 


p!ot_msid.c 


* MODULE  NAME:  plot_msid 


* This  routine  calculates  the  x,y  pixel  coordinates  and  plots  all 

* new  values  for  the  given  plot  until  the  end  of  the  plot  data  file 

* is  reached,  or  an  out-of-range  value  is  encountered. 

* 

* DEVELOPMENT  NOTES: 


★ 

* o Log  and  Polar  axes  are  not  functional .. .only  Cartesian  axes 

* are  functional. 


* 


★ 

* SPECIAL  NOTES: 

★ 

★ o This  function  is  not  indented,  to  show  the  structure  of  the 

* function  as  a whole,  rather  each  major  section  begins  at  the 

* left  margin. 

★ 

★ 

★ ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 

★ 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough  - Software  Engineering  Section 

★ Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

a*****************************************************************************/ 


♦include  <stdio.h> 
♦include  <X11/Xlib.h> 
♦include  <wex/EXmsg.h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 
♦include  <DDplot.h> 


extern 

struct 

dm  s hmemo  ry  * Dm_Addr e s s ; 

/* 

extern 

struct 

bg_r ec  s Bg_Re  c ; 

/* 

extern 

union 

p__data  Data; 

/* 

extern 

short 

End_of_f  ile; 

/* 

plot_msid (disp_num,  plot_ptr) 

short  disp_num;  /* 

struct  plot— ptrs  *plot_ptr;  /* 

{ 

register  char  *data_buf fer;  /* 

static  short  static^ flag;  /* 

static  short  miss_flag;  /* 

*xdisplay;  /* 


ptr  to  DM  shared  memory  */ 

ptr  thru  all  background  records  */ 

union  structure  for  plot  data  */ 

global  flag  to  aid  in  plot  redraw  */ 


display  number  containing  plot  */ 
ptr  to  effective  plot  */ 

local  ptr  to  data  buffer  */ 

plot  with  static  color  */ 

plot  with  missing  color  */ 

ptr  to  X display  in  DM  sh  mem  */ 


Display 


Window 

XPoint 

GC 

XGC Values 


xwindow; 

point; 

gc; 

*gc_val; 
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/*  XID  of  display  window  in  DM  shm  */ 
/*  new  plot  point  */ 
/*  XID  of  GC  in  DM  shared  memory  */ 
/*  ptr  to  GC  values  in  DM  sh  memory  */ 


struct  shm_decom  *decom_entry;  /*  ptr  to  current  decom  entry  */ 
struct  plot_tmplt  *tmplt _ptr;  /*  ptr  to  plot  template  structure  */ 
struct  msid_info  *msid_info;  /*  ptr  thru  msid  structure  */ 
struct  msid_info  *msid_pair;  /*  ptr  thru  msid  structure  */ 
struct  axis_info  *x_ptr;  /*  ptr  thru  x axis  records  */ 
struct  axis— info  *y_ptr;  /*  ptr  thru  y axis  records  */ 


double  xvalue,  yvalue, 
save^data, 
scale_ratio, 
*new_scale, 
*pr_new_scale, 
low_value, 
high_value, 
x_low_value, 
y_low_ value, 
t emp_lo  w_va  lue , 


t emp_h  igh_va  lue , 

p r_l  o w_va  1 ue , 
p r_h  igh_va  1 ue ; 


/*  temp  in  comp,  of  x/y  log  values  */ 
/*  1st  polar  data  value  calculated  */ 
/*  used  for  y angle  polar  processing*/ 
/*  new  scale  val  for  main  msid  axis  */ 
/*  new  scale  val  for  pair  msid  axis  */ 
/*  main  msid  axis  low  scale  value  */ 
/*  main  msid  axis  high  scale  value  */ 
/*  new  low  val  for  x log  processing  */ 
/*  new  low  val  for  y log  processing  */ 
/*  if  low  scale  value  is  greater  */ 
/*  than  the  high  scale  value,  this  */ 
/*  value  contains  the  high  value  */ 
/*  and  this  value  contains  the  low  */ 
/*  scale  value.  ★/ 
/*  pair  msid  axis  low  scale  value  */ 
/*  pair  msid  axis  high  scale  value  */ 


float  char_height, 

xpoint,  ypoint, 
factor_x,  factor^ y, 
line_width, 
x_wc_pt , y_wc_pt ; 


/*  height  of  char,  to  be  plotted  */ 
/*  intermediate  calculation  temp  */ 
/*  coord  transformation  factors  */ 
/*  current  data  plot  line  width  */ 
/*  temporary  world  coordinate  points*/ 


unsigned  long  gc_mas)c; 


/*  mask  for  GC  change  values  */ 


long 

status; 

int 

axis_type,  pr_axis_ type, 
update  - NO, 

bytes_read, 

byte3_to_read; 

short 

loc_stat_f  lag, 
plot_color, 
line_type, 
x_axis_flag  - NO, 
plot_f lag. 

done, 

xmultiply  - 1, 
ymultiply  - 1, 
*auto_scale, 
*pr_auto_scale, 
auto_f lag,  pr_auto_f lag; 

char 

* s t r t _o  f _da  t a ; 

D (print f ("START  plot_msid\n" ) ) ; 


/*  status  of  plot  data  value  */ 

/*  main/pair  axis  type  */ 
/*  set  if  update  to  screen  occurs  */ 
/*  loop  count  variable  */ 
/*  # bytes  read  from  plot  data  file  */ 
/*  # bytes  requested  f/  pit  data  fl  */ 

/*  local  static  flag  */ 
/*  current  data  plot  color  */ 
/*  current  data  plot  line  type  */ 
/*  flag  set  if  main  msid  axis  is  x */ 
/*  negated  if  current  value  will  */ 
/*  not  be  plotted.  */ 
/*  set  when  finished  processing  */ 
/*  set  to  1 if  low  < high  scale  */ 
/*  set  to  -1  if  low  > high  scale  */ 
/*  rescale  low  scale  or  high  scale  */ 
/*  rescale  low  scale  or  high  scale  */ 
/*  main/pair  auto  scale  flag  */ 


/*  st rt  of  msid  data  in  data  buffer  */ 


/* 

* Set  up  initial  pointers  for  active  plot. 
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tmplt_ptr  “ plot_ ptr->plot — pos; 
bytes_to_read  - plot_ptr->buf_size; 
data_buffer  - plot_ptr->plot_data; 

/* 

* Set  up  local  graphics  context  variables 

* and  world  coord  transformation  factors 
*/ 

xdisplay  - Dm_Address->xdisplay  [disp_num]  ; 
xwindow  - XtWindow (plot _j>tr->draw_win) ; 
gc  - Dm__Address->gc  [disp_num]  ; 
gc_val  - &Dm_Address->gc_val  [disp_num]  ; 

factor_x  - tmplt_ptr->factor_x; 
factor_y  - tmplt_ptr->factor_y; 

^★★★★★★★★★★★★★★★************************************************************** 

* Loop  through  the  plot  data  log  file  until  end-of-file 

* or  until  the  done  flag  is  set. 

★a***************************************************************************/ 


done  - NO; 

while  (done  --  NO)  { 

bytes_read  - read(plot_ptr->plot_fp,  datajbuffer,  bytes_to_read) ; 

if  (bytes_read  < bytes_to_read)  { 
done  • YES; 

End_of_file  - YES; 

D (printf ("END  plotjmsid  ***  End_of_file\n") ) ; 
return (update) ; 


/* 

* Loop  through  all  actual  maids. 

*/ 

for  (k-0;  k<plot_j»tr->header->actual_msids;  k++)  { 

/* 

* Set  up  the  local  msid  ptrs  to 

* access  the  msid  information. 

*/ 

msid_ info  - plot— ptr->msids  + k; 
msidjpair  - msid_inf o->pair_ptr; 

/* 

* Check  to  be  sure  haven't  already 

* processed  the  msid  pair. 

*/ 

if  (msid_j>air->msid_indx  > k)  { 


/★a*************************************************************************** 

* Setup  local  variables  for  msid  pairs  attributes  and  axis -dependent 

* attributes  needed  for  plotting  the  point. 

★★★★★★★★★★★★★★★★★★★A*********************************************************/ 

/* 
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* Main  maid:  x axis  Pair  maid:  y axis 

V 

if  (msid_info->xory_axis  " ' X' ) { 

x_j>tr  - plot_ptr->axis  + msid_info->axis_ num  - 1; 
y_ptr  - plot _ptr->axis  + plot_ptr->header->xaxes_num 

+ msid_pair->axia_num  - 1; 
axis_type  - x_j>tr->axia_ type; 
high_value  - x_ ptr->high_value; 
low_value  *■  x_ ptr->low_value; 
auto_acale  - & (x— ptr->auto_scale) ; 
new_scale  - & <x_jptr->new_scale) ; 

if  (x_ptr->auto_f lag  — 'Y') 
auto_flag  - YES; 

else 

auto_flag  - NO; 

pr_axis_type  - x__ptr->axis_type; 
pr_high_ value  - y_ptr->high_value; 
pr_low_value  - y_ptr->low_value; 
pr_auto_scale  - My_jptr->auto_scale)  ; 
pr_new_scale  - 6 (y_ptr->new_scale) ; 

if  (y_ptr->auto_f lag  — 'Y') 
pr_auto_flag  - YES; 

else 

pr_auto_flag  - NO; 

/* 

* Main  maid:  y axia  Pair  maid:  x axis 
*/ 


} else  { 

“ plot _ptr->axis  + maid_pair->axis_num  - 1; 
y_ptr  - plot _ptr->axis  + plot_ptr->header->xaxes_num 
+ msid_info->axis_num  - 1; 
axia_type  - y_ptr->axis_type; 
high_value  * y_ ptr->high_value; 
low^value  - y_ptr->low_value; 
auto_scale  - & (y_ptr->auto_scale) ; 
new_scale  - & (y_jptr->new_scale) ; 

if  (y_ptr->auto_flag  — 'Y') 
auto_flag  - YES; 

else 

auto_ flag  - NO; 

pr^axis^ type  - y_j>tr->axis_type; 
pr_high_value  - x_ptr->high_value; 
pr_low_ value  • x_ptr->low_value; 
pr_auto— scale  - & <x_ptr->auto_scale) ; 
pr_new_scale  - & (x_ptr->new_scale) ; 

if  (xj)tr->auto_f lag  ~ 'Y') 
pr_auto_flag  - YES; 

else 

pr_auto_flag  - NO; 


/* 

* Axis  dependent  value  initialization 
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*/ 


if  (x_ptr->low_value  > x_ptr->high_value) 
xmultiply  * -1; 

else 

xmultiply  ■ 1; 

x_low_value  - x_-ptr->low_value  * xmultiply; 

if  (y_ptr~>low_value  > y_ptr->high_value) 
ymultiply  * -1; 

else 

ymultiply  • 1; 

y_low_value  - y_ptr->low_value  * ymultiply; 

if  (low_value  > high— value)  { 

temp— low_value  ■ high-value; 
temp— high__value  ■ low— value; 

} else  { 

temp— low— value  *■  low_j value; 
temp— high_value  ■ high— value; 

} 


/***************************************************************************** 

* Continue  only  if  both  axes  are  active.  Initialize  plot  flag  to  yes. 
*******************★***★*****************************************************/ 

if  (X—ptr->axiS— active  — YES  &&  y^ ptr->axiS-active  — YES)  { 

plot— flag  ■ YES; 


/★a*************************************************************************** 

* Extract  data  from  the  data  buffer  using  the  decom  information  and 

* set  the  status  flags. 

a****************************************************************************/ 

/* 

* Update  decom  entry  ptr  to  point  to  decom  entry  for  current  maid 
*/ 

decom— entry  - plot— ptr->plt— decom  + k; 

/* 

* Check  to  be  sure  there  is  no  error  in  the  decom  entry 
*/ 


if  (decom_ entry->error  " NULL)  { 

/* 

* Extract  data  pt  from  data  buf 
*/ 


strt— of— data  - data_ buffer  + decom_entry->of fset  + 2; 
status  - extract  (strt— of_ data,  decom.— entry) ; 

P— dataval  (decom— entry)  ; 


'* 

* Check  status  of  data  and  set  approp.  flags 
*/ 


if  (status  & MISSING  DATA)  { 
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plot_flag  - NO; 
miss_flag  - YES; 


if  (Status  & DEAD_DATA) 
plot_flag  - NO; 

if  (status  & STATIC_DATA)  ( 
loc_stat_f lag  - YES; 

/*  set  static  flag  on.  When  the  data  starts  back 

* up,  the  line  between  the  last  pt  before  the 

* data  went  static  and  the  first  pt  when  data 

* comes  back  will  be  plotted  in  static  color  */ 

static_flag  - YES; 

} else 

loc_stat_f lag  - NO; 


* If  status  check  didn't  negate  plot  flag,  check  if  plot  value  is  less  than 

* lowest  plot-able  value  or  higher  than  highest  plot-able  value.  If  it  is, 

* either  set  flags  to  signal  a rescale  of  the  plot  and  exit  (if  auto-scale 

* is  enabled  for  this  axis)  or  adjust  the  plot  value  to  the  low  or  high 

* value  axis  and  continue. 

* ‘fr**************************************************************************^ 

if  (plot_flag  !-  NO)  { 


/* 

* If  extracted  data  value  is  less  than  plot  low  value  then 

* setup  variables  to  signal  a rescale  (if  auto-scale  is  enabled) 

* or  adjust  plot  value  to  plot  along  low  value  axis. 

V 


if  (Data.ddata  < temp_low_value)  { 

if  (auto_flag  — YES  &&  axis_type  !-  POLAR)  { 
done  - YES; 
plot_f lag  - NO; 

if  (low_value  > high_value) 

*auto_scale  - NEW_HIGH_SCALE; 

else 

*auto_scale  - NEW_LOW_SCALE ; 

if  (Data.ddata  > 0) 

*new_scale  - Data.ddata  * .7; 

else 

*new_scale  - Data.ddata  + (Data.ddata  * .3); 


) else 

Data.ddata  - temp_low_value; 


If  extract  data  value  is  greater  than  plot  high  value  then 
setup  variables  to  signal  a rescale  (if  auto-scale  is  enabled) 
or  adjust  plot  value  to  plot  along  high  value  axis. 


) else  if  (Data.ddata  > temp_high_value)  ( 


if  (auto_flag 


YES)  { 


done  - YES ; 
plot_flag  - NO; 
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if  (low_value  > high_value) 

♦auto  scale  m NEW_LOW_SCALE; 

else 

*aut0_scale  - NEW_H IGH_SCALE ; 
if  (Data.ddata  >0) 

*new_scale  - Data.ddata  + (Data.ddata  * .3); 

else 

*new_scale  m Data.ddata  * .7; 

) else 

Data.ddata  - temp_high_value; 

} 


/ * Compute  the  X pixel  coordinate  plot  point  for  main  msid  on  the 
* appropriate  axis.  ***************************/ 


/* 

* Main  msid  is  on  X axis ...  compute  x coordinate 
*/ 


if  (msid_inf o->xory_axis  ““  'X'  &&  plot_flag  ““  YES)  { 


/* 

★ 

★ 

★ 


*/ 


/* 

* 

*/ 


If  processing  logarithmic  type  axis,  then  use 
the  logarithmic  calculation  for  the  x point 


if  (axis_type  — LOGARITHMIC)  { 

xvalue  - (double)  (Data.ddata  * xmultiply)  - x_low_value; 
xpoint  - ((float)  sqrt  ((double)  xvalue))  / xjptr->logval  * 100; 
point. x - (short)  ((xpoint  * x_ptr->scale_ratio)  * factor_x) ; 


If  processing  polar  type  axis,  save  the  data  value  for  later 
calculations.  We  will  calculate  both  points  when  the  second  value 
is  received- — we  need  both  values  to  calculate  each  point . 


) else  if  (axis_type  " POLAR) 
save  data  - Data.ddata; 


Cartesian  axis 


else 

point. x » (short)  ((Data.ddata  - x_ptr->low_value) 

* x_ptr->scale_ratio  * (double)  factor_x) ; 

x_axis_flag  « YES; 

/* 

* Main  msid  is  on  Y axis ...  compute  y coordinate 
*/ 
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} else  { 


/* 


* 


* 

*/ 


/* 

* 

★ 

* 

*/ 


/* 

* 

*/ 


) 


If  processing  logarithmic  type  axis,  then  use 
the  logarithmic  calculation  for  the  x point 


if  (axis_type  — LOGARITHMIC)  { 

yvalue  - (double)  (Data.ddata  * ymultiply)  - y_low_value; 
ypoint  - ((float)  sqrt  ((double)  yvalue))  / y_j>tr->logval  * 100; 
point. y - (short)  ((100.0  - (ypoint  * y_ptr->scale_ratio) ) 

* factor_y) ; 


If  processing  polar  type  axis,  save  the  data  value  for  later 
calculations.  We  will  calculate  both  points  when  the  second  value 
is  received — we  need  both  values  to  calculate  each  point . 


} else  if  (axis_type  --  POLAR) 
save_data  « Data.ddata; 


Cartesian  axis 


else 

point .y 


(short) 

* 


((100.0  - ((Data.ddata  - y_ptr->low_value) 
y_ptr->scale_ratio) ) * factor__y)  ; 


/a**********************************,***  a*******************************^^^ 

* If  main  msid  is  begin  plotted  against  local  time,  calculate  the  coordinate 

* on  the  time  axis  and  check  for  time  expiring  on  the  time  axis. 
************************** ************************************************** ,, 

if  (strcmp (msid_pair->msid_name,  LOC AL_T IME ) — 0)  { 

/* 

* Main  value  was  an  x axis  msid,  so  need  y axis  coordinate 


/* 

* 

*/ 


if  (x_axis_flag  — YES)  ( 

Set  local  low  and  high  plot  value  variables 


if  (y_ptr->low_value  > y_ptr->high_value)  { 
t emp_  1 o w_va  1 ue  - y_j>tr->high_value; 
temp_high_value  “ y ptr->low_value; 

) else  { 

temp_low_value  - y_ptr->low_value; 
tejnp_high_value  » y_ptr->high  value; 

) 


/* 

if  time  elapsed  is  less  than  the  start  time,  turn  off 

* plot  flag.  If  time  expiration,  turn  off  plot  flag  and 

* signal  end  of  plot. 

*/ 


if  (plot_ptr->seconds_ elapsed  < temp_low_value) 
plot_flag  - NO; 

else  if  (plot_ptr->seconds_elapsed  > temp_high_value)  { 
msid_inf o->f ir3t_ pt  - YES; 

y^pt r “>end offplot  " YES; 

plot_flag  * NO; 


If  end  of  plot  code  is  wrap  or  rescale,  set  done 
flag  so  will  exit  this  routine  for  redraw  of  plot. 


if  (y_pt r->end_code  >■  4) 
done  - YES; 


★ If  no  time  expiration,  compute  y coord  for  data  value 

*/ 


) else  { 


* If  processing  logarithmic  type  axis,  then  use  the 

★ logarithmic  calculation  for  the  y point. 

*/ 


/* 

it 

*/ 


if  (pr_axis_type  — LOGARITHMIC)  { 

yvalue  - (double)  (plot_ ptr->seconds_elapsed 

* ymultiply)  - y_low_value; 
ypoint  - ((float)  sqrt  ((double)  yvalue)) 

/ y_ptr->logval  * 100; 

point. y - (short)  ((100.0  - (ypoint  * y_ptr->scale_ratio) ) 

* factor_y) ; 


Cartesian  axis 


) else 

point. y - (short)  ((100.0  - { (plot_ptr->seconds_elapsed 
- y_ptr->low_value)  * y_jptr->scale_ratio)  ) 

* factor_y)  ; 

) 

x_axis_flag  • NO; 


/* 

* Main  value  was  a y axis  msid,  so  need  an  x axis  coordinate 

*/ 


} else  { 


/* 

* Set  temp  low  and  high  values 

*/ 


if  (x_jptr->low_value  > x_j>tr->high_value)  ( 
temp_low_value  - x_j>tr->high_value; 
temp_high_value  - x__ ptr->low_value; 

} else  { 

temp_low_value  - x_jptr->low_value; 


} 
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t emp_h igh_va 1 ue  m x_ptr->high_value; 


/* 

* If  time  elapsed  is  less  than  the  start  time,  turn  off 

* plot  flag.  If  time  expiration,  turn  off  plot  flag  and 

* signal  end  of  plot. 

*/ 


if  (plot_ptr->seconds_elapsed  < temp_low_value) 
plot_flag  - NO; 

else  if  (plot_ptr->seconds_elapsed  > temp_high_value)  { 
x_ptr->end_of_plot  - YES; 


/* 

* If  end  of  plot  code  is  wrap  or  rescale,  set  done 

* flag  so  will  exit  this  routine  for  redraw  of  plot. 
*/ 


if  (x_ptr->end_code  >-  4) 
done  - YES; 

msid_info->first_pt  - YES; 
plot_f lag  - NO; 


/* 

* 

*/ 


If  no  time  expiration,  compute  x coord  for  data  value 


} else  { 


/* 

* If  processing  logarithmic  type  axis,  then  use 

* the  logarithmic  calculation  for  the  x point 

V 


if  (pr_axis_type  — LOGARITHMIC)  { 

xvalue  — (double)  (plot_ptr->seconds_elapsed 

* xmultiply)  - x_low_value; 
xpoint  - ((float)  sqrt  ((double)  xvalue)) 

/ x_ptr->logval  * 100; 

point. x - (short) ( (xpoint  * x_ptr->scale_ratio)  * factor  x)  ; 


If  processing  polar  type  axis,  then  calculate 
both  points  using  save_data  for  the  y point. 


} else  if  (pr_axis_type  --  POLAR)  { 

xpoint  - plot_ptr->seconds_elapsed; 
ypoint  - save_data  * (PI  / 100.0); 

point. x - (short)  ((((xpoint  * (float)  cos ( (double) ypoint) ) 
* x_ptr->scale_ratio)  + 50.0)  * factor  x) ; 


/* 


scale_ratio  - 

100.0  / ( (x_ptr->high_value  - x_ptr->low_value)  *2); 

point. y - (short)  ((((xpoint  * (float)  sin ((double)  ypoint)) 
* scale_ratio)  + 50.0)  * factor_y) ; 


Cartesian  axes 
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} else 

point. x - (short) 

( (plot_ptr->seconds_elapsed  - x_ptr->low_value) 
* x_ptr->scale_ratio  * factor_x) ; 

) /*  end  no  time  expiration  */ 

) /*  end  y axis  msid  */ 


,************************■ ***************************************************** 

* If  main  msid  is  not  being  plotted  against  local  time,  it  is  being  plotted 

* against  another  msid. . .extract  data  from  buffer  for  the  pair  axis  msid. 

*. ********************************************************************* */ 


} else  { 


* Update  decom  entry  pointer  to  point  to  pair  msid 

V 

decom_entry  - plotjptr->plt_decom  + msid _pair->msid_indx; 
if  (decom_entry->error  ” NULL)  { 


/* 

* 

*/ 


/* 

★ 

★ 

* 


*/ 


Extract  data  from  buffer  for  pair  msid 


strt_of_data  - datajbuffer  + decom_entry->of f set  + 2; 
status  * extract  (strt_of_data,  decom_entry) ; 
p_dataval (decom_entry) ; 

if  (status  & MISSING_DATA)  { 
plot_f  lag  » NO; 
miss_flag  * YES; 

) 


if  (status  & DEAD_DATA) 
plot_flag  - NO; 

if  (status  & STATIC_DATA)  { 
loc_stat_flag  - YES; 


Set  static  flag  on.  When  the  data  starts  back 
up,  the  line  between  the  last  point  before  the 
data  went  static  and  the  first  point  when  data 
comes  back,  will  be  plotted  in  static  color 


static_flag  - YES; 

} else 

loc__stat__f lag  - NO; 


/******★**★*★★***★**★ *********** ********* *** ***************** *********** ****** 

* If  status  check  didn't  negate  plot  flag,  check  if  pair  axis  plot  value  is 

* less  than  lowest  plot-able  value  or  higher  than  highest  plot-able  value. 

* if  it  is,  either  set  flags  to  signal  a rescale  of  the  plot  and  exit 

* (if  auto-scale  is  enabled  for  this  axis)  or  adjust  the  plot  value  to 
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* the  low  or  high  value  axis  and  continue. 

*************************±*********i'i'***i'*i'i'it*i'i'i'i'i'i'i'i'iti'i'mi'i'i'i'i'i'i'i'i'i'  + i'itigi'i' 


*/ 


if  (plot_f  lag  — YES) 


/* 

* 

*/ 


Setup  temp  hi/low  values 


if  (pr_low_value  > pr_high_value)  { 
temp_low_value  - pr_high_value; 
teitp_high_value  - pr_low_value; 

} else  { 

temp_low_value  ■ pr_low_value; 
temp_high_value  - pr_high_value; 

} 


/* 

* If  extract  data  value  is  less  than  plot  low  value  then 

* setup  variables  to  signal  a rescale  (if  auto-scale  is  enabled) 

* or  adjust  plot  value  to  plot  along  low  value  axis. 

*/ 

if  (Data.ddata  < temp_low_value) 

if  (pr_auto_f lag  ~ YES  &&  pr_axis_type  !«  POLAR)  { 
done  * YES; 
plot_f lag  - NO; 

if  (pr__low_value  > pr_high_value) 

*pr_auto_scale  - NEW_HIGH_SCALE; 

else 

*pr_auto_scale  - NEW__LOW__SCALE ; 

*pr_new_scale  - Data.ddata  + (Data.ddata  *.3); 

} else 

Data.ddata  • temp_low_value; 

/* 

* If  extract  data  value  is  greater  than  plot  high  value  then 

* setup  variables  to  signal  a rescale  (if  auto-scale  is  enabled) 

* or  adjust  plot  value  to  plot  along  high  value  axis. 


else  if  (Data.ddata  > temp_high_value) 

if  (pr_auto_flag  " YES)  { 
done  - YES; 
pl°t_ flag  - NO; 

if  (pr_low_value  > pr_high_value) 
*pr_auto_scale  - NEW_LOW_SCALE; 

else 

*pr_auto_scale  - NEW_HIGH_SCALE; 
*Pr_new_scaie  ■ Data.ddata  + (Data.ddata  *.3); 
} else 

Data.ddata  - temp_high_value; 


/******************************************* 

* If  plot  flag  was  not  negated  by  the  range  check,  compute  the  X pixel 
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* coordinate  plot  point  for  the  pair  maid  on  the  appropriate ^axis . ^ 


if  (plot_flag  “ YES)  { 


★ Main  maid  was  a Y axis  ms id. .. compute  an  x axis  coordinate. 

*/ 


if  (x  axis_flag  « NO)  { 


★ If  processing  logarithmic  type  axis,  then  use  the 

★ logarithmic  calculation  for  the  x point. 

*/ 

if  (pr_axis_type  “ LOGARITHMIC)  ( 

xvalue  - (double)  (Data.ddata  * xmultiply)  - x_low_value; 
xpoint  - ((float)  sqrt  ((double)  xvalue)) 

/ x_ptr->logval  * 100; 

point. x - (short)  ((xpoint  * x_ptr->scale_ratio)  * factor_x) ; 

/* 

* If  processing  polar  type  axis,  then  calculate  both 

★ points  using  save_data  for  the  y point. 

*/ 

) else  if  (pr_axis_type  — POLAR)  ( 
xpoint  - Data.ddata; 
ypoint  • save_ data  * (PI  / 180.0); 

point. x - (short)  ((((xpoint  * (float)  cos ( (double) ypoint ) ) 

* x__ ptr->scale_ratio)  + 50.0)  * factor_x)  ; 

scale_ratio  - 

100.0  / ( (x_jptr->high_value  - x_jptr->low_value)  * 2); 

point. y - (short)  ((((xpoint  * (float)  sin((double)  ypoint)) 

* scale_ratio)  + 50.0)  * factor_y) ; 

/* 

* Cartesian  axis 
*/ 

) else 

point. x - (short)  ((Data.ddata  - x_ ptr->low_value) 

* x_ptr->scale_ratio  * factor _x) ; 

/* 

* Main  msid  was  an  x axis  ms id. .. compute  y axis  coordinate 
*/ 


) else  ( 

x_axis_flag  - NO; 


/* 

* If  processing  logarithmic  type  axis,  then  use  the 

* logarithmic  calculation  for  the  y point. 

*/ 

if  (pr_axis_type  — LOGARITHMIC)  { 

yvalue  - (double)  (Data.ddata  * ymultiply)  - y_low_value; 
ypoint  - ((float)  sqrt  ((double)  yvalue)) 

/ y_ptr->logval  * 100; 


point. y * (short)  {{100.0  — (ypoint  * y ptr— >scatl©  ratio)) 

* factor_y) ; 


/* 

* If  processing  polar  type  axis,  then  calculate  both 

* points  using  save_data  for  the  x point. 

*/ 


) else  if  (pr_axis_type  »«  POLAR)  { 
xpoint  - save_data; 
ypoint  - Data.ddata  * (PI  / 180.0); 

point. x - (short)  {{((xpoint  * (float)  cos { (double) ypoint ) ) 

* x_ptr->scale_ratio)  + 50.0)  * factory); 


scale_ratio  - 

100.0  / ( <x_ptr->high_value  - x_ptr->low_value)  * 2); 

point .y  * (short)  ((((xpoint  * (float)  sin ((double)  ypoint)) 

* scale— ratio)  + 50.0)  * factor_y) ; 


/* 

* 

*/ 


Cartesian  axis 


) else 

point. y - (short)  ((100.0  - ((Data.ddata  - yjptr->low_value) 
* y_ptr->scale_ratio) ) * factor_y)  ; 

) /*  end  y axis  */ 

) /*  end  plot  flag  check  after  2nd  axis  range  check  */ 

} /*  end  plot  flag  check  after  status  check  of  2nd  axis  msid  */ 


decom  entry  error  on  2nd  axis  msid,  negate  plot  flag 


t************** 


} /*  end  of  decom  error  check  for  2nd  axis  msid  */ 

else 

plot_flag  - NO; 


) /*  end  of  2nd  axis  msid  calculation  */ 

) /*  end  plot  flag  check  after  status  check  of  1st  axis  msid  */ 

/********************* ********************************★******.**************** 
* If  decom  entry  error  on  1st  axis  msid,  negate  plot  flag 

} /*  end  of  decom  error  check  for  1st  axis  msid  */ 

else 

plot_flag  - NO; 


* If  data  is  static  and  user  does  not  request  static  data  to  be  plotted, 

* negate  plot  flag. 


/*  RLK  9/17/90  Need  to  figure  out  how  these  static  flags  work  and  make  sure 
they  work  right.  Goal:  if  lines  connect  the  plot  pts,  is  to 

the  static  color  up  to  the  pt  where  the  data  went 
non-static  (this  may  also  apply  to  missing  data) . */ 
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YES)  ) 


if  ( (msid_info->stat_f lag  --  0)  s&  {loc_stat_flag 
plot_flag  ■ NO; 

else 

loc_stat_f lag  - NO; 

/a**************************************************************************** 

* If  plot  flag  has  not  been  negated,  set  up  the  graphics  context  for  the 

* plot  and  plot  the  value. 

★★a**************************************************************************/ 


if  (plot_ flag  " YES)  { 
update  * YES; 


* Set  the  color,  line  type,  and  line  width 
*/ 

plot_color  - msid_ inf o->plot__color; 

if  (status  & STATIC_DATA) 

plot_color  * msid__info->stat_color ; 

if  ((status  & CRITICAL_HIGH)  j|  (status  & CRITICAL_LOW) ) { 

plot_color  - msid_info->crit_color; 
line_type  - msid_info->crit_type; 
line— width  - msid_info->crit_width; 

} else  if  ((status  & LIMIT_HIGH)  II  (status  & LIMIT_LOW) ) { 

plot_color  * msid_inf o->limt_color ; 
line_type  - ms id_info->ope retype; 
line_width  - msid_JLnf o->oper_width; 

} else  if  (plot— ptr->ovl_color_f Ig  " YES)  { 

plot_color  - msid_inf o->ovl_color; 

} else  { 

line__type  ■ msid_ info->line_type; 
line_width  - msid_info->line_width; 

} 

/* 

* Adjust  the  value  by  the  zoom  offset 

* (zero  if  zoom  is  not  in  effect) . 

*/ 

point. x - point. x + tmplt_ptr->of f set— x; 
point. y - point. y + tmplt_pt r->of f set_ y; 

/* 

* If  this  is  not  the  first  value  on  this  plot,  plot  the  point. 
*/ 

if  (msid_info->f irst_pt  " NO)  { 

/* 

* 

*/ 


Plot  the  value  based  on  plot  type 
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switch  (msid_info->plot_type)  { 

/* 

* If  plot  type  is  LINE,  connect  the  previous  point  and 

* the  current  point  with  a line. 

*/ 


case  ('L' ) : /*  LINE  */ 

if  (miss_flag  — YES)  ( 

plot_color  - msid_info->miss_color; 
miss_flag  - NO; 

) 

if  (static_flag  — YES)  { 

plot_color  - msid_info->stat_color; 
static_flag  - NO; 

} 

if  (gc_mask  - set_gc (xdisplay,  gc,  gc_val,  plot_color, 
line_type,  line_width, 

NO_CHANGE,  NO_CHANGE,  NO_CHANGE,  NO_CHANGE) ) 
XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 

XDrawLine (xdisplay,  xwindow,  gc, 

msid_info->prev _pt_x,  msid_info->prev_pt_y, 
point. x,  point. y);  “* 


break; 


/* 

If  plot  type  is  CHARACTER,  set  up  the  font  and  then 

* determine  whether  to  connect  the  plot  characters  and 
whether  to  erase  previous  plot  characters  based  on 

* the  plot  connection  code. 

*/ 


case  ('C'):  /*  CHARACTER  */ 


Plot  the  value  as  a character.  If  plot  connection 
indicates,  erase  previous  plot  point  and/or  connect 
the  previous  and  current  plot  points  with  a line. 

NOTE:  this  is  a progressive  switch. . .there  is  no 
-break-  stmt  until  the  end  of  the  last  case. 


/* 

* 

V 


switch  (msid_info->plot_conn)  { 

Connect  points  erasing  prev.  character 


case  ( ' E' ) : 


XSetBackground (xdisplay,  gc,  Bg_Rec . s_color) ; 

XDrawString (xdisplay,  xwindow,  gc, 
nts  i d_  i n f o - >p  r e v_j>  t_x , 
ms  i d_i  n f o - >p  re v_p  t _y , 
msid_info->plot_char,  *1); 


XSetBackground (xdisplay,  gc,  plot_color) ; 
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* Connect  plot  points  with  a line 

*/ 


case  <'C' ) : 

if  (miss_f  lag  — YES)  { 

plot_color  - msid_info->miss— color; 
miss_flag  - NO; 

) 

if  (static_flag)  { 

plot_color  - msid_info->stat_color; 
static_flag  - NO; 

) 

if  {gc_ mask  - set_gc (xdisplayr  gc,  gc_val, 
plot_color,  line_type, 

1 ine_widt  h , NO_CHANGE , 

NO_CHANGE , NO_CHANGE , NO_CH ANGE ) ) 
XChangeGC {xdisplay,  gc,  gc_mask,  gc_val) ; 

XDrawLine (xdisplay,  xwindow,  gc, 
ms  id_in f o - >p r e v_ p t_x , 
msid_info->prev_pt_y, 
point . x,  point . y ) ; 


/* 

★ Plot  discrete  values  but  don't  connect  plot  points 

*/ 

case  { 9 D' ) : 


if  (gc_mask  - set_gc (xdisplay,  gc,  gc_val, 
plot_COlor,  NO_CHANGE , -1.0, 
NOJ3HANGE,  NO_CHANGE,  NO_CHANGE, 
msid_info->plot_font) ) 

XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 

XDrawString (xdisplay,  xwindow,  gc,  point. x, 

point. y,  xnsid_inf o->plot_char,  1)  ; 

break; 

default : 
break; 

) /*  end  of  plot  connection  of  characters  switch  */ 

default : 
break; 

) / * end  of  plot  type  switch  statement  */ 

msid__inf o->prev_j>t__x  - point. x; 

msid_info->prev_pt_y  * point. y; 


/* 

- * If  initial  point,  setup  previous  point  variables  and 

* negate  first  point  flag. 

*/ 


) else  { 
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msid_inf  o->f  irat_jpt  - NO; 
msid_info->prev_pt_ x - point. x; 
maid  info ->prev_pt_y  » point. y; 

} 

) /*  end  of  plot  the  value  */ 

) /*  end  of  both  axis  active  */ 

} /*  end  of  -if-  maid_indx  > k */ 

} /*  end  of  -for-  loop  thru  actual  maids  */ 

plot_ptr->aeconda_elapaed  » 

plot— ptr->seconds_elapsed  + plot_ptr->header->upd_rate  -.15; 
} /*  end  (while  done  — NO)  */ 

D (print f ( "END  plot_msid\n") ) ; 
return  (update) ; 

} 


»# 


* This  routine  calls  the  routine  which  plots  the  next  point (s)  on  the 

* given  plot,  and  then  checks  to  see  if  the  plot  needs  to  be  redrawn 

* due  to  the  plot  reaching  the  end  of  the  display  area  or  a data  point 

* has  been  calculated  which  lies  outside  the  plot  scales. 


* 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 
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* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Ronnie  Killough  - Software  Engineering  Section 

★ Data  Systems  Department 

★ Automation  and  Data  Systems  Division 
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♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio . h> 
<X11/Xlib.h> 
<fcntl .h> 
Oys/types  .h> 
<sys/timeb.h> 
<unistd. h> 
<constants . h> 
<disp.h> 
<DDdisp.h> 
<DDplot , h> 
<wex/EXmsg . h> 


extern  struct  dm_shmemory  *Dm__Address;  /*  addr  of  DM  shared  memory  */ 


proc^plt  (disp_numf  plotjptr) 


short 

disp_num; 

/*  effective  display  number 

*/ 

struct 

plot_ptrs 

*plot _ptr; 

/*  ptr  to  effective  plot  record 

*/ 

struct 

axis_inf o 

*axis_ptr; 

/*  ptr  thru  axis  records  info 

*/ 

struct 

plot_tmplt 

*tmplt_ptr; 

/*  ptr  thru  tmplt  ptr  info 

*/ 

struct 

msid_info 

*loc_msid_inf o; 

/*  ptr  thru  msid  info 

*/ 

double 

scale_diff  ; 

/*  diff  betwn  hi  & lo  scale  values 

*/ 

short 

loc_rewind; 

/*  rewind  flag 

V 

short 

redraw_f  lg; 

/*  redraw  flag 

*/ 

short 

low_f lag; 

/*  low  value  is  gtr  than  high  value 

*/ 

int 

Jc,  m; 

/*  loop  count  variable 

*/ 

int 

total  nbr  axis; 

/*  total  nbr  of  plot  axes 

*/ 

int 

update; 

/*  return  flag  from  plot_msid 

*/ 

/* 


D (print f ("START  proc_plt\n" ) ) ; 


* Initialize  flags 
V 


update  ■ NO; 
redraw_flg  - NO; 
loc_rewind  - NO; 
low_flag  - NO; 
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/* 

* Call  plot  msid  routine  to  plot  next  point (s)  for  this  plot 
*/ 


update  ■ plot_msid  (disp_num,  plot_ptr) ; 

/* 

* Check  for  plot  point  reaching  end  of  plot  area .. .process  according 

* to  end  code  (for  time  plots)  or  auto-scale  (for  msid/msid  plots) . 

*/ 

total_nbr_axis  - plot_ptr->header->xaxes_num  + plot_ptr->header->yaxes_num 

/* 

* Loop  through  each  axis  for  this  plot 

*/ 


for  (m  — 0;  m < total_nbr_axis;  m++)  { 
axis_ptr  - plot_ptr->axis  + m; 

/* 

* Only  process  active  axes 

*/ 


if  (axis_ptr->axis_active  YES)  { 


/* 

* If  current  axis  is  a time  axis  and  end-of-plot 

* has  been  signalled  by  plot  msid(),  process  the  end  code. 
*/ 


if  ( (axisjptr->scal_type  — 'T') 

&&  <axis_ptr->end_of_plot  --  YES))  { 

if  (axis_ptr->low_value  > axis_ptr->high_value) 
low_flag  - YES; 

else 

low_flag  - NO; 


/* 

* If  end  code  specifies  audible  and/or  visible 

* advisories,  issue  those  advisories. 

*/ 


switch  (axis_ptr->end_code)  { 

case  PLOT_BELL_STOP : 
case  P LOT_BELL_RE SCALE : 
case  PLOT_BELL_WRAP : 
printf  ("\007\n") ; 
break; 

case  PLOT_ADV_STOP : 
case  PLOT_ADV_RE SCALE : 
case  PLOT  AD V WRAP: 


s_ptr->axis__xory, 
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tui_msg(M_YELLOW,  "Time  range  on  %c  axis  %d  has  been  reached",  axi 
axis_ptr->axis_num)  ; 
break; 


case  PLOT_BELL_ADV_STOP : 
case  PLOT_BELL_ADV_RESCALE : 
case  PLOT_ BELL_ADV_ WRAP : 
printf  ("\007\n") ; 

tui_msg(M_YELLOW,  "Time  range  on  %c  axis  %d  has  been  reached",  axi 
3_ptr->axis__  xory,  axis_ptr->axis_num) ; 

break; 


default : 
break; 

} /*  end  of  switch  on  end  code  advisories  */ 


/* 

* 

*/ 


Determine  whether  to  stop,  rescale,  or  wrap  the 
plot  based  on  end  code. 

switch  (axis— ptr->end_code)  { 

If  end  code  specifies  is  STOP,  deactivate  the  axis 


case  PLOT_STOP: 
case  PLOT_BELL_STOP: 
case  PLOT_ADV_STOP: 
case  PLOTJ3ELL_ADV_STOP: 

axisjptr->axis_active  ■ NO; 
break; 


If  end  code  specifies  a RESCALE,  double  the 
high  or  low  scale  value  for  this  axis  and  set 
the  redraw  flag. 


/*  RLK  9/28/90  Need  to  check  to  see  if  these  calculations  are  right... 

if  the  low  scale  value  > high  scale  value,  why  double 
the  low  scale  value?  How  is  that  going  to  rescale 
the  plot  properly?  What  if  the  high  scale  value  is  zero? 
This  needs  work.  Suppose  the  low  scale  value  is  60  secs 
and  the  high  scale  value  is  0 secs  {countdown  to  0)  and 
60  seconds  elapses.  Doubling  the  low  scale  value  will 
double  the  amount  of  time  shown,  but  will  right  justify 
the  current  plot  on  the  new  120... 0 scale,  when  it  should 
be  left- justified  on  a 60...0...-60  scale.  */ 

case  PLOT_RE SCALE : 
case  PLOT_BELL_RESCALE: 
case  PLOT_ADV_RE SCALE : 
case  PLOT_BELL_ADV_RE SCALE : 

if  (low_flag) 

axis_ptr->low_value  - 

axis_ ptr->low_value  * 2; 

else 

axis_ ptr->high_value  - 

axis_ptr->high_value  *2; 
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redraw_flg  - YES; 
loc_rewind  - YES; 
axis_ ptr->end_of_plot  - NO; 
break; 

If  end  code  specifies  a WRAP,  set  high  scale  value  to 
the  low  scale  value  and  add  the  difference  between  the 
the  original  high  and  low  scale  values  to  the  new 
low  scale  value  to  get  the  new  high  scale  value.  Set  the 
redraw  flag. 


case  PLOT_ WRAP: 
case  PLOT_BELL_WRAP : 
case  PLOT_ADV_WRAP: 
case  PLOT_BELL_ADV_WRAP : 

if  (low^flag) 

scale^diff  - (axis— ptr->low_value 

- axis_ ptr->high_value)  * .75; 

else 

scale__diff  - (axis_ptr->high_value 

- axis_ptr->low_value)  * .75; 

axis_ptr->low_value  - axis_ptr->low_value 

+ scale_diff; 

axis _ptr->high_value  - axisjptr->high_value 

+ scale  diff; 


axis _ptr->low_value  - axis_ptr->high_value; 
axis _ptr->high_value  - axis_ptr->low_value 
+ scale  diff; 


redraw_flg  - YES; 
loc_rewind  • YES; 
axis_ptr->end_of_plot  - NO; 
break; 

default : 
break; 

} /*  end  of  switch  on  end  code  processing  */ 


If  axis  is  not  a time  axis,  it  is  an  msid  axis.  If  an 
auto-scale  has  been  signalled  by  plot_rasid()  and 
auto-scaling  is  enabled  for  this  axis,  adjust 
the  scales  and  set  the  redraw  flag. 


} else  if  ( (axis— ptr->auto_scale  !-  NO) 

&&  (axis_ptr->auto_f lag  — 'Y' ))  { 


If  auto-scale  indicates  the  data  value  was  off  the 
low  scale,  adjust  the  low  scale  value. 


if  (axis_ptr->auto_scale  — NEW_LOW_SCALE ) 

axis _pt r->low_value  * axis __ptr->new__scale; 
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If  auto-scale  indicates  the  data  value  was  off  the 
high  scale,  adjust  the  high  scale  value. 


else 

axis_ptr->high— value  - axis— ptr->new_scale; 


axis— pt r->auto_scale  ■ NO; 
loc__rewind  ■ YES; 
redraw^ fig  ■ YES; 

loc_msid__info  - plot-ptr->msids ; 


/* 

* Reset  all  msids  first  point  flag. 

*/ 


for  (k  ~ 0;  k < plot_ ptr->header->msid_num;  k++)  { 

loc_msid_inf o->f irst_pt  - YES; 
loc_msid_inf o++; 

} 


/* 

★ If  not  end-of -time-plot  and  no  auto-scale  has  been  signalled, 

* negate  auto  scale  since  auto  flag  was  NO 
*/ 

} else 

axis_ptr->auto_scale  • NO; 

} /*  end  of  axis  active  flag  */ 

} /*  end  of  total  nbr  of  axis  */ 


/* 

* If  redraw  flag  is  set,  erase  the  plot  and  redraw 
*/ 

if  (redraw_flg  --  YES)  { 
update  ■ 1; 

tmplt__ptr  - plot_jptr->plot— pos ; 

/* 

* Erase  the  plot  using  the  coordinates  of  the  plot 

* and  the  background  color. 

*/ 

XClearArea  (Dm_Address->xdisplay  [disp_num] , Xt Window  (plot_ptr->draw_win) 
0,  0,  tmplt^ ptr->drw_width,  tmplt_ptr->drw_height , 
False) ; 

/* 

* Rewind  the  plot  file  if  needed 
*/ 

if  <loc_rewind  — YES)  { 

lseek (plot_ptr->plot_fp,  0,  SEEK_SET) ; 

Iseek  (plot _jptr->plot_fp, 

80  + (plot_ptr->header->msid_nuin  * 24),  SEEK_SET)  ; 
plot_ptr->seconds_elapsed  - 0; 
loc— rewind  - NO; 

} else 

plot__ptr->seconds_elapsed 

— (plot_ptr->header->upd_rate  « 1) ; 
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/* 

* 

*/ 


/* 

★ 

* 


Redraw  the  plot  axes, 
draw^plt  (disp_num,  plot_ptr)  ; 

If  overlay  flag  set,  draw  overlay 


if  <plot_ptr->ovr_f lg  — YES) 
draw_ovl  (plot_ptr) ; */ 


/* 

★ 

v 


Clear  the  redraw  flag 


redraw_flg  - NO; 


} 


/* 

* Return  1 if  update  to  display  occurred 
*/ 


D (printf ("END  PROC_PLT\n") ) ; 
return  (update) ; 


} 


* MODULE  NAME:  plot_ovl.c 


* 

* This  routine  is  invoked  when  the  user  selects  either  a predefined  PF 

* key  or  a menu  selection  for  a plot  save  overlay  or  display  overlay.  The 

* following  display  is  drawn  for  save  overlay  or  display  overlay  plots. 

* 

* 

* INTERNAL  FUNCTIONS: 

★ 

* o ovl_menu  - This  function  displays  the  popup  form  which  allows 

* the  plot  and  overlay  filenames  to  be  entered. 

* 

* o cb  ovl  - This  callback  function  handles  all  callbacks 

* generated  by  the  popup  form. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* K.  Noonan  - Ford  Aerospace  Corporation 

* 


★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio . h> 
<string.h> 

<X11/ Intrinsic . h> 
<X11/Shell.h> 
<Xm/Select ioB . h> 
<Xm/Text . h> 
cconstants .h> 
<disp.h> 

<DDdisp .h> 

<DDplot . h> 

<pf_key . h> 
<user_inter . h> 
<wex/EXmsg . h> 


extern 

Widget 

Top; 

/* 

Top  level  widget . 

*/ 

extern 

struct 

pfkey_def s 

Current_Com; 

/* 

Current  commands  definition. 

*/ 

extern 

struct 

dm_shmemory 

*Dm__Address ; 

/* 

Shared  memory  address. 

*/ 

extern 

struct 

plot_ptrs 

*Plot_info_ptr; 

/* 

Ptr  thru  plot  ptr  files. 

*/ 

extern 

short 

Disp_Num, 

/* 

Display  Manager  number. 

*/ 

Nb  r_o  f _plot  s ; 

/* 

Number  of  plots  to  display. 

*/ 

extern 

char 

Disp  Path  [DNAME__LEN] , 

/* 

Path  of  displays. 

*/ 

Plot_Path [DNAME_LEN] ; 

/* 

Path  of  plots. 

*/ 

extern 

int 

errno; 

static 

Widget 

shell, 

t_plot , 
t ovl; 


static  char  **list_plot  - NULL, 
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**list_ovl  - NULL; 


static  int 


num_ovls  - 0, 
flag; 


int  plot_ovl  ( ready  ) 

short  ready; 

{ 

register  char  *ptr, 

*ptrl ; 


struct  plot_ ptrs 
struct  disp_info 

short 

FILE 

char 


*act _plot _ptr;  /*  Ptr  thru  plot  ptr  files.  */ 

^display;  /*  Ptr  to  display  information  table.  */ 

if  /*  Index  counter.  */ 

roatch,  /*  YES  if  a match  is  found  in  lists.  */ 

access;  /*  Access  restriction  code  of  the  plot.  */ 

*fopen  ( ) , 

*fp;  /*  File  ptr  to  plot  file.  */ 


plot_name  [DNAME_LEN  + 4], 
data_plot_name  [DNAME_LEN  + 4], 
overlay_name  [DNAME_LEN  + 4], 
cmd  [110], 

*malloc  ()  ; 


D (print f ("START  plot_ovl\n") ) ; 

/* 

* Save  pointer  to  the  display  structure. 
*/ 


display  - £Dm_Address->di splay [Disp_Num] ; 
list^plot  - list_ovl  - NULL; 


/* 

* If  the  number  of  plots  for  the  current  display  is  zero,  return  to  the  calling 

* function. 

*/ 


if  ( Nbr_of_plots  " 0 ) { 

tui_msg  ( M_YELLOW,  "Current  display  does  not  have  any  plots"  ) ; 
return  ( -1  ) ; 

) 


/* 

* Build  list  of  plots  for  the  current  display.  This  list  is  simply  an  array  of 

* pointers  into  the  plot  list.  The  individual  pointers  point  directly  to  the  file 

* names  without  the  paths . 

*/ 


if  ( { list_plot  ■ (char  **)malloc  ( Nbr_of_j>lots  * sizeof  ( char  *)))■■  NULL  ) { 
tui_msg  ( M_YELLOW,  "Unable  to  allocate  memory  for  list  of  plots"  ) ; 
return  ( -1  ) ; 


for  ( i - 0;  i < Nbr_of _plots;  i++  ) { 

ptr  - (Plot_infojptr  + i) ->plot_name; 
ptrl  - ptr  + strlen  ( ptr  ) - 1; 
while  ( ptrl  > ptr  &&  *ptrl  !-  '/'  ) 
ptrl  — ; 
ptrl++; 


} 


Mliat_plot  + i)  - ptrl; 


* Call  (read_ovls)  to  read  the  directory  and  generate  a list  of  overlay  filenames.  If 

* this  fails,  return. 

*/ 

if  ( ( num_ovls  * read_ovls  ( &list_ovl  ) ) --  -1  ) { 

free_lists  { ) ; 
return  ( -1  ) ; 

} 

* 

* If  the  command  was  to  display  an  overlay  and  there  are  none  available,  generate  a 

* warning. 

*/ 

if  ( num_ovls  " 0 ) { 

if  ( Current_Com.  func_no  " S AVE_0 VRLA Y ) 

tui_msg  ( M_YELLOW,  "No  plot  data  files  available  for  display"  ) ; 

else 

tui_msg  ( M_YELLOW,  "No  overlay  files  available  for  display"  ) ; 

f ree_lists  ( ) ; 
return  ( -1  ) ; 

» 

' ★ 

* If  called  from  menu,  display  the  popup  form  which  allows  entry  of  the  display 

* and  overlay  names. 

*/ 

if  ( ready  ” NO  ) 
ovl  menu  ( ) ; 


★ If  called  from  the  menu  and  the  user  aborted,  return  to  calling  function. 
*/ 

if  ( ready  — NO  &&  flag  — NO  ) { 

free_lists  { ) ; 
return  { -1  ) ; 

1 

/* 

★ Build  the  complete  path  of  the  plot  if  the  path  is  not  already  given.  If  a 

★ plot  data  file  path  is  "/WEX",  then  the  data  file  is  found  in  Plot_Path. 

*/ 

if  { Current_Com.disp_name  [0]  !-  '/'  ) { 

if  ( Current^ Com.  f unc— no  **■  S A VE_0 VRLA Y ) { 

strcpy  ( data_jplot_name,  Plot__Path  ) ; 

strcat  ( data— plot_name,  Current_Com.disp_name  ) ; 

} 

strcpy  ( plot_name,  Disp_Path  ) ; 

strcat  ( plot_name,  Current_Com.disp_name  ); 

} else  { 

strcpy  { plot_name,  Current_Com.disp_name  ) ; 

strcpy  ( data_plot_name,  Current_Com. disp_name  ) ; 

} 

if  ( Current_Com.ovr_name  [0]  !*  '/'  ) { 

strcpy  ( overlay_name,  Plot_Path  ) ; 


strcat 

else 

strcpy 


( overlay_name, 
( overlay_name. 
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Cur rent_Com . ovr_name 
Current_Com. ovr  name 


) ; 


/* 

* If  the  command  is  to  save  an  overlay,  then  check  to  see  if  the  plot  is 

* active.  If  the  plot  is  active,  reject  the  command. 

*/ 


if  ( Current_Com. func_no  — SAVE_OVRLAY  ) { 

match  * NO; 
i - 0; 

while  ( ( i < MAX_PLOTS  ) &&  ( match  « NO  ) ) { 

if  ( { strcmp  ( Dm_Addres3->plots . act_plots [i] , plot_name  ) ) — o ) { 
match  • YES; 

tui_msg  ( M_WHITE,  "Plot  %s  is  active  - save  overlay  command  rejected", 
Current_Com.disp_name  ); 
free_lists  ( ) ; 
return  ( -1  ) / 

} else 
i++; 

> 


/* 

* Open  the  plot  file  and  retrieve  the  access  code.  If  the  open  fails,  generate 

* an  error  and  return. 

*/ 

strcat  ( data_plot_name,  ".pdt"  ); 

if  ( ( fp  - fopen  ( data_plot_name,  "r"  ) ) NULL  ) { 

tui_msg  ( M_YELLOW,  "Error  %d  on  opening  plot  data  file  %s",  errno, 
data_plot_name  ) ; 
free_lists  ( ) ; 
return  ( -1  ) ; 

} 

fscanf  ( fp,  "%70*c"  ) ; 

fscanf  ( fp,  "%hd",  iaccess  ); 
fclose  ( fp  ) ; 

/* 

* Check  to  see  if  the  access  is  restricted  by  MEDICAL  or  PAYLOAD  users. 

* If  so,  return. 

*/ 

if  ( chk_res  ( access,  display->pos_id  ) ) { 
free_lists  ( ) ; 
return  ( -1  ) ; 

} 

/* 

* Access  has  not  been  restricted,  so  build  the  system  commands  to 

* move  the  plot  data  file  over  to  the  plot  overlay  file. 

* / 

strncat  ( overlay_name,  n.ovr\0",  5 ); 

sprint f ( cmd,  "mv  %s  %s",  data plot name,  overlay  name  ) ; 

if  ( system  ( cmd  ) ) 

tui_msg  ( M_YELLOW,  "Error  %d  in  saving  plot  overlay  <%s>",  errno, 
data_plot_name  ); 

/* 

* Process  the  overlay  display  command.  Search  through  the  list  of  plots 

* for  a match  with  the  specified  plot.  If  a match  is  found,  call  (draw  ovl)  to 
actually  draw  the  overlay  on  the  display.  Upon  return  break  out  of  the  loop. 


plot.ovl.c 


*/ 


} else  { 

act_plot_ptr  - Plot_info _ptr; 

for  ( i - 0;  i < Nbr_of_plots;  i++  ) { 

if  ( ( strcmp  ( plot_name,  act_plot_ptr->plot_name  ) ) — 0 ) { 

strcpy  ( act_plot_ptr->plot_ovr,  overlay_name  ) ; 
draw_ovl  ( act_plot_ptr  ) ; 
break; 

} else 

act_plot_ptr++; 

} 

/* 

* If  no  match  was  found,  generate  a warning. 

*/ 

if  ( i — Nbr_of_plots  ) 

tui_msg  ( M_YELLOW,  "Plot  <%s>  is  not  on  this  display",  plot_name  ) 

> 

/* 

* Normal  return. 

*/ 


free_lists  ( ) ; 
return  ( 0 ) ; 
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* MODULE  NAME:  ovl 

* 

_menu 

* This  function  initializes  the  popup  form  which  allows  the  user  to  specify 

* the  plot  and  overlay  file  names. 

******************************************************************************y 

static  int  ovl  menu 
{ 

register  int 

( ) 

i; 

Arg 

args [10] ; 

Widget 

form, 
f_j data, 
f_cmd; 

XtCallbackProc 

cb_ovl ( ) ; 

XEvent 

event ; 

char 

*s; 

D (print f {"START 

ovl_menu\n")  ) ; 

/* 

* Create  the  shell  widget . 
*/ 


i - 0; 

s - { Current_Com.func_no  — PLOTJDVRLAY  ) ? "Plot  Overlay"  : "Save  Overlay"; 
XtSetArg  ( args[i],  XmNtitle,  s );  i++; 

shell  - tui_create_trans_shell  ( "Plot/Save  Overlay",  args,  i ); 

/* 

* Create  the  main  and  all  sub-forms . 

V 


i - 0; 
form 
f_data 
f cmd 


tui_create_form  ( 
tui_create_form  { 
tui_create  form  ( 


shell,  "form", 
form,  "f_data", 
form,  "f_cmd", 


TRUE,  args,  i ) ; 
FALSE,  args,  i ) ; 
FALSE,  args,  i ) ; 


/* 

* 

*/ 


Crfist®  the  two  selection  lists  widgets  for  the  plot  end  overlay  filenames. 


i - 0; 

t plot  - tui_create_sel  ( f_data,  "tjplot",  list_plot,  Nbr_of_plots, 

"Plots  in  Display", 
args,  i ) ; 

t ovl  - tui_create_sel  ( f_data,  "t_ovl",  list_ovl,  num_ovls, 

( Current_Com.func_no  — SAVE_OVRLAY  ) ? "Data  Files"  : "Overlays", 
args,  i ) ; 


/* 

* Create  a separator  widget . 
*/ 


/* 


i - 0; 

XtManageChild  ( XmCreateSeparator  ( form,  "sepO",  args,  i ) ) ; 
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* Create  the  command  widgets. 
*/ 


i - 0; 

tui  create^ pushbutton  ( f_cmd, 
tui_create_pushbutton  { f_cmd, 
tui_create_ pushbutton  ( f_cmd, 


Cancel", 

cb_ 

ovl/ 

(caddr_t) 0, 

args. 

i 

> 

OK", 

cb_ 

_ovl. 

(caddr_t ) 1, 

args, 

i 

> 

Help"/ 

cb_ 

ovl. 

(caddr_t ) 2, 

args. 

i 

> 

/* 

* Put  all  input  widgets  in  a tab  group. 
*/ 


XmAddTabGroup  { t_plot  ) ; 
XmAddTabGroup  ( t_ovl  ) ; 


/* 

* Realize  and  popup  the  shell. 
*/ 


XtRealizeWidget  ( shell  ) ; 
Xt Popup  ( shell.  None  ) ; 
set_cmap  { shell  ) ; 


/* 

* Wait  until  the  user  finishes  with  the  popup. 
*/ 


flag  - -1; 

while  ( flag  — -1  ) { 

XtNextEvent  ( fievent  ) ; 
XtDispatchEvent  ( &event  ) ; 

) 

XtDestroyWidget  ( shell  ) ; 


/ * 

* Return  the  value  selected  by  the  user  (0  is  for  not  verified/  1 is  for 

* verified. 

*/ 


D (printf ("END  ovl_menu\n") ) ; 
return  { flag  ) ; 


} 
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* MODULE  NAME:  Cb_OVl 

* 

* This  callback  function  processes  the  OK,  CANCEL,  and  HELP  callbacks  from 

* the  popup  form. 


static  XtCallbackProc  cb_ovl  ( w,  closure,  calldata  ) 


Widget 

w; 

/* 

Set  to  widget  which  in  which  callback  originated. 

*/ 

caddr_t 

closure. 

/* 

Indicates  selected  command. 

*/ 

*/ 

*calldata; 

/* 

Widget-specific  information. 

char  *ptr; 


D (printf ("START  cb_ovl\n") ) ; 

/* 

* Process  the  OK  button.  First  save  the  plot  filename  in  the  current  command  structure 

* and  validate  it.  If  invalid,  return. 

*/ 


if  ( (int) closure  — 1 ) { 

strcpy  { Current_Com.disp_name,  ptr  - XmTextGetString  ( t plot  ) ); 
free  ( ptr  ) ; 

if  ( val_fn  ( Current_Com.disp_name, 

( Current_Com.func_no  ~ SAVE_OVRLAY  ) ? NO  : YES  ) 0 ) 

return; 


/* 

* Save  and  validate  the  overlay  filename.  If  valid,  set  the  (flag)  to  the  value 

* of  (closure)  whxch  will  cause  the  popup  to  be  removed 

V 

strcpy  ( Current_Com.ovr_name,  ptr  - XmTextGetString  ( t ovl  ) ) ; 
free  ( ptr  ) ; ~ 

if  ( val_fn  ( Current_Com.ovr_name,  NO  ) ) 
flag  - (int) closure; 

/* 

* Process  CANCEL  button.  Simply  set  (flag)  to  the  value  of  (closure)  to  cause 

* removal  of  the  form. 

V 


) else  if  ( (int) closure  -■  0 ) ( 
flag  - (int) closure; 


/* 

* If  help  button  was  selected,  display  the  appropriate  help  text . 
* / 

) else  if  ( (int) closure  — 2 ) 
cb_help  ( 0,  19,  0 ); 


/* 

* Normal  return. 
*/ 


} 


D (printf ( "END  cb_ovl\n")); 
return; 


#♦ 
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+ + + + + + 


* MODULE  NAME:  free_lists 


★ 

* This  function  frees  the  list  of  plot  and  overlay  files. 

a*****************************************************************************/ 


int  free_ lists  < ) 

{ 

register  int  i; 

/* 

* Free  the  list  of  plots. 

*/ 

if  ( list_plot  ) 

free  ( (char  *)list_ plot  ); 

/* 

* Free  the  list  of  overlays. 

*/ 

if  ( list_ovl  ) { 

for  ( i - 0;  i < num_ovls;  i++  ) 
free  ( * (list_ovl+i)  ); 
free  ( (char  *)list_ovl  ); 

} 

/* 

* Normal  return. 

*/ 

return  ( 0 ) ; 

1 
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/A*********************************************************^^^^^^^^^^ 

* MODULE  NAME:  read_di.3p.c 

★ 

* This  function  reads  the  displays  in  a directory  and  formats  a list  which 

* is  later  used  to  present  displays  to  the  user.  This  list  is  retained 

* locally  so  that  it  can  be  reused. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* K.  Noonan  - Ford  Aerospace  Corporation 


* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 


Mark  D.  Collier  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


♦include  <constants .h> 
♦include  <disp.h> 
♦include  <stdio.h> 
♦include  <fcntl.h> 
♦include  <wex/EXmsg.h> 


extern 

struct 

file_info  *Disp_Info; 

/* 

pointer  to  file  information 

*/ 

extern 

char 

Disp_Path  [DNAME_LEN]  ; 

/* 

display  path  name 

*/ 

extern 

int 

errno; 

/* 

system  return  error 

*/ 

extern 

short 

Disp__Num; 

/* 

display  manager  number 

*/ 

int  read_disp  ( ) 


l 

int 

num_disps  - 0/ 

/*  return  number  of  displays 

*/ 

struct  file_info 

*d_inf o_ pt r ; 

/*  pointer  to  file  information 

*/ 

FILE 

*fp,  *fpl,  *fopen  ( 

) ; 

/*  display  file  pointers 

*/ 

char 

*Ptr, 

filename  [DNAME_LEN 

+ 

4],/*  display  name 

* / 

disp_name  [DNAME  LEN 

+ 

4],/*  display  name  with  path 

*/ 

*calloc  ( ) , 

/*  space  allocation 

*/ 

str [80] , 

/*  contains  system  command 

*/ 

temp_f  ile  [30] ; 

/*  temporary  file  name 

*/ 

int 

/*  loop  indices 

*/ 

num_files  - 0, 

/*  number  of  files 

*/ 

length; 

/*  file  name  length 

*/ 

D (printf ("START  read  disp\n") ) ; 

/* 

* Display  wait  cursor. 

V 


tui_start_wait  ( ) ; 


* Build  the  system  commands  to  read  all  the  display  files  in  the  display 

* directory  into  a temporary  file  'tdispX.dat'.  ( Is  [path]  > tdisp.dat  ) 

*/ 


sprintf  ( temp— f ile,  ”/user/display/tdisp%hd.dat”,  Disp_Num  ); 
sprintf  ( str,  Mls  %s*.bg  > %s”,  Disp_Path,  temp_file  ); 

if  ( system  { str  ) ) { 

tui_msg  ( M_YELLOW,  "Error  on  reading  display  directory”  ) ; 
tui_stop_wait  ( ) ; 
return  ( -1  ) ; 

} 

if  ( ( fp  * fopen  ( temp_file,  ”r”  ) ) “ NULL  ) [ 

tui_msg  ( M_YELLOW,  "Error  %d  on  reading  display  directory  file”,  errno  ); 
tui_stop_wait  ( ) ; 
return  ( -1  ) ; 

) 

/* 

* Read  the  display  directory  file  for  an  initial  count  of  the  number  of 

* displays  in  the  directory. 

*/ 


while  ( fscanf  < fp,  ”%s”,  filename  ) !*  EOF  ) 

num_f  iles++; 

rewind  ( fp  ) ; 


/* 

* Allocate  space  for  the  display  file  name  and  description  fields. 
*/ 


Disp_Info  - 

( struct  file_info  * ) calloc  ( num_files  + 1,  sizeof  ( struct  file_info  ) ) 
if  ( Disp_Info  “ NULL  ) { 

tui_msg  ( M_YELLOW,  "Error  %d  on  allocation  of  file  info  structure”,  errno  ) 
tui_stop_wait  ( ) ; 
return  ( -1  ) ; 

} 

/* 

* Save  entry  for  DTE  display. 

*/ 


d_info_jptr  ■ Disp_Info; 

strncpy  ( d_info_ptr,  ”DTE  DISPLAY\0”,  12  ); 
num_disps  * 1; 
d_inf  o_ptr++; 


/* 

* Process  each  filename. 
*/ 


while  ( fscanf  ( fp,  ”%s”,  file_name  ) !■  EOF  ) { 

strcpy  < disp_name,  file_name  ) ; 

/* 

* Extract  just  the  filename. 

*/ 


1; 


ptr  - file_name  + strlen  ( 
while  ( ptr  > file_name  && 
ptr — ; 
ptr++; 
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file_name  ) - 
*ptr  !-  '/'  ) 


/* 

* 

*/ 


/* 

* 

★ 


*/ 


Open  the  filename. 


if  ( ( fpl  = fopen  ( disp_name,  "r"  ) ) NULL  ) { 

free  ( (char  *)Disp_Info  ); 
tui_stop_wait  ( ) ; 
return ( -1  ); 


Read  in  the  name  field  and  blank  the  extension  ' .bg'  and  add  in  the 
in  column  8 and  the  32-character  description  afterwards. 


length  - strlen  ( ptr  ) ; 
for  ( j - 8;  j > length  -4;  j — ) 
ptr [ j]  - ' ' ; 

strncpy  < d_inf o_ptr->name,  ptr,  8 ) ; 

strncpy  < £d_inf o_ptr->name [8] , " : \0",  4 ); 
fscanf  ( fpl,  "%*3c"  ); 

fscanf  ( fpl,  "%32c",  d_inf o_ ptr->desc  ) ; 
d_info_ptr->inverse_f lag  - NO; 

d_inf  o_ptr++; 
num_disps++; 
fclose  ( fpl  ) ; 


/* 

* Close  the  temp  file  and  remove  it  from  system. 
*/ 


fclose  ( fp  ) ; 

strncpy  ( str,  "rm  \0",  4 ); 
strcat  ( str,  temp_file  ) ; 
if  ( system  ( str  ) ) 

tui_msg  ( M_YELLOW,  "Error  on  removing  temporary  file"  ) ; 

tui_stop_wait  ( ) ; 

D (print f ("END  read_disp\n" ) ) ; 
return  ( nuinjdisps  ) ; 


} 
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/****★*★*★*★***★**★************************************************************ 

* MODULE  NAME:  read_fgr.c 

* 

★ This  routine  reads  the  foreground  graphics  records  from  the 

★ DDF  foreground  file  into  memory. 

★ 

* DEVELOPMENT  NOTES: 

★ 

* This  routine  has  not  been  entirely  translated  to  X.  Foreground  graphics 

* are  not  functional. 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Robert  Stanley  - Ford  Aerospace  Corporation/Houston 

* 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

a*****************************************************************************/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio.h> 
<sys/types .h> 
<X11/Xlib.h> 
<wex/EXmsg . h> 
<math . h> 
<constants .h> 
<disp.h> 

<DDf g_ graph . h> 


extern  struct  dm_shmemory 
extern  struct  fg_recs 

extern  int  errno; 

extern  short  Pixels []; 


*Dm_Address; 
Fg_rec ; 


/*  ptr  to  DM  shared  memory 
/*  fg  graphics  records 


/*  index  array  into  colormap 


read__fgr  (disp__num,  ddf_ffp) 
short  disp_num; 


*ddf_f fp; 

fgr_record 
fg__line_rec 
label_index 
fg_rectangle_rec 
label_index 
f g_p  o 1 y go n_r e c 
fg_graph_jpts 
msid__index 
label_index 
scale_index 
f g_c  u rve_re  c 
pts 

ms id^index 
label  index 


struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 


*fgr_ptr; 
*fg_line_ptr; 
*line_lbl; 
*fg_rect_ptr  ; 
*rect_lbl; 

* f g_po  ly_pt  r ; 

*poly_pt  s pt  r ; 

*poly_jnsid; 

*poly__lbl; 

*poly_scale; 

*fg— cur_ptr; 

*cur_pts_ptr; 

*cur_msid; 

*cur  lbl; 


/*  effective  display  number 
/*  ptr  to  open  fg  DDF  file 


struct  scale_index 
struct  fg_circle_rec 
struct  label_ index 
struct  fg_arc_rec 
struct  label_index 
struct  fg_ellipse_rec 
struct  label_index 
struct  fg_piechrt__rec 
st  rue t pie_ms id_index 
struct  fg_clkmtr_rec 
struct  cm_msid_index 
st  ruct  sea le_index 
struct  fg_bar_rec 


read_fgr.c 


*cur_scale; 
*fg_cir_ ptr ; 
*cir_lbl; 
*fg_arc_ ptr; 
*arc_lbl; 
*fg_ell_ptr; 
*ell_lbl; 
*fg_j5ie_ ptr; 
*pie_msid; 
*fg_clk_ptr ; 
*clk_msid; 
*clk_scale; 
*f  g__bar_j3tr; 


double  fabs(); 


float  fxl,  fyl,  fx2,  fy2; 

float  factor_x,  factor_y; 

int  fixed_flag; 

short  i,  j,  w; 

short  color; 

char  temp [2]; 

char  *malloc{); 

char  *calloc(); 


D (printf ("START  read  fgr\n")  ) ; 

/* 

* Set  up  local  world  coordinate  transformation  factors 
*/ 


factor_x  « Dm_Address->display [disp_num] . factor_x; 
factory  - Dm_Address->display  [disp_num]  . factor_y; 


/* 

* Set  up  local  pointer 
*/ 


fgr_ptr  - Fg_rec.graph_rec; 
if  (fgr_ptr  — NULL)  ( 

(M_YELLOW,  "Error  %d  on  graphical  record  calloc",  errno)  * 
return  (-1) ; 

) 


/* 

* Read  in  the  Display  Definition  File  foreground  graphic  records 

* and  store  them  into  memory. 

*/ 


for  (i  - 0;  i < Fg_rec .graph_num;  i++)  { 

fscanf (ddf_ffp,  "%d",  & (fgr_ptr->graph_ent) ) ; 
fscanf (ddf_f fp,  "%hd",  4 (fgr_ptr->graph_typ) ) ; 

fgr_ptr->redraw_f lag  - NO; 


/* 

★ 

*/ 


Read  in  graphical  record  according  to  type. 


switch  (fgr_ ptr->graph_typ)  { 


case  LINE: 
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fgr_ptr->graph_ptr  - malloc (sizeof (struct  fg_line_rec)  ) ; 

if  <fgr_ ptr->graph _ptr  ==  NULL)  { 
tui__msg  (M__YELLOW, 

"Error  %d  on  foreground  line  record  malice"/  errno) 
return  (-1); 

> 


fg_line_j?t r - (struct  fg_line_rec  *)  fgr_ptr->graph_ptr ? 


f scanf (ddf_f fp, 
f scanf (ddf_f fp/ 
f scanf (ddf_ffp, 
f scanf (ddf_f fp, 
fscanf (ddf_f fp, 
f scanf (ddf_f fp/ 


" %hd"  / Sc  ( f g_line__ptr->line_type) ) ; 
"%f",  & (fg_line_ptr->line__wdth)  ) ; 

"%f  ",  & (fg_line_ptr->pointl_x) ) ; 

"%f",  & (fg_line_ptr->pointl_y) ) ; 
"%f ",  & (fg_linejptr->point2_x) ) ; 

"%f"r  & (fg_line_ptr->point2_ y)  ) ; 


/* 

* Transform  world  coordinates . 

*/ 


fg_ line_j>tr->points  [0]  .x 
fg_line_j?tr->points  [ 0]  .y 
fg_line_j>tr->points  [1]  .x 
fg_line_jptr->points  [1]  .y 


(short)  (fxl  * factor_x) ; 

(short)  ((100.0  - fyl)  * factory); 
(short)  (fx2  * £actor_x)  ; 

(short)  ((100.0  - fy2)  * factor_y) ; 


/★  RLK  10/8/90  May  need  to  transform  these  coordinates .. .what  are  they  for?  */ 


fscanf <ddf_ffp,  "%d", 
fscanf  (ddf__ffp/  "%d", 
f scanf (ddf_ffp,  "%d", 
f scanf (ddf_ffp,  "%d”, 

fscanf (ddf_ffp,  "%d"f 
fscanf <ddf_ffp,  "%d", 
fscanf  (ddf_ffp,  "%d", 
fscanf (ddf_ffp,  "%d", 
fscanf (ddf_ffp,  "%d", 
fscanf (ddf__ffp,  "%d", 
fscanf (ddf_ffp,  ”%d", 

fg_line_ptr->points [0] 
fg_line_ptr->points [0] 
fg_line_ptr->points [1] 
fg_line_ptr->points [1] 


& (fg_line_ptr->msidl_x) ) ; 

& (fg_line_ptr->msidl_-y) ) ; 

& (fg_line_ptr->msid2_x) ) ; 

& (fg_line_ptr->msid2_y) ) ; 

& (f  g_line_ ptr->scale_indl)  ) ; 
Sc  (fg__line_ptr->scale_ind2)  ) ; 
& (fg_line_ ptr->scale_ind3) ) ; 
& (fg__line_ ptr->scale_ ind4) ) ; 
Sc  (f g_line_ ptr->ddd_ind)  ) ; 

Sc  <fg_line_ ptr->scale_ ind)  ) ; 

& (fg_line_ptr->label_num)  ) ; 

.x  = fg_line_ ptr->pointl_x; 
.y  - fg_line_ptr->pointl__y; 
.x  = fg_line_ptr->point2__x; 

. y * fg_line_ptr->point2_y ; 


/* 

★ Allocate  memory  for  the  label  index  structure  and 

* read  in  label  indices . 

*/ 


fg_linejptr->line_lbl_ptr  = (struct  label_index  *) 
calloc  (I,  sizeof (struct  label_ index) ) ; 

if  (fg_line_ptr->line_lbl_ptr  ~ NULL)  { 
tui_msg (M_YELLOW, 

"Error  %d  on  foreground  line  label  calloc  ",  errno) 
return  (-1) ; 


line_lbl  = fg_line_ptr->line_lbl_ptr; 
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/* 

★ 

*/ 


for  (j  - 0;  j < fg_line_ptr->label_num;  j++) 

f acanf (ddf_ffp,  "%hd",  & (line_lbl->label_ind[ j] ) ) ; 

fscanf (ddf_f fp,  "%d",  & (fg_line_ptr->rot_ind) ) ; 

f acanf  (ddf_ffp,  "%d”,  & (fg_line_ptr->vis_ind) ) ; 

fixed_flag  - 

fg_line_ptr->msidl__x  + 
fg_line_ptr->msidl_y  + 
fg_line_ptr->msid2_x  + 
fg_line_ptr->msid2— y + 
fg_line_ptr->scale_indl  + 
fg_line_jptr->scale_ind2  + 
fg_line_ptr  - >scale_ind3  + 
fg_line_ptr->scale_ind4  + 
fg_line_ptr->ddd_ind  + 
fg_line_ptr->rot_ind  + 
fg_line_ptr->vis_ind; 

if  (fixed_flag  ~ 0) 

fg_line__ptr->pbi_ind  - 1; 

fg_>ine_ptr->cur_color  - -1; 

break; 


case  RECTANGLE: 

fgrj>tr->graph_ptr-  malloc  (sizeof  (struct  fg_rectangle__rec)  ) ; 

if  (fgr_ptr->graph_ptr  -»  NULL)  { 
tuijmeg (M_YELLOW, 

"Error  %d  on  foreground  rectangle  record  malloc ", 
errno) ; 

return  (-1); 

) 


fg_rect _jptr  - (struct  fg_rectangle_rec  *) 

f gr_pt  r->graph_pt  r ; 


fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_ffp, 
fscanf (ddf_f fp, 
fscanf <ddf_f fp, 


"%hd",  & (fg_rect_ptr->line_type) ) ; 
”%f n / & (fg_rect_ ptr->line_wdth) ) ; 
"%hd",  & (fg_rect_ptr->pat_type) ) ; 
"%f"f  & (fg_rect_ptr->pat_sizex) ) ; 
"%f  "f  & (fg_rect_ptr->pat_sizey) ) ; 


fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp. 


"%f",  &fg_rect_ptr->ul_x)  ; 
"%f"f  &fg_rect_ptr->lr__y)  ; 
"%f"f  & f g_r e c t t r - > 1 r_x ) ; 
"%f  &fg_rect_ptr->ul_y)  ; 


Transform  world  coordinates. 


rect ptr  >rect.x  * (short) (fg rect ptr~>ul x * factor  x) ; 

f9_rect_ptr->rect .y  - (short)  ‘ * “ “ 

((100.0  - fg_rect_ptr->ul_y)  * factor_y) ; 

fg_rect_ptr->width  - (short)  ( ( fg_rect_ptr->lr__x 

- fg_rect jptr->ul_x)  * factor_x)  ; 
fg_rect_ptr->height  - (short)  ( (fg_rect_ptr->ul _y 

_ fg_rect_ptr->lr_y)  * factor_y)  ; 


/*  RLK  10/9/90  Check  these  coordinates,  etc... what  are  they  for?  */ 


fscanf  (ddf__ffp,  "%d", 
f scanf (ddf_f fp,  "%d", 
fscanf (ddf_ffp,  "%d”, 
fscanf (ddf_ffp,  "%d". 


& (fg_rect_ ptr->msid_ul_ x)  ) ; 
& (fg_rect_ptr->msid_ul_y)  ) ; 
& (fg_rect_ptr->msid_lr_x)  ) ; 
& (fg_rect _jptr->msid_ lr_y)  ) ; 


fscanf (ddf_f fp, 
fscanf (ddf_ f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp. 


"%d",  & (fg_rect_jptr->scale_indl)  ) ; 
"%d",  & <fg_rect_ptr->scale_ind2)  ) ; 

"%d” , & (f  g_rect_j>tr->scale_ind3)  ) ; 
"%d”,  & (fg_rect__ptr->scale_ind4)  ) ; 
"%d",  & (fg_rect_jptr->ddd_ind) ) ; 
"%d",  & <fg__rect_ptr->scale_ind)  ) ; 
"%d",  4 (fg_rect_ptr->label_num)  ) ; 


Allocate  memory  for  label  index  structure  and  read 
in  label  indices. 


o)  ; 


fg_rect_jptr->rect_lbl_ptr  - {struct  label_index  *) 
calloc (1,  sizeof (struct  label_index) ) ; 

if  (fg__rect_jptr->rect_lbl_jptr  “ NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  foreground  rect  label  calloc  ”,  errno) ; 
return  (-1) ; 

) 

rect_lbl  - fg_rect_ptr->rect_lbl_ptr; 

if  (fg_rect_ptr->label_num  > 0) 

for  (j  * 0;  j < fg_ rect _j>tr->label_num;  j++) 

fscanf (ddf_ffp,  "%hd",  & (rect_lbl->label_ind [ j ] ) ) ; 

fscanf (ddf_ffp,  "%d",  & <fg_rect_ptr->vis_ind) ) ; 

fixed_flag  * 

f g_rect_jpt  r->msid__ul_x  + 
fg_rect_j?tr->msid_ul_y  + 
f g__r  e c t_jp  t r - >ms  i d_l  r_x  + 
fg_rect_jDtr~>msid_lr_y  + 
fg_rect_jptr->scale_indl  + 

fU_rect_Ptr">scale_^nc:i2  + 
fg_rect_ptr->scale__ind3  + 
fg_rect_ptr->scale_ind4  + 
fg_rect_ pt  r->ddd_ind  + 
f g_rect_pt r->vis_ind; 

if  (fixed_flag  “ 0) 

fg_rect_ptr->pbi_ind  ■ 1; 

fg_rect_ptr->cur_color  - -1; 

break; 

case  POLYGON: 

fgr_ptr->graph_ptr  * malloc (sizeof (struct  fg_polygon_rec) ) ; 
if  (fgr_ptr->graph_ptr  “ NULL)  { 

tui_msg (M__YELLOW,  "Error  %d  on  foreground  polygon  record  malloc",  errn 


return  (-1) ; 


fgjpoly_ptr  - (struct  fg_polygon_rec  *)  fgrjptr->graphjptr; 


f scanf (ddf_ffp, 
fscanf (ddf_f fp, 
f scanf  <ddf_f fp, 
f scanf  (ddf__f  fp, 
f scanf (ddf_f fp, 
fscanf (ddf_f fp, 
f scanf (ddf_ffp, 


"%hd",  & ( f g_ poly^ ptr->line_typ©) ) ; 
”%f  ",  & (fg_poly_j5tr->line_wdth) ) ; 
"%hd",  & (fg_j>oly_ptr->pat_type) ) ; 
"%f  ",  & <fg_j>oly_ptr->pat__sizex) ) ; 
"%f  ",  & (fg_poly_ptr->pat_sizey) ) ; 
"%d",  & (fg_j?oly__ptr->fninbr_pts) ) ; 
"%d”,  & (fgjjoly^ ptr">mnmbr_j)t3)  ) ; 


Allocate  memory  for  the  fix  points  and 
assign  local  polygon  ptr  to  read  fixed 
points . 


fg_j?oly_ptr->poly_pts_ptr  - (struct  fg_graph_pts  *) 

calloc (fg_poly_ptr->fnmbr— pts,  sizeof (struct  fg_graph_pts) ) ; 

if  (fg_polyjptr->poly_pts_ptr  — NULL)  ( 

tui_ msg (M_YELLOW,  "Error  on  poly  points  calloc  ") ; 
return  (-1) ; 


poly_pts _ptr  - fg_poly_ptr->poly_pts_ptr; 

for  (w  - 0/  w < fg_poly_ ptr->fnmbr_pts;  w++)  { 

fscanf  (ddf_f fp,  "%f ",  & (poly_j>ts_ptr->point_x)  ) ; 
fscanf (ddf_f fp,  "%f ",  & (poly_pts_ptr->point_y) ) ; 


Transform  world  coordinates 


fg_poly_ptr->points [w] .x  - (short) 

(P°ly_J?ts_jptr->point_x  * factor_x)  ; 
fg_JP°ly__ptr->points  [w]  .y  - (short) 

((100.0  - poly_j?ts_ptr->point_y)  * factor _y)  ; 

poly_ptsjptr++; 

} 


Allocate  memory  fcr  the  msid  indices  and 
assign  local  polygon  ptr  to  read  msid 
indices . 


fg_P°ly_Jptr->msid_indj?tr  - (struct  msid_index  *) 

calloc ( (fg_poly-ptr->mnmbrjpts  * 2),  sizeof (struct  msid_index) ) 
if  (fg_poly_j5tr->msid_ind_j>tr  --  NULL)  { 

tui_msg <M_YELLOW,  "Error  on  poly  msid  points  calloc  ") ; 
return  (-1) ; 

} 

poly_msid  - f g_j>oly_j>tr->msid_ind_j>tr ; 

for  (j  - 0;  j < (fg_poly_j3tr->mnmbr— pts  * 2);  j++)  { 
fscanf (ddf_ffp,  "%d",  & (poly_jnsid->msid_ind) ) ; 
fixed_flag  +-  poly_msid->msid_ind; 
poly_msid++; 


} 
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* Allocate  memory  for  the  scale  indices  and 

* assign  local  polygon  ptr  to  read  scale 

* indices. 

*/ 


fgjpoly_jptr->poly_scale_ptr  - (struct  scale_index  *) 

calloc ( (fg_poly_ptr->mnmbr_pts  * 2) , sizeof (struct  scale_index) ) 

if  (fg_poly_ptr->poly_scale_ptr  " NULL)  { 

tui_msg (M_YELLOW,  "Error  on  poly  scale  calloc  ”) ; 
return  (-1) ; 

} 

poly_scale  = fg_j>oly-ptr->poly_scale  _ptr; 

for  (j  * 0;  j < (fg_poly__ptr->mnmbr_pts  * 2);  j++)  { 

fscanf (ddf_f fp,  "%d",  & (poly_scale->scale_ind_num) ) ; 

fixed_flag  +«  poly_scale->scale_ind_num; 
poly_scale++; 

) 

fscanf  (ddf_f fp,  "%d",  & (f g_poly_ptr->ddd_ind)  ) ; 

fscanf (ddf_f fp,  "%d",  & (fg_j>oly_ptr->scale_ind)  ) ; 

fscanf  (ddf_f fp,  ”%d",  & (fg_j5oly_ptr->label_num)  ) ; 


/* 

* Allocate  memory  for  label  index  structure  and  read 

* into  memory 
*/ 


f g jpo ly _pt r ->po ly_lb ljt r = (struct  label_index  *) 
calloc  (1,  sizeof (struct  label_index) ) ; 

if  (fg_j?oly_pt  r->poly_lbl_ptr  “ NULL)  { 

EXmsg ("Error  %d  on  foreground  poly  label  calloc  ",  errno) ; 
return  (-1) ; 

) 

poly__lbl  * fg_poly_j)tr->poly_lbl_ptr ; 

for  (j  - 0;  j < fg_poly_ptr->label_num;  j++) 

fscanf (ddf_ffp,  "%hd",  Mpoly_lbl->label_ind  [ j ] ) ) ; 

fscanf (ddf_ffp,  "%d",  & (fgjpoly_ptr->rot_ind) ) ; 

fscanf  (ddf__ffp,  "%dn,  & (fg_poly_ptr->vis_ind) ) ; 

fixed_flag  +~  fg_jDoly_ptr->ddd_ind  + 
fg_P°ly_J?tr->vis_ind  + 
fg_poly-jptr->rot_ind; 

if  (fixed— flag  “ 0) 

f g_poly_ptr->pbi_ind  = 1; 

fg__poly_pt  r->cur_color  = -1; 

break; 
case  CURVE: 

fgr__ptr->graph_ptr  - 

malloc (sizeof (struct  fg_curve_rec) ) ; 


if  (fgr_ptr->graph_ptr  — NULL)  { 

tui__msg  (M_YELLOW,  "Error  %d  on  foreground  curvical  record  malloc",  err 

no)  ; 

return  (-1); 

) 

fg_cur _ptr  - (struct  fg_curve_rec  *)  fgr_j>tr->graph_ptr ; 

fscanf (ddf_f fp,  "%hd",  & (fg_cur_jptr->line_type) ) ; 
fscanf  (ddf_ffpr  "%f  ",  & (fg_cur_ptr->line_wdth) ) ; 
fscanf (ddf_ffp,  "%d”,  & (fg_curjptr->fnmbr_pts) ) ; 
fscanf (ddf_ffp,  "%d",  & (fg_curjptr->mnmbr_jpts) ) ; 


/* 

* Allocate  memory  for  the  fixed  points , msid  points , 

* scale  indices,  and  label  indices. 

*/ 


fg_cur_jptr->cur_pts_ptr  - (struct  fg_graph_pts  *) 

calloc (fg_cur _ptr->fnmbr_ pts,  sizeof (struct  fg_graph_pts) ) ; 

if  ( fg_cur__pt  r->cur__pts_j>tr  — NULL)  { 

tui_msg(M_YELLOW,  "Error  %d  on  foreground  curve  record  malloc",  errno) 

return  (-1) ; 

} 

fg_curjptr->msid_ind_ptr  - (struct  msid_index  *) 
calloc  ( (fg_cur_j3tr->mnmbr_pts  * 2) , 

sizeof (struct  msid_index) ) ; 

if  (fg_cur_ptr->msid_ind_j?tr  --  NULL)  { 

tui_msg (M_YELLOW,  "Error  on  curve  msid  points  calloc  ")  ; 
return  (-1); 

} 

fg_cur_jptr->cur_scalejptr  - (struct  scale_index  *) 
calloc ( (fg_cur_ptr->mnmbr_pts  * 2) , 

sizeof (struct  scale_index) ) ; 

if  (fg_cur_ptr->cur__scale_ptr  --  NULL)  { 

tui_msg ( M_ YELLOW,  "Error  on  curve  scale  calloc  ") ; 
return  (-1); 


fg_cur _j>tr->cur_lbljptr  - (struct  label_index  *) 

calloc  (1,  sizeof (struct  label_index) ) ; 

if  (fg_cur_jptr->cur_lbljptr  ««  NULL)  { 

tui_msg (M^YELLOW,  "Error  %d  on  foreground  curve  label  calloc  " 

return  (-1) ; 


/* 

★ 

*/ 


Read  fixed  points 


cur _j?ts _ptr  - fg_cur_ptr->cur_pts_ptr; 

for  (w  » 0;  w < fg_cur_j>tr->fnmbr_pts ; w++)  { 

fscanf  (ddf_ffp,  "%f ",  & (cur_jDts_ptr->point_x)  ) ; 
fscanf (ddf_f fp,  "%f",  & (cur_pts_ptr->point_y) ) ; 


, errno) 


Transform  world  coordinates 


fg  cur_pt r->points [w] .x  * (short) 

“ * (cur_pts_ptr->point_x  * factor_x) ; 

fg_cur_ptr->points [w] .y  * (short) 

((100.0  - cur_pts_ptr->point_y)  * factor_y) 

cur_ pts_ptr++; 

} 


Read  msid  indices 


cur_msid  * fg_cur_ptr->msid_ind_ptr; 

for  (j  ■ 0;  j < (fg_cur_ ptr->mnmbr-pts  * 2);  j++)  { 

fscanf  (ddf_f  fp,  "%d",  & (cur_msid->msid_ind)  ) ; 
fixed_flag  +-  cur_msid->msid_ind; 
cur_msid++; 

} 


Read  scale  indices 


cur_scale  - fg_cur_ptr->cur_scale_ptr; 

for  (j  - 0/  j < (fg_cur_ptr->mnmbr— pts  * 2);  j++)  ( 

fscanf (ddf_ffp,  "%d",  & (cur_scale->scale_ind_num) ) ; 
fixed__flag  +-  cur_scale->scale_ind_num; 
cur_scale++; 

} 

fscanf <ddf_f fp,  "%d”,  & (fg_cur_ptr->ddd_ind) ) ; 
fscanf (ddf_f fp,  "%d" , & (fg_curj?tr->scale_ind) ) ; 
fscanf  (ddf_ffp,  "%d",  & (fg_cur_ ptr->label_num) ) ; 


Read  label  indices 


cur_lbl  = fg_cur_ptr->cur_lbl_ptr; 

for  (j  - 0;  j < fg_cur_ptr->label— num;  j++) 

fscanf (ddf_f fpr  "%hd"r  & (cur_lbl->label__ind [ j ] ) ) ; 

fscanf (ddf_ffpr  "%d",  & (fg_cur_ptr->vis_ind) ) ; 

fixed_flag  +~  fg^cur^ ptr->ddd_ind  + 
fg_cur_jDtr->vis_ind; 

if  (fixed_flag  ==  0) 

fg_cur_jptr->pbi_ind  = 1; 

fg_cur_ptr->cur_color  = -1; 

break; 

case  CIRCLE: 

fgr_ptr->graph_ptr  = malloc (sizeof (struct  f g_circle_rec) ) ; 


errno)  ; 
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if 


} 


(fgr_ptr->graph_ptr  -*  NULL)  { 

EXmag ("Error  %d  on  foreground  circle  record  malloc" 
return  (-1) / 


fg_cir_ptr  - (struct  fg_circle_rec  *)  fgr_ptr->graph_pt r ; 


f scanf (ddf_f fp, 
fscanf  (ddf_f fp, 
f scanf  (ddf__f  fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_ffp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf  (ddf__f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp. 


"%hd",  & (fg__cir_ptr->line_type) ) ; 
"%f ",  & <fg_cir_ ptr->line_wdth)  ) ; 
"%hd",  & (fg_cir__ptr->pat_type)  ) ; 
"%f  ",  & (fg_cir_ptr->pat_sizex)  ) ; 
"%f ",  & (fg_cir_ptr->pat— sizey) ) ; 
"%f ",  & (fg_cir_ptr->center_x) ) ; 
"%f",  & (fg_cir_ptr->center_y) ) ; 

"%f ",  & (fg_cir_ptr->radius) ) ; 

"%d",  & (fg_cir_ ptr->msid_cen_x)  ) ; 
"%d",  & (fg_cir_ptr->msid_cen__y) ) ; 
"%d",  & (fg_cir_ptr->msid_radius) ) ; 
"%d",  St  (fg_cir_ptr->scale_indl) ) ; 
"%d",  St  (fg_cirjptr->scale_ind2) ) ; 
"%d",  St  (fg_cir_jptr->scale_ind3)  ) ; 
"%d",  & (fg_cir_ptr->ddd_ind) ) ; 
"%d”,  St  (fg_cir_ptr“>scale— ind)  ) ; 
"%d",  St  (fg^cir^ ptr->label_num)  ) ; 


fg_cir _jpt r->cur_rad  - fg_cir_ptr-> radius  * factor_x; 


fg_cir_ptr->bb.x  - (short)  (fg_cir_ptr->center_x  * factor_x 

- fg_cir_ptr->cur_rad)  / 

fg_cir_ptr->bb.y  - (short)  ((100.0  - fg_cirjptr->center_y) 

* factor_y  - fg_cir_ptr->cur_rad) ; 

fg_cir__ptr->cir_lbl_ptr  * (struct  label_index  *) 

calloc (1,  sizeof (struct  label_index) ) ; 

if  (fg_cir_jptr->cir_lbl_ptr  — NULL)  { 

tui^msg (M__YELLOW,  "Error  %d  on  foreground  cir  label  calloc  ",  errno); 
return  (-1)  ; 

) 


cir_lbl  - fg_cir_ptr->cir_lbl_ptr; 

for  (j  - 0;  j < f g_c i rj)t r - > 1 abe l_num ; j++) 

fscanf <ddf_ffp,  "%hd",  & (cir_lbl->label_ind[  j ] ) ) ; 

fscanf (ddf_f fp,  "%d",  & (fg_cir_ptr->vis_ind) ) ; 

fixed_flag  - 

f g_cir_j>tr->msid_cen_x  + 
fg_cir_pt  r->msid_cen_y  + 
fg_cir_ptr~>msid_radius  + 
fg_cirjptr->scale_indl  + 
fg_cir_j)tr->scale_ind2  + 
fg_cir_ptr->scale_ind3  + 
fg__cir_ptr->ddd_ind  + 
fg_cir_jptr->scale_ind  + 
f g_c  i r_jp  t r - > vi  s_i  nd ; 

if  (fixed_flag  “ 0) 

fg_cir_ptr->pbi_ind  =■  1; 

fg_cir_ptr->cur_color  =*  -1; 


case  ARC: 

fgr_ptr->graph_ptr  « malloc (sizeof (struct  fg_arc_rec) ) ; 
if  (fgr_jDtr->graph_ptr  “ NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  foreground  arc  record  malloc",  errno) ; 
return  (-1) ; 

} 

fg_arc_ptr  = {struct  fg_arc_rec  *)  fgr_j>tr->graph_ptr ; 

fscanf  (ddf_f fp,  "%hd",  & <fg_arc_ptr->line_type) ) ; 
fscanf (ddf_ffp,  "%f",  Mfg_arc_ptr->line_wdth) ) ; 
fscanf (ddf_ffp,  "%hd",  & (fg_arc_ptr->pat_type) ) ; 
fscanf (ddf_f fp,  "%f”,  & (f g_arc_ptr->pat_sizex) ) ; 
fscanf (ddf_ffp,  "%f",  & (fg_arc_ptr->pat_sizey) ) ; 
fscanf (ddf_f fp,  "%f  ",  & (fg_arc_ptr->center_x) ) ; 
fscanf (ddf_ffp,  "%f",  & (fg_arc_ptr->center_y) ) ; 
fscanf (ddf_ffp,  "%lf",  &<fg_arc _ptr->anglel) ) ; 
fscanf (ddf_ffp,  "%lf",  & {fg_arc_ptr->angle2) ) ; 
fscanf <ddf_ffp,  "%f",  & (fg_arc-ptr->ma j_axis) ) ; 
fscanf (ddf_ffp,  "%f ",  & <fg_arcjptr->min_axis) ) ; 
fscanf  (ddf_f fp,  "%d",  & (fg_arc_ptr->msid_cen_x) ) ; 
fscanf  {ddf_f fp,  "%d",  & (fg_arc_ptr->msid_cen _y)  ) ; 
fscanf (ddf_ffp,  "%d",  & (fg_arc_ptr->msid_angl) ) ; 
fscanf (ddf_ffp,  "%d",  & (fg_arc— ptr->msid_ang2) ) ; 
fscanf (ddf_ffp,  ”%d",  & (fg_arc_ptr->msid_ma  j ) ) ; 
fscanf  (ddf_ffp,  "%d",  & (fg_arcjptr->msid_min) ) ; 
fscanf  (ddf__ffp,  "%d",  & (fg_arc_ptr->scale_indl)  ) ; 
fscanf (ddf_f fp,  "%d",  & (fg_arc_ptr->scale_ind2) ) ; 
fscanf (ddf_ffp,  "%d",  & (fg_arc_ ptr->scale_ind3) ) ; 
fscanf (ddf_ffp,  "%d",  & (fg_arc— ptr->scale_ind4) ) ; 
fscanf  (ddf_ffp,  "%d",  & (fg_arc__ptr->scale_ind5)  ) ; 
fscanf (ddf_f fp,  "%d" , & (fg^arc^ ptr->scale_ind6) ) ; 
fscanf <ddf_f fp,  "%d”,  & (fg_arc_jptr->ddd_J.nd) ) ; 
fscanf (ddf_ffp,  "%d",  & (fg_arc_ptr->scale_ind) ) ; 
fscanf (ddf_ffp,  "%d",  & (fg_arc-ptr->label_num) ) ; 

fg_arc_ptr->sma jor  - (short)  ( f g_ arc_pt r->ma j_axis  * factor_x) ; 
fg_arcj>t r->sminor  - (short) 

((100.0  - fg_arc_ ptr->min_axis)  * factor_y); 
fg_arc_ptr->center ,x  * (short) (fg_arc_ ptr->center_x  * factor_x); 
fg_arc_ptr->center . y * (short) 

((100.0  - fg_ arc_ptr->center_y)  * factor__y); 
fg_arc_ptr->cur__angl  - fg_arc_ptr->anglel; 
f g_arc_ptr->cur_ang2  * fg_arc_ptr->angle2 ; 

if  (fg_arc_ ptr->label_num  >0)  { 

fg_arc__ptr->arc_lbl_ptr  - (struct  label_index  *) 

calloc(l,  sizeof (struct  label_index) ) ; 

if  (fg_arc_ptr->arc__lbl— ptr  ” NULL)  ( 

tui_msg (M_YELLOW,  "Error  %d  on  foreground  arc  label  calloc  ",  errn 

return  (-1) ; 

) 

arc_lbl  fg_arc_ptr->arc_lbl_ptr ; 

for  (j  * 0;  j < fg_arc_ptr->label_num;  j++) 

fscanf (ddf_ffp,  "%hd",  & (arc_lbl->label__ind  [ j ] ) ) ; 


} 
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fscanf <ddf_f fp,  "%d",  & (fg_arc_ptr->rot_ind) ) ; 
fscanf (ddf_ffp,  "%d",  & (fg_arc_ptr->vi3_ind) ) ; 

fixed_flag  - 

fg_arcjptr->msid_cen_x  + 
fg_arc-j>tr->msid_cen_y  + 
fg_arc_ptr->msid__angl  + 
f g_a  rc__pt  r - >ms  id__a  ng2  + 
f g_a  r c_p t r - >ms i d_ma j + 
fg_arc_ptr->msid_min  + 
fg_arc_ptr->scale_indl  + 
fg_arc_ ptr->scale_ind2  + 
fg_arc_ptr->scale_ind3  + 
fg_arc_ptr->scale_ind4  + 
fg_arc_ptr->scale_ind5  + 
fg_arc_ptr->scale_ind6  + 
fg__arc_ptr->ddd_ind  + 
fg_arc_ptr->scale_ind  + 
fg_arc_ ptr->rot_ind  + 
fg_arc_ptr->vis_ind; 

if  { f ixed_f lag  — 0) 

fg_arc_jptr->pbi_ind  - 1; 

fg_arcjptr->cur_color  - -1; 

break; 

case  ELLIPSE: 

f,?rjptr->graph jptz  - malloc  (sizeof  {struct  fg_ellipse_rec) ) ; 
if  (fgr_ ptr->graph_ptr  --  NULL)  { 

tuijnsg <M_YELLOW,  "Error  %d  on  foreground  ellipse  record  malloc",  errn 
return  (-1) ; 


fg_ell_ptr  - (struct  fg_ellipse_rec  *)  fgr_ptr->graph__ptr; 


fscanf (ddf_ffp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf  (ddf__f  fp, 
fscanf (ddf_f fp, 
fscanf (ddf_ffp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf  (ddf_f fp, 
fscanf (ddf_ffp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf  (ddf__ffp, 
fscanf (ddf_f fp, 
fscanf (ddf_ffp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp, 
fscanf (ddf_f fp. 


"%hd",  & (fg_ell_ptr->line_type) ) ; 
"%f",  & <fg_ell_ptr->line_wdth) ) ; 
"%hd",  & (fg_ell_ptr->pat_ type) ) ; 
"%f ",  & (fg_ell_ptr->pat_sizex) ) ; 
"%f ",  & (fg_ell_ptr->pat_sizey) ) ; 
"%f ",  & (fg_ell_ptr->center_x) ) / 
"%f  ",  & (fg_ell_ptr->center__y) ) ; 
"%f",  &(fg_ell _jptr->ma  j_axis) ) ; 
"%f",  & (fg_ell— ptr->min_axis) ) ; 
"%d",  & (fg_ell_ptr->msid_cen_ x) ) ; 
"%d",  & (fg_ell_jptr->msid_cen_y) ) ; 
"%d",  & (fg_ell_ptr->msid_len) ) ; 
"%d",  & (fg_ell_ptr->msid_hgh) ) ; 
"%d",  & (fg_ell_ptr->scale_indl) ) ; 
"%d",  & (fg_ell_ptr->scale_ind2) ) ; 
"%d",  & (fg_ell_ptr->scale_ind3)  ) ; 
"%d",  & (fg_ell_ptr->scale_ind4)  ) ; 
"%d",  & (fg_ell_ptr->ddd_ind) ) ; 
"%d",  & (fg_ell_ ptr->scale_ind)  ) ; 
”%d",  & (fg_ell_ptr->label_num)  ) ; 


fg_elljptr  >center.x  =*  (short)  (fg  ell  ptr->center__x  * factor  x)  ; 
fg_ell_j>tr->center .y  - (short) 


fg_ell_ptr->sma jor  - (short)  (fg_ell_ptr->ma j_axis  * factor_x)  ; 
fg_ell_ptr->sminor  - (short) 

((100.0  - fg_elljptr->min_axis)  * factor_y) ; 


fg_ell_ptr->ell_lbl_ptr  - (struct  label_index  *) 

callocd,  sizeof  (struct  label_index)  ) ; 

if  (fg__ell_ptr->ell_lbl_ptr  “ NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  foreground  ellipse  label  calloc  ",  errn 

return  (-1) ; 


ell_lbl  * fg_ell_ptr->ell_lbl_ptr; 

for  (j  - 0;  j < fg_ell_ptr->label_num;  j++) 

fscanf (ddf_ffp,  "%hd",  & (ell_lbl->label_ind [ j ] ) ) ; 

f scanf (ddf_f fp,  ”%d",  & (fg_ell _ptr->vis_ind) ) ; 

fixed_flag  * 

fg_ell_ptr->msid_cen_x  + 
f g_e  1 l_p  t r - >ms  i d__c  e n_y  + 
f g__ell_ptr->msid__len  + 
f g_ell  j>tr->msid__hgh  + 
fg_ell_ptr->scale_indl  + 
fg_ell_jptr~>scale_ind2  + 
f g_ell  _jptr->scale_ind3  + 
fg_ell_ptr->scale_ind4  + 
fg_ell_ptr->ddd__ind  + 
fg_ell_j>tr->vis_ind; 

if  (fixed_flag  ” 0) 

fg_ell_ptr~>pbi_ind  - 1 ; 

fg_ell_ptr->cur_color  - -1; 

break; 

case  PIE_CHART: 

/*  RLK  10/9/90  Assuming  no  pie  charts  for  now... code  not  corrected  */ 

fgr_ptr->graph_jptr  * malloc  (sizeof  (struct  fg_j>iechrt_rec)  ) ; 
if  <fgr_jptr->graph_ptr  “ NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  foreground  pie  chart  record  malloc",  er 

rno)  ; 

return  (-1) ; 


fg_j3ie_ptr  * (struct  fg_j>iechrt_rec  *) 
fgr_ptr->graph_ptr; 

fscanf (ddf_ffp,  "%hd",  &color) ; 
fg_j)ie_ptr->def_col  =*  (long)  Pixels  [color]  ; 
fscanf (ddf_ffp,  ”%hd",  & (fg_j?ie_ptr->pat_type) ) ; 
fscanf (ddf_ffp,  "%f",  & (fg_pie_ptr->pat_sizex) ) ; 
fscanf (ddf_ffp,  "%f",  & (fg_j>ie_pt  r->pat_sizey) ) ; 
fscanf <ddf_ffp,  "%f",  & (fg_pie_ptr->center_x) ) ; 
fscanf  (ddf_ffp,  "%f  ",  & (fg_jpie_ptr->center_y)  ) ; 
fscanf (ddf_ffp,  "%f ",  & (fg_pie_ptr->radius) ) ; 
fscanf  (ddf_ffp,  "%hd”,  & (fg_jpie_ptr->sum_f  lag)  ) ; 
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fscanf (ddf_ ffp,  H%lfwf  & (fg_ pie_ptr->sum_j>ie) ) ; 
fscanf  (ddf_ffp,  "%d",  & (fg^ie^tr->num_msid) ) ; 


fg_pie_ptr->pie_msid_ptr  - (struct  pie_msid— index  *) 

calloc (fg_jDie_ptr->num_msid/  sizeof (struct  pie_msid_index) ) ; 
if  (fg_j)ie__ptr->pie_msid— ptr  “ NULL)  { 
return  (-1) ; 

) 

pie_msid  - fg_pie_ptr->pie_msid_j5tr; 


for  (j  - 0;  j < fg_pie_ptr->num_msid;  j++)  { 

fscanf  (ddf_ffp,  "%d",  & (pie_msid->msid_ind)  ) ; 

pie_msid->cur_color  - -1; 

pie_msid++; 

} 

break; 


case  CLOCK_METER: 

/*  RLK  10/9/90  Assuming  no  clock  meters  for  now... code  not  corrected  */ 

fgr_ptr->graph_ptr  - malloc (sizeof (struct  fg_clkmtr_rec)  ) ; 
if  (fgr_ ptr->graph_ptr  ««  NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  foreground  clock  meter  record  malloc", 

errno)  ; 

return  (-1) ; 


fg_clk_ptr  - (struct  fg_clkmtr_rec  *)  fgrjptr->graph_jpt r; 

fscanf (ddf_ffp,  "%hd",  & (fg__clkj ptr->line_type) ) ; 
fscanf (ddf_ffp,  "%f ",  & (fg— clk_ptr->line_wdth) ) ; 
fscanf (ddf_ffp,  "%d",  icolor); 
fg_clk_jptr->clkmtr__col  * Pixels  [color] ; 
fscanf (ddf_ffp,  ”%hd”,  & (fg_clk_ptr->pat_type) ) ; 
fscanf (ddf_ffp,  ”%f”,  & <fg_clkj>tr->pat_sizex) ) ; 
fscanf <ddf_f fp,  "%f",  & (fg_clk_ptr->pat_sizey) ) ; 
fscanf  (ddf_ffp,  "%f  ",  & <fg_clk_ptr->center__x) ) ; 
fscanf <ddf_ffp,  "%f ",  & (fg_clk_ptr->center_y) ) ; 
fscanf (ddf_ffp,  ”%f ”,  6 (fg_clk_ptr->radius) ) ; 
fscanf  (ddf_ffp,  ”%lf ",  & (fg__clk_ptr->angle_l) ) ; 
fscanf (ddf_ffp,  "%lf ",  & (fg_clk_j>tr->angle_2) ) ; 
fg_clk _ptr->angle_diff  - fabs  (fg_clkjptr->angle_2  - 

fg_clk_ptr->angle_l)  ; 

fscanf (ddf_ffp,  "%d",  &(fg_clk_ptr->num_msid)); 

fg_clk_ptr->clk_msid_ptr  * (struct  cm__msid_index  *) 

calloc  (fg_clk_j>tr->num__ms id,  sizeof  (struct  cm_msid_index)  ) ; 

if  (fg_clk_ptr->clk_msidj>tr  — NULL)  ( 
return  (-1) ; 

} 

clk_msid  » fg_clk_ptr->clk_msid_ptr ; 

for  (j  - 0;  j < f g_c 1 k_pt r ->num_ms id;  j++)  [ 

fscanf (ddf_f fp,  "%d",  & (clk_msid->msid_ind) ) ; 
clk_msid->cur_color  » -1; 
elk  msid++; 


for  (j  * 0;  j < fg_clk_ptr->num__msid;  j++) 

fscanf (ddf_ffp,  "%hd",  & (fg_clk_ptr->hand_type [ j ] ) ) ; 


fg_clk_ptr->clk_scale_ptr  = (struct  scale_index  *) 

calloc  (fg_clk^tr->num__msid,  sizeof  (struct  scale_index)  ) ; 

if  (f  g_clkjptr->clk_scale_ptr  =■*  NULL)  { 
return  (-1) ; 

) 

clk_scale  - fg_clk_ptr->clk_scale_ptr; 

for  (j  = 0;  j < f g_c 1 k_p t r - >num_ms id ; j++)  { 

fscanf (ddf_ffp,  "%d",  & <clk_scale->scale_ind__ num) ) ; 
clk_scale++; 

} 

f g_clk_pt r->init_ draw  - YES; 

break; 


case  BAR_CHART : 

/*  RLK  10/9/90  Assuming  no  bar  charts  for  now... code  not  corrected  */ 
fgr^ptr-^raph^ptr  * malloc  (sizeof  (struct  fg_bar_rec)  ) ; 
if  ( fgr_ptr->graph_jpt r " NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  foreground  bar  chart  record  malloc",  er 

rno)  ; 

return  (-1) ; 

} 


fg__bar_ptr  - (struct  fg_bar_rec  *)  fgr_ptr->graph_jptr ; 

fscanf (ddf_ffp,  "%hd",  & (fg_bar_ptr->line_type) ) ; 
fscanf  (ddf_ffp,  "%f ",  & (fg_bar_ptr->line_wdth)  ) ; 
f scanf (ddf_f fp,  "%s",  temp); 
fg_bar_ptr->di recti on  - temp[0]; 

fscanf (ddf_ffp,  "%hd",  & (fg_bar_ptr->pat_type) ) ; 
fscanf (ddf_ffp,  "%f ",  & (fg_bar— ptr->pat_sizex) ) ; 
fscanf (ddf_ffp,  "%f",  & (fg_bar_j>tr->pat_sizey) ) ; 
fscanf (ddf_ffp,  "%f",  & ( f g_ bar_pt r->ul_x) ) ; 
fscanf (ddf_ffp,  "%f",  & <fg_bar_ptr->lr_y) ) ; 
fscanf  (ddf_f fp,  "%f",  & (fg_Jbarj>tr->lr_x)  ) ; 
fscanf (ddf_f fp,  "%f",  & (fg_bar_ptr->ul_y) ) ; 
fscanf (ddf_ffp,  "%d",  & (fg_Jbar_ptr->msid_indx) ) ; 
fscanf (ddf_ffp,  "%d",  & (fg_bar^ptr->scale_indx) ) ; 


f g_bar_ptr->cur_color  = -1; 


break; 


default : 
break; 

) 

fgr_jptr++; 

} 

D (print f ( "END  read_f gr \n" ) ) ; 
return  ( 0 ) ; 
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/a***************************************************************************** 

* MODULE  NAME:  read_files.c 

He 

* The  function  searches  a directory  for  either  limit  or  plot  files  and  gen- 

* erates  a list  which  is  later  presented  to  the  user. 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* D.  Rice  - Ford  Aerospace  Corporation 

★ 


★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

****************************************************************************** y 


♦include  <constants .h> 
♦include  <disp.h> 
♦include  <stdio.h> 
♦include  <fcntl.h> 
♦include  <wex/EXmsg.h> 


extern  struct  dm_shmemory  *Dm_Address; 

extern  struct  limit_file  *First_lim_jptr; 


extern  struct  file_infc 

> *Disp_Info; 

/*  pointer  to  file  information 

*/ 

extern  char 

Disp_Path  [DNAME_ 

_LEN] ; 

/*  display  path  name 

*/ 

extern  int 

errno; 

/*  system  return  error 

*/ 

extern  short 

Disp_Num; 

/*  display  manager  number 

*/ 

int  read_files  ( 

limit_ 

list  ) 

int 

/ 

limit_list  ; 

int 

num_disps  -0; 

struct  limit 

_f  ile 

*temp_ptr; 

struct  file_ 

info 

*d_info_ptr; 

/*  pointer  to  file  information 

*/ 

char 

*pt  r. 

filename  [DNAME_LEN 

+ 4], 

/*  display  name 

*/ 

disp_name  [DNAME  LEN 

+ 4], 

/*  display  name  with  path 

*/ 

name  [DNAME_LEN]  ; 

/*  disp  name  w/path  not  extension 

*/ 

FILE 

*fp,  *fpl,  *fopen  ( 

) ; 

/*  display  file  pointers 

*/ 

int 

num_files  * 0, 

j , 

/*  loop  indices 

*/ 

length; 

/*  file  name  length 

*/ 

char 

*calloc  ( ) , 

/*  space  allocation 

*/ 

str [80] , 

/*  contains  system  command 

*/ 

temp_f  ile  [30] , 

/*  temporary  file  name 

*/ 

match; 

/*  tells  if  plot  is  active  or  not 

*/ 

D (printf ("START  read_f iles\n" ) ) ; 

/* 

* Display  wait  cursor. 

*/ 


read  files.c 


tui  start  wait  ( ) ; 


* Build  the  system  commands  to  read  all  the  plot  files  in  the  display 

* directory  into  a temporary  file  f tdispX. dat f . ( Is  [path]  > tdisp.dat  ) 

*/ 

sprintf  ( temp_file,  ”/user/display/tdisp%hd.dat”,  Disp_Num  ); 

sprintf  ( str,  ”ls  %s*.%s  > %s",  Disp_Path,  ( limit_list  — ON  ) ? "lmt”  : "pit", 
temp_file  ) ; 

if  ( system  ( str  ) ) { 

tui_msg  { M_YELLOW,  "Error  on  reading  file  directory”  ) ; 
tui_stop_ wait  ( ) ; 
return  ( -1  ) ; 

} 

if  { ( fp  - fopen  ( temp_file,  ”r”  ) ) -«  NULL  ) { 

tui_msg  ( M_YELLOWf  "Error  %d  on  reading  file  directory  file”,  errno  ) ; 
tui_stop_wait  { ) ; 
return  ( -1  ) ; 

> 

/* 

* Read  the  directory  file  for  an  initial  count  of  the  number  of 

* files  in  the  directory. 

*/ 

while  { ( fscanf  ( fp,  ”%s”,  file_name  ) ) !-  EOF  ) 

num_f  iles++; 

rewind  ( fp  ) ; 

/* 

* Allocate  space  for  the  file  name  and  active  flag 
*/ 

Disp_Info  - (struct  file_info  *)calloc  ( num_files,  sizeof  ( struct  file_info  ) ) 
if  ( Disp_Info  “ NULL  ) { 

tui_msg  ( M__YELLOW,  "Error  %d  on  allocation  of  file  info  structure",  errno  ) ; 
tui_stop_wait  ( ) ; 
return  ( -1  ) ; 

} 

d_info_j>tr  = Disp_Info; 

/* 

* Process  each  filename. 

*/ 

while  ( ( fscanf  ( fp,  ”%s",  file_name  ) ) !-  EOF  ) { 

strcpy  ( disp_name,  file_name  ) ; 

/* 

* Extract  just  the  filename  (less  path) . 

*/ 

ptr  « file_name  + strlen  ( file_name  ) - 1; 
while  ( ptr  > file_name  &&  *ptr  !*  f/'  ) 
ptr — ; 
ptr++; 
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if  ( ( fpl  - fopen  ( disp_name,  "r"  ) ) ««  NULL  ) { 

tui_msg  ( M_YELLOW,  "Error  %d  on  display  <%s>  open",  errno,  disp_name  ); 
free  ( (char  *)Disp_Info  ); 
tui_stop_wait  ( ) ; 
return  ( -1  ) ; 

) 


/* 

* Read  in  the  name  field  and  blank  the  extension  '.pit'  and  add  in  the 

* in  column  8.  Also,  check  the  active  plot  table  and  if  the  plot  is  active 

* store  ACTIVE  in  memory,  else  store  INACTIVE. 

*/ 

length  - strlen  ( ptr  ) ; 

for  ( j - 8;  j > length  - 5;  j — ) 

* (ptr  + j)  - ' • ; 

strncpy  ( d_info_ptr->name,  ptr,  8 ) ; 

strncpy  ( Sd_info_ptr->name [8] , " : \0",  4 ); 
d_info_ptr->inverse_f lag  - NO; 

i - 0; 
match  - NO; 

length  - strlen  ( disp_name  ) ; 
strncpy  ( name,  disp_name,  length  - 4 ) ; 
name [length  - 4]  - '\0'; 

/* 

* If  processing  for  plots,  then  look  in  plot  active  table  for  the  status 
*/ 

if  ( limit_list  !-  YES  ) { 

while  ( ( i < MAX_PLOTS  ) &&  ( match  — NO  ) ) { 

if  ( ( strcmp  ( Dm_Address->plots .act_plots [i] , name  ) ) ==  0 ) ( 
match  - YES; 

strncpy  ( &d_info_ptr->act_f lag [0] , "ACTIVE  \0",  9 ); 

} 

i++; 

) 

I* 

* Else  if  processing  for  limits,  then  look  in  the  limit  link  list  for  the 

* status . 

*/ 


} else  ( 

temp_ptr  ” First_lim_ptr; 

while  ( match  --  NO  &&  temp_ptr  !«  NULL  ) ( 

if  ( ( strcmp  ( temp_ptr->file_name,  name  ))-«■())  { 
match  - YES; 

strncpy  ( &d_info_ptr->act_flag [0] , "ACTIVE  \0",  9 ); 

) 

temp_ptr  - temp__ptr->next_ptr; 

J 

) 

if  ( match  ==  NO  ) 

strncpy  ( &d_info_ptr->act_flag[0] , "INACTIVE\0",  9 ); 

d_info_ptr++; 
num_disps++; 
fclo3e  ( fpl  ) ; 
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/* 

* Close  the  temp  file  and  remove  it  from  system. 
*/ 


fclose  ( fp  ) ; 

strncpy  ( str,  "rm  \0",  4 ); 
strcat  ( str,  temp_file  ) ; 
if  ( system  ( str  ) ) 

tui_msg  ( M_YELLOW,  ’’Error  on  removing  temporary  file” 


) ; 


tui_stop_wait  ( ) ; 

D(printf ("END  read_f iles\n" ) ) ; 
return  ( num_disps  ) ; 


/****************************************************************************^ 

* MODULE  NAME:  read_ovls.c 

★ 

* This  function  reads  the  plot  data  files  or  overlay  files  in  a directory 

* and  builds  a list  which  makes  it  easier  for  the  user  to  specify  a source 

* file. 

* 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

************************************************^^********A*Ayt****At^Ai^ti^AAA  ^ 


♦include  <stdio.h> 
♦include  <fcntl.h> 
♦include  <constants . h> 
♦include  <disp.h> 
♦include  <pf_key.h> 
♦include  <wex/EXmsg. h> 


extern  struct  pfkey_defs 
extern  char 
extern  int 
extern  short 


Current_Com; 
DispJ?ath[DNAME_LEN]  ; 
errno; 

Disp_Num; 


/*  Current  command. 

/*  Display  path  name. 

/*  System  return  error. 

/*  Display  manager  number. 


int  read_ovls  { list  file  ) 


char 

***list_f ile 

FILE 

*fp. 

*fopen  ( ) ; 

char 

*ptr. 

*ptrl. 

**list. 

filename  [DNAME 
str  [80], 

temp_f  ile  [30] , 
*malloc  () ; 

int  num_files  - 0; 

D {print f ( "START  read  ovls\nn)); 

/* 

* Display  wait  cursor. 

*/ 


/*  Pointer  to  the  list  of  overlays 
/*  Display  file  pointers. 


LEN+4],  /*  Display  name. 

/*  Contains  system  command. 
/*  Temporary  file  name. 


tui_start_wait  ( ) ; 


/* 

Build  the  system  commands  to  read  all  overlay  files  into  a temporary  file.  If  the 
* system  call  fails,  generate  an  error  and  return. 

*/ 


sprintf  ( temp_file,  ”/user/display/tdisp%hd.dat ",  Disp_Num  ); 
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sprintf  ( str,  "Is  %s*.%3  > %s",  Disp_Path, 

( Current_Com.func_no  --  S AVE_0 VRLA Y ) ? "pdt"  : "ovr",  temp_file 

if  ( system  ( str  ) ) { 

tui  msg  ( M_YELLOW,  "Error  on  reading  display  directory  or  no  overlay  files"  ) ; 

tui_stop_wait  { ) ; 
return  ( -1  ) ; 

} 

/* 

* Open  the  file  containing  the  directory  information.  If  this  fails,  generate  an  error 

* and  return. 

*/ 

if  ( ( fp  - fopen  ( temp_file,  "r"  ) ) --  NULL  ) { 

tui_msg  ( M_YELLOW,  "Error  %d  on  reading  display  directory  file",  errno  ); 
tui_stop_wait  ( ) ; 
return  ( -1  ) ; 

} 

/* 

* Read  the  display  directory  file  for  an  initial  count  of  the  number  of 

* displays  in  the  directory. 

*/ 


while  ( fscanf  ( fp,  "%s",  file_name  ) !«  EOF  ) 

num_f iles++; 

rewind  { fp  ) ; 


/* 

* Allocate  space  for  list  of  file  names.  If  this  fails,  generate  a warning  and  exit. 
*/ 

if  ( { list  « (char  **)malloc  ( num__files  * sizeof  ( char  * ) ) ) “ NULL  ) { 
tui_msg  ( M_YELLOW,  "Error  %d  on  allocation  of  list",  errno  ) ; 
tui_stop_wait  ( ) ; 
return  ( -1  ) ; 

} 

/* 

* Process  each  filename.  Extract  each  name  and  find  the  actual  filename  (less  the 

* path) . Change  the  name  not  to  include  the  extension. 

*/ 


num_files  “ 0; 

while  ( fscanf  ( fp,  "%s",  file_name  ) !=*  EOF  ) ( 

ptr  - file_name  + strlen  ( file_name  ) - 1; 
while  ( ptr  > file_name  &&  *ptr  !-  9 /'  ) 
ptr — ; 
ptr++; 

if  ( ptrl  - index  ( ptr,  ) ) 

*ptrl  - f\0r; 


/* 

* Allocate  memory  for  the  new  name  and  add  to  the  list.  MDC  - add  error  processing. 

*/ 

Mlist  + num_files)  = malloc  ( strlen  ( ptr  ) ); 

strcpy  ( *(list  + num_files),  ptr  ); 
num  filest+; 


/* 


} 
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* Close  the  temporary  file  and  remove  it  from  system. 

*/ 

fclose  ( fp  ) ; 

strcpy  ( str,  Mrm  " ) ; 

s treat  ( str,  temp_file  ) ; 
if  ( system  ( str  ) ) 

tui_msg  ( M_YELLOW,  "Error  on  removing  temporary  file”  ) ; 

/* 

* Remove  the  wait  cursor. 

*/ 

tui_stop_wait  ( ) ; 

/* 

* Return  the  number  of  files  and  the  list. 

*/ 

*list_file  - list; 

D(printf ("END  read_ovls\n" ) ) ; 
return  ( num  files  ) ; 
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/★★★★★★★★A********************************************************************* 

* MODULE  NAME:  read_pbi.c 

★ 

* Thi3  routine  reads  the  PBI  records  from  the  DDF  foreground 

* file. 

* 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* R.  Romeo  - Ford  Aerospace  Corporation 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
***********★**★**********★*★**************************************************/ 


# include 
# include 
#include 
# include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 


<stdio ,h> 
<X11/Xlib.h> 
<fcntl . h> 
<ctype.h> 
<sys/types .h> 
<constants .h> 
<DDdisp.h> 
<disp.h> 
<wex/FCpbi . h> 
<wex/EXmsg . h> 


extern 

PBI_ENTRY 

*Pbi_Ptr ; 

/* 

pbi  emulation  interface  ptr 

*/ 

extern 

PBI  TABLE 

*Pbi_Table; 

/* 

Pbi  Emulation  interface  ptr 

*/ 

extern 

struct 

pbi_def 

*Pbi_Def ; 

/* 

pbi  definition  table  pointer 

*/ 

extern 

struct 

dm  shmemory 

*Dm_Addres  s ; 

/* 

structure  pointer 

*/ 

extern 

short 

Pbi_Num, 

/* 

Number  of  Pbi's  for  display 

*/ 

Disp  Num; 

t* 

display  number  to  display  info 

*/ 

extern 

int 

errno; 

/* 

return  error  value 

*/ 

int  read_pbi  ( ) 
/ 

struct  pbi_def  *pbi_def_ptr; 

/* 

pbi  defintion  pointer 

*/ 

struct  pbi__msid_rec  *pbi__nxt_msid; 

/* 

pbi  defintion  pointer 

*/ 

FILE  *ddf_f fp,  *fopen  ( ) ; 

P B I_ENTRY  * pb i_p t r ; 

/* 

Pbi  Emulation  interface  ptr 

*/ 

unsigned  size; 

/* 

size  for  memory  allocation 

*/ 

int  if 

/* 

loop  count  variable 

*/ 

j/ 

/* 

loop  count  variable 

*/ 

/* 

loop  count  variable 

*/ 

m. 

/* 

loop  count  variable 

*/ 

mult_entryf 

/* 

Multilevel  text  entry  number 

*/ 

pbi_ent  ry__num. 

/* 

Pbi  Entry  number  input 

*/ 

num  values, 

/* 

Number  of  multilevel  values 

*/ 

prev_group_num. 

/* 

Prev  group  number  in  counting  grps 

*/ 

version; 

/* 

version  of  the  builder  file  read 

*/ 

char 


>? 
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*pbi_nxt, 

*malloc  { ) , 
*calloc  ( ) , 
fg_file_name  [50] , 
t emp_a  c t i ve_f  lag, 
access_code; 

short  grph_indx, 

grph_color, 
in te retype, 
label_ndx, 
labels ; 

long  tab_num, 

entry_num, 

limit_num, 

pbi_num, 

icon_num, 

tmplt_num, 

mltxt_num, 

label_num, 

scale_num, 

ddd_num, 

inter_num, 

htab_jnum, 

ppl_num; 

D {printf ("START  read_pbi\n")  ) ; 

/* 


/*  local  pointer  for  read  loop  */ 
/*  get  malloc  as  a pointer  */ 

/*  local  file  path  file  name  */ 
/*  local  active  flag  read  in  */ 
/*  access  restriction  code  */ 

/*  dummy  for  grph_indx  not  used  */ 
/*  dummy  for  graph  color  not  */ 
/*  type  of  interactive  input  object  */ 
/*  label  index  for  reading  labels  */ 
/*  label  index  for  reading  labels  */ 

/*  number  of  tabular  entries  */ 
/*  number  of  maid  entries  */ 
/*  number  of  limit  entries  */ 
/*  number  of  pbi  entries  */ 
/*  number  of  icon  entries  */ 
/*  number  of  template  entries  */ 
/*  number  of  template  entries  * / 
/*  number  of  template  entries  */ 
/*  number  of  template  entries  */ 
/*  number  of  template  entries  * / 
/*  number  of  interact,  input  objects  */ 
/*  number  of  template  entries  */ 
/*  number  of  ppl  entries  */ 


* Build  the  Display  Definiton  file  name  using  the  display  name  and  the 

* extension. 

*/ 


strcpy  ( fg_file_name,  Dm_Address->display [Disp_Num] .display  name  ); 
strcat  ( fg_f ile_name,  ".fg"  ); 


/* 

* Read  the  directory  of  display  files  into  a file. 
*/ 


ddf_ffp  - fopen  { fg_f ile_name,  "r"  ) ; 
if  ( ddf_f fp  — NULL  ) { 

Pbi_Num  - 0; 

( M_YELLOW,  " Error  %d  on  reading  DDF  foreground  file",  errno  ); 
return  ( -1  ) ; 

} 


/* 

* Read  in  total  number  of  entries. 
*/ 


fscanf  ( ddf_ffp,  "%d",  &version  ); 
if  ( version  > VERSION  ) { 

f close  { ddf_ffp  ) ; 
return  ( -1  ) ; 

} 


if  ( version  > 2 ) { 

fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp, 
fscanf  { ddf_ffp, 
fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp. 


"%*68c"  ) ; 

"%d",  &tab_num  ) ; 
"%d",  &entry_num  ) ; 
"%d",  &pbi_num  ); 
"%d",  &icon_num  ); 


fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp, 
fscanf  ( ddf_ ffp, 
fscanf  ( ddf__ffp, 
} else 

pbi_num  * 0 ; 


"%d",  &tmplt_num  ); 
"%d",  &mltxt_num  ); 
"%d",  &limit_num  ); 
"%d",  &label_num  ) ; 
"Id”,  &scale_num  ); 
"%d",  &ddd_num  ) ; 

"'fcd”,  &inter_num  ) ; 
"%d”,  &htab_num  ) ; 

”%d",  &ppl_num  ) ; 

”%hd  ",  &access_code  ) ; 


Pbi_Num  = pbi_num; 


/* 

* Check  for  pbi  foreground  records. 

* If  there  are  none  then  return,  otherwise  allocate  the  PBI_TABLE  entry 
*/ 

if  ( pbi_num  ==  0 ) { 

f close  { ddf_ffp  ) ; 
return  ( -1  ) / 

} else  { 

Pbi_Table  « ( PBI_TABLE  * ) malloc  { sizeof  ( PBI_TABLE  ) ) ; 

if  { Pbi__Table  — NULL  ) { 

Pbi_Num  • 0; 

tui_msg  ( M_YELLOW,  "Error  in  allocation  of  PBI  table”  ) ; 
return  { -1  ) ; 

} 

prev_group_num  - -1; 

Pbi_Table~>group_count  = 0; 

> 

/* 

* Calculate  the  size  of  the  Pbi  Interface  Table  and  allocate  the 

* memory. 

*/ 

Pbi_Ptr  - ( PBI_ENTRY  * ) calloc  { pbi_num,  sizeof  ( PBI_ENTRY  ) ) ; 

if  ( Pbi_Ptr  ~ NULL  ) { 

free  ( Pbi_Table  ) ; 

Pbi_Num  - 0; 

tui_msg  ( M__YELLOW,  "error  %d  in  allocation  of  Pbi  entries",  errno  ) ; 
f close  ( ddf_ffp  ) ; 
return  ( -1  ) / 

) 

/* 

* Calculate  the  size  of  the  Pbi  Definition  Table  and  allocate  the 

* memory. 

*/ 


Pbi_Def  * ( struct  pbi_def  * ) calloc  ( pbi_num,  sizeof  { struct  pbi_def 

if  ( Pbi_Def  “ NULL  ) { 

Pbi_Num  - 0 ; 

tui_msg  ( M_YELLOW,  "error  %d  in  allocation  of  Pbi  definition  entries" 
fclose  ( ddf_ffp  ) ; 
return  ( -1  ) ; 


) ; 


errno  ) 


* Skip  through  records  before  phis  to  get  the  pbi  definitions 
*/ 


if 

( entry_num  > 0 ) 
fseek  { ddf_ffp, 

< 

91 

★ 

ent ry_num 

1 

) ; 

if 

( limit_num  > 0 ) 

fseek  ( ddf_ffp, 

( 

88 

* 

limit_num 

) , 

1 

) ; 

if 

( tab_num  > 0 ) 

fseek  ( ddf_ffp, 

< 

40 

★ 

tab_num  ) , 

i 

) ; 

if 

( tmplt_num  > 0 ) 
fseek  ( ddf_ffp, 

( 

45 

★ 

tmplt_num 

>, 

l 

) ; 

/* 

* Skip  the  interactive  input  object  records 
*/ 


if  ( inter_num  > 0 ) { 

for  ( i * 0;  i < inter_num;  i++  ) { 

fscanf  ( ddf^ffp,  M%hd",  &entry_num  ) ; 
fscanf  { ddf_ffp,  ”%hdn,  &inter_type  ); 
if  ( inter_type  “ SLIDER_BAR  ) { 

fscanf  < ddf_ffp,  "%95  *c"  ); 

} else  if  ( inter_type  --  TOGGLE_SWITCH  ) { 

fscanf  ( ddf__ffp,  "%26  *c"  ) ; 


> 


/* 

* Skip  the  history  tab  records 
*/ 


if  ( htab__num  > 0 ) 

fscanf  ( ddf_f fp,  "%*c",  ( 28  * htab_num  ) ); 


/* 

* position  pointer  at  the  beginning  of  Mtext  structure  and  read  into 

* memory  the  mtext  structure. 

*/ 


for  ( j ■ 0;  j < mltxt_num;  j++  ) { 

fscanf  ( ddf_ffp,  "%d",  & ( mult_entry  ) ); 
fscanf  ( ddf_ffp,  "%hd",  & ( num  values  ) ) ; 
k - 0; 

getc  ( ddf_f  fp  ) ; 
do  { 

getc  ( ddf_ffp  ) ; 
k++; 

} while  ( k < 6 ) ; 

for  ( k « 0;  k < num__values;  k++  ) { 

fscanf  ( ddf_f fp,  "Id”  ); 
m - 0 ; 

getc  ( ddf_ffp  ) ; 
do  { 


getc  ( ddf_ffp  ) ; 
m++; 


} while  ( m < 6 ) ; 

} 


} 
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/* 

* Position  pointer  at  the  beginning  of  Pbi  structure  and  read  into 

* memory  Pbi  Emulation  Interface  table  and  Pbi  Definition  Table 
*/ 


pbi_ptr  * Pbi_Ptr; 
pbi_def_ptr  * Pbi_Def; 

for  ( i * 0;  i < pbi_num;  i++  ) { 

fscanf  ( ddf_f fp,  "%d",  & ( pbi_entry_num  ) ); 


/* 

* Store  values  in  the  Pbi  Emulation  Interface  table  for  calling  WSA  process 

*/ 

fscanf  ( ddf_f fp,  "%10s",  ( pbi_ptr->pbi_msid  ) ); 

for  ( j = 0;  j < MSID_LEN;  j++  ) { 

if  ( ! { isalnum  ( pbi__ptr->pbi_msid  [ j ] ) ) ) 

pbi_j>tr->pbi_msid[ j]  * ' 

} 


fscanf 

< 

ddf_f fp. 

&temp_active_f lag  ) ; 

pbi_ ptr 

->active__f lag  - atoi 

( &temp_ 

active_f  lag 

) ; 

fscanf 

< 

ddf  ffp. 

"%*5c" 

) ; 

fscanf 

( 

ddf  ffp, 

"%hd". 

Sc 

( pbi^jptr 

->pbi_type  ) 

) ; 

fscanf 

< 

ddf  ffp, 

"%hd" , 

& 

( pbi_ptr 

->lock_num  ) 

) ; 

fscanf 

( 

ddf  ffp, 

"%hd", 

Sc 

( pbi_ptr 

->group__num 

) ) ; 

fscanf 

( 

ddf  ffp. 

"%hd". 

Sc 

( pbi_ptr 

->panel_num 

) ) ; 

fscanf 

< 

ddf  ffp. 

"%d" , 

& ( 

pbi_ptr- 

>button_num 

) ); 

/* 

* pre-Set  the  backlighting  if  any  is  required 
*/ 

fscanf  ( ddf_ffp,  f,%hdM,  & ( pbi_defj>tr->pbi_bklght  ) ); 

if  ( pbi_def_j>tr->pbi_bklght  — PBI_PRESET_ON  ) 
pbi_ptr->f  eedback_ind  = PBI__BKLGHT_ON; 

else 

pbi_ptr->feedback_ind  - PBI_BKLGHT_OFF; 
pbi_ptr->modif  y_f  lag  - 0; 
fscanf  ( ddf_ffp,  "%hd”,  &grph__indx  ); 
fscanf  ( ddf_ffp,  "%hd",  &grph_color  ) ; 

/* 

* Store  values  in  the  Pbi  Display  Definition  Table  for  internal  processing. 

* Note  that  the  Y values  are  swapped. 

*/ 


fscanf 

( 

ddf  ffp. 

"%if  **, 

fscanf 

( 

ddf  ffp. 

"%ifn, 

fscanf 

< 

ddf  ffp. 

fscanf 

< 

ddf  ffp. 

mf. 

&pbi_def_ptr->pbi_ul__x  ) ; 
&pbi_def_ptr->pbi_ul^y  ) ; 
&pbi_def_j?t  r->pbi_lr__x  ) ; 
&pbi_def_ptr->pbi_lr_y  ) ; 


pbi__def__ptr->pbi__ul_y  * 100,0  - pbi_def_ptr->pbi_ul_y; 
pbi_def_ptr->pbi_lr_y  = 100.0  - pbi_def_ptr->pbi_lr_y; 


Save  pixel  versions  of  the  corner  coordinates. 


/* 

* 

*/ 

pb  i_de  f _p t r - >pb  i_u  l_x_p  « 

(int) (pbi_def_ptr->pbi_ul_x 
pb  i_de  f _ p t r - >pb  i_l  r_x_p  - 

(int)  <pbi_def_ptr->pbi_lr_x 
pbidef  ptr->pbiul_y_p  » 

(int)  (pbi_def_j?tr->pbi__ul_y 
pbi_de  f_pt  r->pbi_lr_jy_p  = 

(int)  (pbi_def_ptr->pbi_lr_y 

/* 

* Read  in  the  Pbi  destination 

*/ 


* Dm_Address->display [Disp_Num] . factor_x) 

* Dm_Address->display  [Disp_Num]  . factor_x) 

* Dm_Address->di splay  [Disp_Num]  ,factor_y) 

* Dm_Address->display  [Disp_Num]  . factor_y) 


size  - 4; 

( pb i_de f _ pt r - >pb i_de s t ) - ( char  * ) malloc  ( size  ) ; 
pbi_def_ptr->pbi_dest  [3]  - '/O'; 

pbi_nxt  - pbi_def_jptr->pbi_dest; 

fscanf  ( ddf_ffp,  "%s",  pbi_nxt  ); 

pbi_def _ptr->pbi_dest_len  - strlen  ( pbi_nxt  ) ; 


/* 

* Skip  labels  — for  use  in  the  Displayer  only 

*/ 


fscanf  ( ddf_ffp,  "%hd",  filabels  ); 

for  ( j - 0;  j < labels;  j++  ) { 

fscanf  ( ddf_ffp,  "%hd",  filabel  ndx  ); 

) 


/* 

* Read  in  the  Pbi  variable  length  message 

*/ 


fscanf  ( ddf_f fp,  "%hd"f  & ( pbi__def _ptr->pbi_mesg  len  ) ) ; 
if  ( ( pbi_def _ptr->pbi_mesg_len  ) > 0 ) ( 

( pbi_def_ptr->pbi_message  ) * ( char  * ) 

calloc  ( 1 , ( pbi_def_ptr->pbijmesg_len  ) ); 

pbi_nxt  * pbi_def_ptr->pbi_message; 
fscanf  ( ddf_ffp,  "%1 s",  pbi_nxt  ); 
pbi_nxt++; 

for  ( k - 0;  k < pbi_def_ptr->pbi_mesg_len  - 1;  k++  ) { 
fscanf  ( ddf_ffp,  "%c",  pbi_nxt  ); 
pbi_nxt++; 

} 


/* 

★ 

If 

V 

if 

the  type  is  DTE  or  MED  then  set  the  PBI  EMULATION  arguments 

( ( pbi_pt  r->pbi__type  DT  ) 

I I ( pbi_ptr->pbi_type  *-  ME  ) ) { 
pbi_ptr->arg_len  = pbi_def_ptr->pbi_mesg_len; 
pbi_ptr->arg_ptr  * pbi__def_ptr->pbi_message; 


} 
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/* 

* Read  in  the  Pbi  variable  length  dependent  Maids 
*/ 

f3canf  ( ddf_f fp,  "%hd",  & ( pbi_def_ptr->pbi_dep_msid_cnt  ) ); 

if  ( ( pbi_def_ptr->pbi_dep_msid_cnt  ) > 0 ) { 

( pbi_def_ptr->pbi_dep_msids  ) - 

( char  * ) calloc  ( pbi_def_ptr->pbi_dep_msid_cnt,  MSID_LEN  ) ; 

pbi_nxt_msid  = ( struct  pbi_msid_rec  * ) pbi_def_ptr->pbi_dep_m3ids 

for  ( k = 0;  k < ( pbi_def_ptr->pbi_dep_msid_cnt  );  k++  ) { 

fscanf  ( ddf_ffp,  "%s”,  pbi_nxt_msid  ); 
for  ( j = 0;  j < MS ID_LEN ; j++  ) { 

if  ( ! ( isalnum  ( pbi_nxt_msid->pbi_msid[ j]  ) ) ) 

pbi_nxt_msid->pbi_msid [ j ] = ' 

} 

pbi_nxt_ms id++ ; 

} 

if  ( pbi_ptr->pbi_type  ==  DG  ) { 

pbi_ptr->arg_len  = pbi_def_ptr->pbi_dep_msid_cnt  * MSID_LEN; 
pbi_ptr->arg_ptr  = pbi_def_ptr->pbi_dep_msids; 

} 

) 

/* 

* Read  New  Line  Character 
*/ 

fscanf  ( ddf_f fp,  "%*c",  1 ); 

/* 

* Track  group  count  in  header  table 
*/ 


if  ( pbi_ptr->group_num  !=  prev_group_num  ) { 

( Pbi_Table->group_count  ) ++; 
prev_group_num  » pbi_ptr->group_num; 

} 

pbi_def_pt  r++ ; 
pbi_ptr++; 


} 

f close  ( ddf_ffp  ) ; 

D (printf ( "END  read_pbi\n" ) ) ; 
return  ( 0 ) ; 
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/★★a*************************************************************************** 

* MODULE  NAME:  read_j>f . c 

★ 

* This  function  reads  in  function  key  definitions. 

★ 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* K.  Noonan  - Ford  Aerospace  Corporation 

* 


★ 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

**********************************************************************^^^^^ 


♦include  <stdio.h> 
♦include  Cconstants . h> 
♦include  <pf_key.h> 
♦include  <disp.h> 
♦include  <wex/EXmsg. h> 


extern  struct  pfkey_defs 
extern  struct  pfkey_defs 

extern  int 

extern  char 


Def  JPfkeys [PFKEY_COUNT] ; 
Act_Pfkeys [PFKEY_COUNT] ; 

errno; 

Disp_Path[DNAME  LEN] ; 


int  read_jpf  < default_f lag,  disp__name  ) 

char  default_f lag,  /*  default  flag  for  pf  keys  */ 

^ disp_name [DNAME_LEN] ; /*  key  definition  file  display  name  */ 

static  char  pfkey [PFKEY_COUNT] [10]  - 

{"PFKEY1\0",  "SPFKEY1\ 0 " , "PFKEY2\0",  "SPFKEY2\0", 

"PFKEY3X0",  "SPFKEY3\0",  "PFKEY4\0",  "SPFKEY4\0", 

"PFKEY5\0",  ”SPFKEY5\0",  "PFKEY6\0",  "SPFKEY6\0", 

"PFKEY7 \ 0 " , "SPFKEY7\0",  "PFKEY8\0" , nSPFKEY8\0", 

"PFKEY9X0",  "SPFKEY9\0",  "PFKEY10\0" , "SPFKEY10\0n, 

"PFKEY11\0 " , "SPFKEY11\0",  "PFKEY12\0",  "SPFKEY12\0", 

"PFKEY13X  0 ” , nSPFKEY13\0",  "PFKEY14\0",  "SPFKEY14\0" 


FILE  *pf_fp,  *fopen  ( ) ; 


char 


short 

int 


*cmdstring, 

*current_key, 

*instring, 

pf_f  ile_name  [80] , 

def ault_f ile_name  [80]; 


/*  command  string  to  send  to  parse_cmd 
/*  current  pf  key  ~ 

/*  string  read  in  from  the  file 
/*  pfkey  file  name  to  be  opened 
/*  default  file  name  to  be  opened 


*/ 

*/ 

*/ 

*/ 

*/ 


version; 


/*  version  of  pf  key  definition  file  */ 


j - 


k, 

l, 


0, 


/*  temporary  loop  variable  */ 
/*  temporary  loop  variable  */ 
/*  temporary  loop  variable  */ 
/ * temporary  loop  variable  */ 
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mark  - 0;  /*  temporary  indexing  variable 

unsigned  total_bytes;  /*  total  bytes  copy  from  active  pfkey  struc  */ 

D (printf ("START  read_pf \n" ) ) ; 

/* 

* Build  the  pf  key  default  file  name  and  open  it.  If  cannot  open  advise. 

*/ 

if  ( default_flag  ==  ON  ) { 

strcpy  ( default_f ile_name,  Disp_Path  ) ; 
strcat  ( default_file_name,  "default .pf"  ); 

if  ( ( pf_fp  = fopen  ( default_file_name,  "r"  ) ) ==  NULL  ) ( 

tui_msg  ( M_YELLOW,  "Error  %d  on  open  for  %s  PF  key  file  ",  errno, 
default_file_name  ) ; 
return  ( -1  ) ; 

) 

} 

/* 

* Else  build  the  pf  key  file  name  and  open  it. 

*/ 

else  ( 

strcpy  ( pf_file_name,  disp_name  ) ; 
strcat  ( pf_file_name,  ".pf"  ); 

if  ( ( pf_fp  “ fopen  ( pf_f ile_name,  "r"  ) ) --  NULL  ) 

return  ( -1  ) ; 


} 


/* 

* Read  the  version  of  the  pf  definition  file  and  check  the  status. 
*/ 

fscanf  ( pf_fp,  "%*8c"  ) ; 

fscanf  ( pf_fp,  "%hd",  Sversion  ); 


/* 

* Initialization  of  active  pfkey  structure 
*/ 


if  ( version  <=  VERSION  ) { 

for  ( k = 0;  k < PFKEY_COUNT;  k++  ) { 

Act_Pf keys [k] .valid_f lag  = VALID; 
Act_Pfkeys [k] .defined  “ NO; 
Act_Pfkeys [k] .prompt_f lag  = NO; 


) 


/* 

* Loop  through  all  the  PF  keys  of  the  keyboard. 
*/ 


for  ( i = 0;  i < PFKEY  COUNT;  i++  ) { 


/* 
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* Read  the  current  key  from  the  pfkey  file.  If  pfkey  is  not  in 

* correct  order  advise  and  return  to  calling  routine. 

*/ 


the 


current_key  - ( char  * ) calloc  ( 1,  8 ); 
fscanf  ( pf__fp,  "%s",  current_Jcey  ) ; 

if  ( feof  ( pf_fp  ) ) 
break; 

if  ( strcmp  ( current_key,  pfkey  [i]  ) !=*  0 ) { 

if  ( { current_key [0]  !“'-')&&(  current_key [1]  [='-')){ 

tui_msg  ( M_WHITE, 

"function  key  definition  file  is  not  in  the  proper  format"  ); 
return  { -1  ) ; 

} else  { 

instring  - ( char  * ) calloc  ( 1,  120  ); 
fgets  ( instring,  120,  pf_fp  ); 
free  ( instring  ) ; 
i — ; 

} 

} 


* Read  the  next  string  from  the  pfkey  file.  If  the  next  string  reads 

* in  as  the  next  pfkey,  discontinue  process  for  current  pfkey  and 

* label  it  as  INVALID. 

*/ 

else  { 

instring  - ( char  * ) calloc  ( 1,  120  ) ; 
fgets  ( instring,  120,  pf_fp  ); 

cmdstring  - ( char  * ) calloc  ( 1,  strlen  ( instring  ) ) ; 

for  (1-0;  1 < strlen  ( instring  );  1++  ) { 

if  ( instring  [1]  «■*  9 9 ) 
mark  - 1 + 1; 

else 

break; 

} 

strncpy  ( cmdstring,  & ( instring [mark]  ),  strlen (instring)  - (mark  + 1)  ) 

if  ( i % 2 — 0 ) 
j - i » 1; 

else 

j=i/2+14; 

if  ( strlen  ( cmdstring  ) > 1 ) 

parse_cmd  ( & ( Act_Pfkeys [ j]  ),  cmdstring,  strlen  ( cmdstring  ), 
PFKEY,  version  ) ; 

if  ( Act_Pf keys [j] .valid_f lag  ««  INVALID  ) { 

if  ( j > 14  ) 

tui_msg  ( M_JYELLOW,  "Shift  PFkey  %d  improperly  defined",  i - 13  ) • 

else 
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tui  mag  ( M_YELLOW,  "PFkey  %d  improperly  defined", 


j + 1 ) ; 


} 

free  ( cmdstring  ) ; 
free  ( inatring  ) ; 


} 

free  ( current_key  ) ; 


} 


/* 

* Check  the  users  command  string  to  proceed  with  further  processing. 
*/ 


fclose  ( pf_fp  ) ; 

/* 

* If  default  flag  is  set  copy  active  pfkey  structure  into  default  pfkey 

* struct 
*/ 

if  ( default_flag  “ YES  ) { 

total_bytes  = sizeof  ( struct  pfkey_defs  ) * PFKEY_COUNT; 

memcpy  ( ( char  * ) Def_Pfkey3,  ( char  * ) Act_Pfkeys,  total_bytes  ) ; 

} 

} else  { 

tui_msg  ( M_WHITE,  "Illegal  version  of  pfkey  definition  file  with  this  software"  ) 

t 

return  { -1  ) ; 


) 

D(printf ("END  read_pf \n" ) ) ; 
return  ( 0 ) ; 


■ read_plt.c 

* MODULE  NAME:  read_j?lt.c 


* This  routine  reads  the  DDF  plot  file  into  memory. 

* Returns:  0 if  successful,  -1  on  error 

* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 

* 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★★A***************************************************************************/ 


♦include  <stdio.h> 

♦include  <X11/Intrinsic .h> 
♦include  <Xm/Xm.h> 

♦include  <Xm/Scrolledw. h> 
♦include  <Xm/DrawingA. h> 
♦include  <fcntl.h> 

♦include  <sys/types . h> 
♦include  <constants . h> 
♦include  <disp.h> 

♦include  <DDdisp.h> 
♦include  <DDplot.h> 
♦include  <wex/EXmsg,h> 


extern  struct  dm_shmemory  *Dm_Address;  /*  ptr  to  DM  shared  memory  */ 
extern  struct  bg_recs  Bg_Rec;  /*  bg  records  */ 
extern  int  errno;  /*  system  error  number  */ 
extern  short  Pixels [128];  /*  index  array  into  colormap  */ 
extern  Widget  Draw_Win;  /*  widget  ID  of  disp  drawg  area  */ 


read_j>lt  (disp_num,  plot_ptr) 
short  disp_num; 
struct  plot_j^trs  *plot_ptr; 

{ 

FILE  *fopen(); 

XtCallbackProc  cb_expose_plot { ) ; 

Arg  args[10]; 

FILE  *plot f p, 

*lim_fp; 

struct  plot__hdr  *header_ptr; 

struct  plot_tmplt  *tmplt_ptr; 

struct  axis_info  *axis_ptr; 

struct  msid_info  *msid_ptr; 

struct  lim_lines  *nline_ptr; 

struct  lim_lines  *llinejptr; 

struct  plot_pts  *nline_pts_ptr; 

struct  plot_pts  *lline_pts_ptr; 


/*  effective  display  number  */ 

/*  ptr  to  current  plot  record  */ 

/*  cb  proc  for  expose  on  plot  wndow  */ 


/*  arg  list  for  widgets  */ 

/*  ptr  to  plot  information  file  */ 

/*  ptr  to  plot  limit  line  file  */ 

/*  ptr  to  plot  header  information  */ 

/*  ptr  to  plot  positional  info.  */ 

/*  ptr  thru  plot  axis  records  */ 

/*  ptr  thru  plot  msid  records  */ 

/*  ptr  thru  plot  nominal  line  recs  */ 

/*  Ptr  thru  plot  limit  line  records  */ 

/*  ptr  thru  nominal  line  pt  pairs  */ 
/*  Ptr  thru  limit  line  pt  pairs  */ 


V?4 
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double  diff;  /* 

short  upd_rate,  /* 

version,  /* 

color,  /* 

access_rs,  /* 

plot_hori,  /* 

plot_vert,  /* 

match;  /* 

int  1,  j,  k,  m,  p,  /* 

xaxes_  num,  /* 

yaxes_num,  /* 

msid_num,  /* 

actual_msids , /* 

nline_num,  /* 

lline_num,  /* 

total_nbr_records,  /* 

total_nbr_axes,  /* 

name_  len,  /* 

dw_w idt  h , dw_he ight ; / * 

char  temp[15],  /* 

plot_ f ile_name [DNAME_LEN+5] , / 
filename  [DNAME_LEN+5] , /* 

wex__path__name  [DNAME__LEN  + 5], 
user__disp_name  [DNAME__LEN  + 5], 
unv_f ile [DNAME_LEN  +5],  /* 

plt_f  ile [DNAME_LEN  +5],  /* 

sample [ 4] , /* 

plot_s  t y le [ 5 ] ; / * 


diff.  between  high  & low  scale  */ 

time  plot  update  rate  from  DDF  */ 
plot  file  version  from  DDF  */ 

temp  color  # read  from  DDF  file  */ 
access  restriction  code  from  DDF  */ 
horizontal  font  size  */ 

vertical  font  size  * / 

MS ID  match  flag  */ 

loop  count  variables  */ 

nbr  of  x axis  records  */ 

nbr  of  y axis  records  */ 

nbr  of  msid  records  */ 

nbr  of  actual  msid  records  */ 

nbr  of  nominal  line  records  */ 

nbr  of  limit  line  records  */ 

total  nbr  of  plot  records  */ 

total  nbr  of  axis  records  */ 

length  of  plot  file  name  */ 

size  of  top-lvl  drawing  area  */ 

used  to  read  character  fields  */ 
f plot  file  name  */ 

limit /nom  file  name  */ 

/*  plot  name  with  WEX  path  name  */ 
/*  plot  name  w/  user-display  name 
plot  name  with  .unv  ext  */ 

plot  name  with  .pit  ext  */ 

used  to  read  sample  rate  */ 

used  to  read  the  character  style  */ 


D (pr int f ("START  read_j>lt\n" ) ) ; 

/* 

* Set  local  plot  template  ptr  variable. 
*/ 


tmplt_ptr  * plot__ptr->plot_ pos ; 


/* 

* Save  the  current  size  of  the  top-level  drawing  area 

* for  later  reset.  This  is  a kluge  to  overcome  an 

* apparent  bug  in  Motif  which  causes  the  size  of  the 

* drawing  area  to  be  altered  in  a systematic  fashion 

* whenever  a widget  is  made  a child  of  that  drawing  area. 
*/ 


i-0; 

XtSetArg (args I i ] , XmNwidth,  &dw_width) ; i++; 
XtSetArg (args [i] , XmNheight,  &dw_height) ; i++; 
XtGetValues  (Draw__Win,  args,  i)  ; 


/* 

* Set  the  size  of  the  drawing  area  widget  to  the  size  of  the  drawing 

* area  dimensions  and  create  the  drawing  area.  Place  the  drawing  area 

* at  the  appropriate  location  relative  to  the  scrolled  widget. 

* Set  the  background  color  of  the  drawing  area. 

*/ 


i - 0; 

XtSetArg (args ( i] , XmNx,  tmplt_pt r->bb_xul) ; i++; 
XtSetArg (args [i] , XmNy,  tmplt_pt r->bb_yul) ; i++; 


XtSetArg (args [i] , 
XtSetArg(args [i] , 
Xt  Se t Arg ( a rgs [ i ] , 
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XmNwidth,  tmplt— ptr->drw_width) ; i++; 
XmNheight,  tmplt_ptr->drw_height ) ; i++; 
XmNbackground,  Bg_Rec . s_color)  ; i++; 


XtManageChild (plot_ptr->draw_win  * XmCreateDrawingArea 

(Draw_Win,  "Plot  Draw”,  args,  i) ) ; 


Restore  the  size  of  the  display  top-level  drawing  area. 
See  related  comment  above. 


i-0; 

XtSetArg (args [i] , XmNwidth,  dw_width) ; i++; 
XtSetArg (args [i] , XmNheight,  dw_height) ; i++; 
XtSetValues (Draw_Win,  args,  i) ; 


Add  expose  event  callback  routine  for  the  plot  drawable . 


XtAddCallback (plot_ptr->draw_win,  XmNexposeCallback, 

cb_expose_plot,  disp_num)  ; 


Build  the  universal  plot  file  name 


if  ( ! strncmp  (Dm_Address->di splay  [disp__num]  .display_name,  "/WEX/",  5))  { 

strcpy  (wex_jpath_name,  Dm_Addres s->di splay  [disp_num]  .display_name)  ; 
name_len  - (int)  strlen (wex_path_name) ; 

while  {wex_jpath_name  [name_len]  !-  '/'  &&  name_len  > 0) 
name_len — ; 

wex_path_name  [name_len  + 1]  * NULL; 

strcat  (wex_path_name,  plot^tr->plotjpos->tmplt_narn)  ; 
strcpy  <plot_ptr->plot_name,  wex_path_name)  ; 
strcpy  (plot__f ile_name,  wex_jpath_name)  ; 
strcat  (wex_path_name,  ".pit”); 
strcpy  (plt_f ile,  wex_j>ath_name)  ; 

strcpy  (user_disp_name,  Dra_Address->display [disp_num] .plot_path) ; 
strcat  ( use  r_di  sp__name , plot_ptr->plot_pos->tmplt_nam)  ; 
strcpy  (plot _ptr->plot_data_file,  user_disp_name)  ; 
strcat  (user_disp_name,  n .unv") ; 
strcpy  (unv_file,  user_disp_name) ; 

) 

else  { 

strcpy  (plot file name , Dm_Addres s->di splay (disp_num] .display  name) 

name_len  - (int)  strlen  (plot_file_name)  ; “ 

while  (plot file name  [name len]  !-  '/'  &&  name_len  > 0) 

name_len — ; 

plot_f  ile_name  [name_len  + 1]  » NULL; 

strcat  (plot_f ile_name,  plot^ptr->plot_ pos->tmplt  nam)  ; 
strcpy  (plot __ptr->plot_data_f  ile,  plot_f ile_name) 7 
strcpy  (plot __ptr->plot_name,  plot_f ile_name)  ; 
strcpy  (unv_f ile,  plot__f  ile_name)  ; 
strcat  (unv_file,  ".unv"); 
strcpy  (plt_f ile,  plot_f ile_name)  ; 
strcat  (plt_f  ile,  ".pit”); 
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plot f p - fopen (unv_f ile,  ”r"); 


if  (plot f p “ NULL)  { 

plot f p - fopen  (plt_file,  V); 

if  (plot__fp  " NULL)  { 

tui_msg  (M_YELLOW,  "Error  %d  on  opening  plot  file",  errno) ; 
return  (-1) ; 

} 

) 


* Read  the  software  version.  If  correct  version  continue  processing  by  read- 

* ing  in  the  plot  file  information. 

*/ 


fscanf  (plot f p t "%hd”,  fiversion) ; 

if  (version  > VERSION)  { 

tui_msg  (M_WHITE,  "Incorrect  software  version  for  this  release"); 
fclose (plot_fp) ; 
return  (-1) ; 


fscanf  (plot_fpf  "%*51c"); 

fscanf  <plot_fp,  "%d  %d  %d  %d  %d  %d  %hd  %hd",  &xaxes_num,  £yaxes_num, 

&msid_num,  &actual_msids,  &nline_num,  &lline_num,  &upd_rate,  &access_rs) ; 

if  (version  >-  3) 

fscanf  (plot_fp,  "%*5c"); 


/* 

* Check  the  access  restriction  code  to  see  if  the  display  is  either  a 

* Medical  or  Payload  restricted  display.  If  the  display  is  access 

* restricted  and  the  position  Id  does  not  match  the  access  restriction,  then 

* exit  out  of  this  routine. 

*/ 


switch  (accessors)  { 
case  MEDICAL_USR: 

if  (strcmp (Dm_Address->display [disp_num] .pos_id,  "MED\0 " ) !=  0)  ( 

tui_msg (M_YELLOW,  "Medical  Display  - access  restricted"); 
fclose (plot_fp) ; 
return  (0)  ; 


break; 

case  PAYLOAD_USR: 

if  (strcmp (Dm_Address->di splay [disp__num] .pos_id,  "PAY\0")  ! * 0)  { 

tui_msg  (M_YELLOW,  "Payload  Display  - access  restricted") ; 
fclose (plot_fp) ; 
return  (0) ; 


break; 

default : 
break; 


) /*  end  switch  */ 
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total_nbr_records  - 

xaxes_num  + yaxes_num  + actual_msids  + nline_num  + lline_num 

if  (total_nbr_records  —0)  { 

tui_msg (M_WHITE,  "There  are  no  plot  records  " ) ; 
fclose  (plot_fp) ; 
return  (-1); 

) 

/* 

* Allocate  memory  for  plot  header  structure  and  copy 

* plot  header  info  into  it. 

*/ 


header _jptr  - (struct  plot_hdr  *)  calloc  (1,  sizeof  (struct  plotjidr)  ) ; 
if  (header_ptr  — NULL)  { 

tui_msg  (M_YELLOW,  "Error  %d  allocating  plot  header  memory",  errno) / 
fclose  (plot_fp) ; 
return  (-1) ; 


plot_jptr->header  - header_jptr; 

header_ptr->xaxes_num  - xaxes_num; 
header_jptr->yaxes_num  - yaxes_num; 
heade r_ptr->msid_num  - msid_num; 
header_ptr->actual_msids  - actual_msids; 
header_ptr->nline_num  - nline_num; 
header_j3tr->lline_num  - lline_num; 
header^ ptr->upd_rate  » upd_rate; 
header_jptr->access_rs  - access_rs; 

if  (msid_num  >0)  { 

plot _jptr->plt_decom  - (struct  shm_decom  *) 

calloc (plot_ptr->header->msid_num,  sizeof (struct  shm_decom)  ) ; 

if  (plot_ptr->plt_decom  «=  NULL)  { 

tui_msg (M_YELLOW,  "Error  on  allocating  memory  for  plot  decom") ; 
fclose (plot_f p) / 
return  (-1); 


) 


/* 

★ 

*/ 


Read  in  the  plot  definition  file  msid  records  and  store  them  into  memory. 


if  (actual_msids  > 0)  { 

msid_j)tr  * (struct  msid_info  *) 

calloc  (actualjnsids,  sizeof (struct  msid_info) ) ; 

if  (msid_j?tr  =-  NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  allocating  plot  msid  memory",  errno); 
fclose  (plot_fp) ; 
return  (-1); 


plot_jptr->msids  * msid^ptr; 

for  (j  * 0;  j < actual_msids;  j++)  { 


fscanf  (plot_fp,  "%hdM,  &msid_j>tr->msid_indx)  ; 
msid_jptr->msid_indx  - j; 

fscanf  (plot_ fp,  "%s",  msid_j3tr->msid_name)  ; 
fscanf  {plot f p f "%s",  sample); 

if  (samplefO]  !-  r L' ) 

msid_ptr->s ample  * atoi  (sample) ; 

else 

msid_ptr->sample  = -1; 
fscanf  {plot f p f "%s",  msid_ptr->data_src) ; 


* Skip  the  ppl  file  and  occr  numbers 

*/ 

if  (version  >*  3) 

fscanf  (plot f p / "%*10c"); 

fscanf  (plot_fp,  "%s",  temp) ; 
msid_j?tr->xory__axis  - temp[0]; 
fscanf  (plot_fp,  M%d",  &msid_ptr->axis_num)  ; 
fscanf  (plot f pf  "%sM,  msid_ptr->plot_msid) ; 

fscanf  (plot_fp,  "%s”/  temp) ; 
msid_ptr->plot_type  - temp(0]; 

fscanf  (plot f pf  "%d",  &msid_ptr->line_type)  ; 

fscanf  (plot_fp,  "%f",  &msid_ptr->line_width) ; 
fscanf  (plot_fp,  "%s",  msidjptr->plot_char) ; 

fscanf  (plot f pf  "%3",  plot_style); 

fscanf  (plot_fp,  "%hd" , &plot_hori) ; 
fscanf  (plot f p/  r,%hd” , &plot_vert)  ; 

msidjptr->plot_font  - f ont_num (disp_num,  plot_style,  plot_hori,  plot_vert)  ; 

fscanf  (plot__fp,  "%hd",  &msid_j5tr->icon_indx)  ; 

fscanf  (plot_fpf  "%s",  temp); 

msid_ptr->plot_conn  - temp[0]; 

fscanf  (plot_fp,  "%hdM,  &color)  ; 

msid_jpt  r->plot_color  * Pixels [color] ; 

fscanf  (plot_fp,  "%d",  &msid_ptr->stat_f lag) ; 

fscanf  (plot_fp,  f,%d" , &msid_j)tr->miss_f  lag)  ; 

fscanf  (plot_fp,  ”%hd",  &color) ; 

msid_jptr->stat— color  * Pixels  [color]  ; 

fscanf  (plot_fp,  " %hd" , Scolor)  ; 

msid_jptr->miss_color  - Pixels  [color]  ; 

fscanf  <plot_fp,  M%hd",  &color) ; 

msid_j>t  r->ovl_color  - Pixels  [color]  ; 

fscanf  (plot_fp,  "%hd",  &color) ; 

msid_pt r->limt_color  - Pixels [color] ; 

fscanf  (plot_fp,  "%hd",  &color) ; 

msid_j3tr->crit_color  = Pixels  [color]  ; 

fscanf  (plot_fp,  "%d",  &msid_j?tr->oper_type) ; 

fscanf  (plot_fp,  "%f",  &msid__ptr->oper_width)  ; 

fscanf  (plot_fp,  "%dn,  &msid_ptr->crit_type)  ; 

fscanf  (plot_fp,  "%f",  &msid_jptr->crit__width); 

msid__ptr->pair_ptr  - NULL; 

msid_pt r->f irst_pt  = YES; 

msid_ptr++; 

} /*  End  of  -for-  (total  nbr  of  msids)  */ 

/* 


Set  the  pair  index  pointers 
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,;.v  i V; 


*/ 


msid_jptr  * plot_j3tr->msids ; 

for  (i  = 0;  i < actual_msids ; i++)  { 

/*  the  current  msid  is  represented  by  plot_ ptr->msids  + i */ 

if  { (msid_jptr  + i) ->pair_ptr  “ NULL)  { 
match  “ NO; 
k - i + 1; 

while  (match  " NO  &&  k < actual_msids)  { 

if  ( (msid_ptr  + k) ->pair_ptr  — NULL)  { 

if  ( ! strcmp ( (msid_ptr  + i) ->msid_name, 

(msid__ptr  + k)  ->plot_msid) 

&&  ! strcmp ( (msid_ptr  + i) ->plot_msid, 

(msid_ptr  + k) ->msid_name) ) { 
(msid_j?tr  + i) ->pair_ptr  =*  msid_ptr  + k; 

(msid _ptr  + k)  ->pair— ptr  - msid_ptr  + i; 
match  - YES; 

} 

else 

k++; 

) 

else 

k++ ; 

) /*  end  while  */ 

} /*  end  of  if  ...  ~ NULL  */ 

) /*  end  of  -for-  (i)  */ 

) /*  end  -if-  (actual  msid  > 0)  */ 


/* 

* 

*/ 


Read  in  the  plot  definition  file  axis  records  and  store  them  into  memory. 


total_nbr_axes  - xaxes_num  + yaxes_num; 

if  (total__nbr_axes  >0)  { 

axis_ptr  » (struct  axis_info  *) 

calloc (total_nbr_axes,  sizeof (struct  axis_info) ) ; 

if  (axis_ptr  — NULL)  ( 

tui_msg (M_YELLOW,  "Error  %d  allocating  plot  axis  memory”,  errno) ; 
fclose  (plot_fp) ; 
return  (-1) ; 

) 

plot_ptr->axis  = axis_ptr; 

for  (m  * 0;  m < total_jnbr_axes ; m++)  { 

/* 

* Read  next  axis  record  from  plot  file 

*/ 

fscanf  (plot_fp,  " % s ” f terras)  ; 
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axis_ptr->axis_xory  - temp[0]; 

fscanf  (plot f p,  "%d",  &axis_ptr->axis_num)  ; 

fscanf  (plot_fp,  "%hd",  &axis_ptr->axis_type) ; 

fscanf  <plot_fp,  "%sM,  temp) ; 
axis_ptr->scal_type  - temp[0]; 

fscanf  (plot f p f "%d",  &axis_ptr->end_code) ; 

fscanf  (plot_fp,  ”%hd",  &axis_ptr->axis_pos) ; 

fscanf  (plot_fp,  "%hd",  Scolor) ; 

axis_ptr->axis_col  - Pixels [color ] ; 
fscanf  (plot_fp,  "%s",  axis_ptr->low_scale) ; 
fscanf  (plot_fp,  "%s",  axis_ptr->high_scal) ; 
fscanf  (plot_ fp,  "%s",  temp) ; 
axis__ptr->auto_f  lag  m temp[0]; 

fscanf  <plot_fp,  "%hdM , &axis_j>tr->grad_vals ) ; 

fscanf  (plot_fp,  "%s”,  temp) ; 
axis_ ptr->vis_f lag  = temp[0]; 
fscanf  (plot_fp,  "%s",  temp)  ; 
axis_ptr->grid_f lag  « temp[0]; 

fscanf  (plot f p,  M%hd" , &axis_ptr->grid_gran) ; 

fscanf  (plot f p,  "%hd",  &axis_ptr->grid_type)  ; 

fscanf  (plot_fp,  "%hd",  Scolor)  ; 

axis_ptr->grd_color  * Pixels [color] ; 
fscanf  (plot__fp,  "%hd",  &axis_ptr->ma  j_ticks)  ; 

fscanf  (plot_fp,  ff %hd” , &axis_ptr->min_ ticks)  ; 


/* 

* Adjust  # graduations,  grid  granularity,  and  major  ticks 

* for  overflow  plotting  surface. 

axis_ptr->grad__vals  - (axis_ptr->grad_vals  * 2)  - 1; 

axis_ptr->grid__gran  - (axis_ptr->grid_gran  * 2)  - 1; 

axis_ptr->ma  j_ticks  - (axis _ptr->ma j_ticks  * 2)  - 1; 

*/ 

/* 

* Format  low/high  scales  into  numeric  form.  Save  the  original 

* scale  values.  Adjust  the  low/high  scale  values  to  encompass 

* the  overflow  plot  area. 

*/ 

if  (axis  _jytr->scal_type  — ' T'  ) { 

axis_ptr->low_ value  - (double)  p_atimei (axis_ptr->low_scale) ; 
axis_ptr->high_value  - (double)  p_atimei (axis_ptr->high_scal) 

axis_ptr->org_low_val  * axis— ptr->low_value; 
axis— ptr->org_high_val  - axis_ ptr->high_value; 

) else  { 

sscanf <axis_ptr->low_scale,  "%lf",  &axis_ptr->low_value) ; 
sscanf  (axis_ptr->high_scal,  "%lf",  &axis_ptr->high_value) ; 

axis_ptr->org_low_val  - axis_ ptr->low_value; 
axis_ptr->org_Jiigh_val  - axis_ptr->high_value; 

/*  RLK  10/17/90 

diff  » (axis_ptr->high_value  - axis_ptr->low_value)  / 2.0; 
axis_pt r->low_value  = (double)  axis_jptr->low_value  - diff; 
axis_pt r->high_value  - (double)  axis_ptr->high__value  + diff; 

*/ 

} 


/* 

* 


★ 

*/ 


Transform  axis  position  to  pixel  coordinates.  Set 
current  axis  position  to  permanent  pixel  axis. 
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if  (axis_ptr->axis__xory  “ 'X') 

axis_ptr->cur_axis_pos  - axis_ptr->pixel_axis_pos 

- (short)  ((100.0  - axis__ptr->axis_pos) 

* plot_ptr->plot_pos->factor_y) ; 

else 

axis_ptr->cur_axis_pos  - axi3jptr->pixel_axis_j?os* 

- (short)  (axis_jptr->axis_jpos 

* plot_ptr->plot_pos->factor_x) ; 


/* 

* 

*/ 


Set  axis  to  active  state. 


axis__ptr->axis_active  = YES; 
axis_ptr++; 


fclose (plot_fp) ; 


/* 

* Read  the  limit /nominal  line  file  (if  exists) 
*/ 


if  (lline_num  O 0 &&  nline_num  <-  0) 
return (0) ; 

/*  build  file  name  for  limit /nominal  line  w/  name  & .nil  extension.  */ 

strcpy  <file_name,  plot_f ile__name) ; 
strcat  (file_name,  ".lln"); 

/*  open  limit  plot  file  if  one  exists  */ 

lim__fp  - fopen  (file_name,  "r")  ; 

if  (lim_fp  --  NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  opening  limit  or  nominal  line  file  %s", 
errno,  file_name)  ; 
header_jptr->lline_num  * 0; 
header_ptr->nline_num  - 0; 
return  (0) ; 


/* 

* Check,  for  incompatible  limit  line  file  version. 
*/ 


fscanf  (lim_fp,  "%hd",  Aversion) ; 
if  (version  > VERSION)  { 

tui__msg (M_YELLOWf  "Incorrect  software  version  for  limit  line  file"); 

header_ptr->lline_num  * 0; 

header_ptr->nline_num  - 0 ; 

fclose (lim_fp) ; 

return  (0) ; 

) 

fscanf  (lim_fp,  "%*51c") ; 

fscanf  (lim_fp,  "%hd",  &xaxes_num)  ; 

fscanf  (lim_fp,  "%hd”,  &yaxes_num) ; 
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fscanf 

"%d", 

&msid_num)  ; 

fscanf 

(lim_fp. 

"%dn, 

&actual_msids) ; 

fscanf 

(lim_fp. 

"%d", 

&nline_num)  ; 

fscanf 

(lim_fp. 

"%d". 

&lline_num)  ; 

fscanf 

(lim_fp. 

"%hd" 

, &upd_rate)  ; 

fscanf 

(lim_fp, 

"%hd" 

, &access_rs); 

/* 

* Read  in  the  plot  definition  file  nom  records 
*/ 


if  (nline_num  >0)  { 

nline_ptr  - (struct  lim_lines  *) 

calloc (nline_num,  sizeof (struct  lim_lines)); 

if  (nline_ ptr  “ NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  allocating  plot  nline  memory",  errno); 
fclose  (lim_fp) ; 
return  (-1) ; 

} 

plot_ptr->nline  * nline_ptr; 

for  (p  * 0;  p < nline_num;  p++)  { 

fscanf  (lim_fp,  ; 

fscanf  (lim_fp,  "%s",  temp) ; 
nline_ ptr->line_type  - temp[0]; 
fscanf  (lim_fp,  "%hd",  ficolor) ; 
nline_ptr->line_color  - Pixels [color] ; 
fscanf  (lim_fp,  "%d",  &nline_ptr->xaxis_num) ; 
fscanf  (lim_fp,  "%d",  &nline_j>tr->yaxis_num)  ; 
fscanf  (lim_fp,  "%sM,  temp); 
nline_ptr->line_def  - temp[0]; 

fscanf  (lim_fp,  "%hd”,  &nline_ptr->point_num)  ; 
fscanf  (lim_fp,  "%hd",  &nline_ptr->polyn_num) ; 

nline^ pts_ptr  - (struct  plot_pts  *) 

calloc (nlinejptr->point_num,  sizeof (struct  plot^pts) ) ; 

if  (nline__pts  jptr  “ NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  allocating  plot  nline  point  memory" 
errno) ; 

fclose (lim_fp) ; 
return  (-1) ; 

} 

nline_ptr->plot__pts_ptr  = nline_pts_ptr ; 

for  (i  - 0;  i < nline_ptr->point_num;  i++)  { 

fscanf  (lim__fp,  "%s",  nline_ptsj?tr->point_x) ; 
fscanf  (lim__fp,  "Is",  nline_pts_j>tr->point_y)  ; 
nline_pts_ptr++; 

) 

for  (i  =0;  i < (nline_ptr->polyn_num) ; i++) 

fscanf  (lim_fp,  "%s",  nline_ptr->coef f [i] ) ; 

nline_jptr++; 

} 

} 


/* 

★ 


Read  in  the  plot  definition  file  lim  records  and  store  them  into  memory. 


if  (lline  num  >0)  ( 


read_plt.c 


lline_ptr  » {struct  lim_lines  *) 

calloc (lline_num,  sizeof (struct  lim_lines) ) ; 

if  (lline_ptr  — NULL)  ( 

tui_msg  (M_YELLOW,  "Error  %d  allocating  plot  lline  memory",  errno) ; 
fclose  (lim_fp) ; 
return  (-1); 


plot_ptr->lline  - lline_ptr; 

for  {p  - 0;  p < lline_num;  p++)  { 

fscanf  <lim_fp,  "%*s") ; 
fscanf  (lim_fp,  "%s",  temp) ; 
lline_ ptr->line_type  * temp[0]; 
fscanf  (lim__fp,  "%hd"/  &color)  ; 
lline_ptr->line_color  - Pixels [color] ; 
fscanf  (lim_fp,  "%d" , &lline_ptr->xaxis_jnum)  ; 
fscanf  (lim_fp,  "%d",  &lline_ptr->yaxis_num)  ; 
fscanf  (lim_fp,  "%s",  temp) ; 
lline_ptr->line_def  - temp[0]; 
fscanf  (lim_fp,  "%hd",  &lline_ptr->point_num) ; 
fscanf  (lim__fp,  "%hd",  &lline_j>tr->polyn_num)  ; 

lline_pts_ptr  - (struct  plot_pts  *) 

calloc (lline_ptr->point_num,  sizeof (struct  plot_pts) ) ; 

if  (1 lineup ts_ptr  — NULL)  { 

tui_msg (M^YELLOW,  "Error  %d  allocating  plot  lline  point  memory", 
errno) ; 

fclose (lim_fp) ; 
return (-1 ) ; 


lline_ptr->plot__pts_j>tr  - lline_pts_pt r; 

for  (i  - 0;  i < lline^pt r->point_num;  i++)  { 

fscanf  (lim_fp,  ”%s",  lline_pts_ptr->point_x) ; 
fscanf  (lim_fp,  "%s",  lline_ptsjptr->point_y) ; 
lline_pts_ptr++; 


for  (i  - 0;  i < ( lline  jp  t r ->po 1 yn_n um ) ; i++) 

fscanf  (lim_fp,  "%s",  lline_ptr->coef f [i] ) ; 

lline_ptr++; 


} /*  end  -if-  (lline  > 0)  */ 

D (printf ("END  read_plt\n") ) ; 


} 


return  (0) ; 
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/a***************************************************************************** 

* MODULE  NAME:  readbg.c 

* 

★ This  routine  reads  into  memory  the  DDF  background  file. 

★ 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 

★ 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
**********★*******************************************************************/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio.h> 
<X11/Xlib.h> 
<constants . h> 
<DDdisp .h> 
<disp.h> 
<wex/EXmsg . h> 


extern 

struct 

dm_shmemory 

*Dm_Address; 

/* 

ptr  to  DM  shared  memory 

*/ 

extern 

struct 

bg_recs 

Bg__Rec; 

/* 

background  records 

*/ 

extern 

int 

errno; 

/* 

system  error  return  value 

*/ 

extern 

short 

Pixels [128] ; 

/* 

index  into  colormap 

*/ 

int  readbg  <disp_ num) 
short  disp_num; 


< 


FILE  * f open ( ) ; 

char  *malloc(), 

*calloc () ; 


/*  effective  display  number 


FILE 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 

struct 


*ddf_fp; 

/* 

Ptr 

to  background  DDF  file 

*/ 

disp_inf o 

*display; 

/* 

ptr 

to  display  info  struct 

*/ 

rec_header 

*bg__text_ ptr ; 

/* 

ptr 

thru  bg  text  records 

*/ 

graph_record 

* bg_g  r aph_ p tr; 

/* 

ptr 

thru  bg  graphical  recs 

*/ 

vtext_record 

*vtext_ptr ; 

/* 

ptr 

to  vector  text  entry 

*/ 

line_record 

*line_ptr; 

/* 

ptr 

to  line  record 

*/ 

rectangle_record 

l *rect_ptr; 

/* 

ptr 

to  rectangle  record 

*/ 

polygon_record 

*poly_jptr; 

/* 

Ptr 

to  polygon  record 

*/ 

graph__pts 

*po  ly_j5t  s_pt  r ; 

/* 

ptr 

thru  polygon  vertices 

*/ 

circle  record 

*circle_ptr ; 

/* 

Ptr 

to  circle  record 

*/ 

arc_record 

*arc_j?tr  ; 

/* 

ptr 

to  arc  record 

*/ 

ellipse_record 

*ellipse_ptr ; 

/* 

Ptr 

to  ellipse  record 

*/ 

curve_record 

*curvej)tr; 

/* 

ptr 

to  curve  record 

*/ 

graph_pts 

*curve_pt  s_pt  r ; 

/* 

ptr 

thru  curve  points 

*/ 

factor  x,  factor  y,  /*  coordinates 

transformation  factors 

*/ 

x_size,  y__size, 

/*  size 

of 

display  window  in  wrld  coord 

*/ 

fxl,  fyl,  fx2. 

fy2,  /*  temporary  float  x/y  values 

*/ 

radius. 

/*  temp 

for  radius 

*/ 

float 
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anglel,  angle2; 

/* 

temp  for  radian  angles 

long 

horz_size,  vert_size; 

/* 

font  size  read  from  bg  file 

short 

version. 

/* 

background  DDF  file  version 

access_rs ; 

/* 

access  restriction  code 

int 

if  3 r k,  w,  h. 

/* 

loop  counters 

total_nbr_records , 

/* 

total  number  of  background  records 

color. 

/* 

local  var  for  index  into  Pixels  map 

disp_x_size, 

/* 

size  of  physical  display  terminal 

disp_y_size, 

/* 

in  millimeters. 

screen; 

/* 

X screen  id  of  display  terminal 

char 

*text_char_ ptr. 

/* 

ptr  thru  characters  of  text  items 

dd f _f  i 1 e_n ame  [DNAME__LEN] 

f 

/*  name  of  bg  DDF  file 

f ont_style [5] ; 

/* 

font  style  read  from  bg  file 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

V 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


D (printf ("START  readbg\n")); 

/* 

* Initialize  local  display  variable  (not  X display. . .disp  info  struct) 
*/ 


display  • &Dm_Address->display  [disp_num]  ; 

/* 

* Retrieve  display  name  and  open  bg  file 
*/ 


strcpy  (ddf_f ile_name,  display->display_name)  ; 
strcat  (ddf_f  ile_name,  ”.bg"); 

ddf_fp  - fopen  (ddf_f ile_name,  nrw); 

if  (ddf_fp  --  NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  reading  DDF  background  file",  errno) ; 
return  (-1) ; 

> 

/* 

* Read  the  software  version.  If  correct  version  continue  processing  by  read- 

* ing  in  the  number  of  graphical,  character  and  subdrawing  records.  Read  in 

* access  restriction  code. 

*/ 


fscanf  (ddf_fp,  "%hd",  &version) ; 


if  (version  > VERSION)  f 

tui_msg (M_WHITE,  "Incorrect  software  version  for  this  release”); 
close  (ddf_fp) ; 
return  (-1) ; 


/* 

★ 

*/ 


Read  the  Display  Definition  Background  header  file  and  store  into  memory 


fscanf (ddf_fp,  "%*49c") ; 
fscanf (ddf_fp,  "%f",  &x_size) ; 
if  ( (x_size  < 0)  ||  (x_size  > 100)) 

tui_msg (M_WHITE,  "x  coordinate  is  out  of  range"); 

fscanf (ddf_fp,  "%f",  &y_size) ; 


if  <(y_size  < 0)  It  (y_size  > 100)) 

tui_msg(M_WHITE,  "y  coordinate  is  out  of  range")  ; 


f scanf (ddf_fp,  "%dM,  &color) ; 
if  ((color  < 0)  II  (color  > 128)) 

tui_msg(M_WHITE,  "Incorrect  color  parameter"); 
Bg_Rec . s^color  * Pixels [color] ; 


fscanf (ddf_fp, 
f scanf (ddf_ fp, 
fscanf (ddf_fp, 
fscanf (ddf_fp, 
fscanf (ddf_fp, 


"%hd",  & (Bg_Rec .graph_num) ) ; 

”%hd",  & (Bg_Rec.char_num)  ) ; 
"%*5c” ) ; 

"%hd",  &access_rs) ; 

"%*10c") ; 


/* 

* Calculate  the  world  coordinate  transformation 

* factors  based  on  the  size  of  the  display 
*/ 

screen  - DefaultScreen  ( Dm_Address->xdi splay [disp_num]  ); 
disp_x_size  = DisplayWidth  ( Dm_Address->xdisplay [disp_num]  , screen  ); 
disp_y_size  - DisplayHeight  ( Dm_Addres s->xdi splay  [disp_num] , screen  ); 

display->size_x  - (int) ( (double) disp_x_size  * (x_3ize  / 100.0)  ); 

display->size_y  = (int) ( (double) disp_y_size  * (y_size  / 100.0)  ); 

display->factor_x  * (float ) display->size_x  / 100.0; 
display->factor_y  - (float ) display->size_y  / 100.0; 

factor_x  - display->f actor^x; 
factor  y * display->f actor_jr; 

/* 

* Calculate  the  number  of  bg  records.  If  no  records, 

* close  bg  DDF  file  and  exit. 

*/ 

tot  a l_nb  rerecords  **  Bg_Rec  .graph__num  + Bg_Rec . char_num; 

if  (total_nbr_records  *=*0)  { 

fclose  (ddf_fp) ; 
return  (0) ; 

} 

/* 

* Check  the  access  restriction  code  to  see  if  the  display  is  either  a 

* Medical  or  Payload  restricted  display.  If  the  display  is  access 

* restricted  and  the  position  Id  does  not  match  the  access  restriction,  then 

* exit  out  of  this  routine. 

*/ 


switch  (access  rs)  { 


case  MEDICALJJSR: 

if  ( (strcmp  (display->pos_id,  "MED\0") 
tui_msg (M— YELLOW,  "Medical  Display 
fclose  (ddf_fp) ; 
return  (total_nbr_records) ; 

} 

break; 

case  PAYLOAD_USR: 

if  ((strcmp  (display->pos_id,  "PAY\0") 
tui_msg (M_YELLOW,  "Payload  Display 
fclose  (ddf_fp) ; 
return  (total_nbr_records) ; 


1“  0))  { 

- access  restricted") ; 


!-  0))  { 

- access  restricted”) ; 


/* 

* Check  for  graphical  records ...  allocate  memory 
*/ 


if  (Bg__Rec  .graph_num  >0)  ( 

Bg_Rec .graph_rec  - (struct  graph_record  *) 

calloc  (Bg_Rec  .graph_num,  sizeof  (struct  graph_record)  ) ; 

^_9raph_ptr  - Bg_Rec  .graph_rec; 

if  (bg_graph_j>tr  ■-  NULL)  { 

tui_msg  (M__YELLOW,  "Error  %d  on  graphical  record  calloc" , errno); 
return  (-1) ; 

) 

} 


/* 

* Read  bg  graphic  records 
*/ 


for  (j  - 0;  j < Bg_Rec . graph_num;  j++)  { 

fscanf  (ddf_fp,  "%hd",  & (bg_graph_ ptr->graph_typ) ) ; 
bg_graph_ptr->redraw_f lag  - NO; 

switch  (bg_graphj>tr->graph_typ)  { 

case  LINE: 

/*  Allocate  memory  for  a line  record  and  setup  local  pointer  */ 

bg_jgraph _j>tr->graph_ptr  - malloc  (sizeof  (struct  line_record) ) ; 

if  (bg_graph_ptr->graph_ptr  — NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  background  line  record  malloc",  errno); 
return  (-1) ; 

} 

line_ptr  - (struct  line_record  *)  bg_graph_j>tr->graph_ptr ; 

/*  read  in  a single  line  record  */ 

fscanf  (ddf_fp,  "%d",  Scolor); 

line_j>tr->graph_col  - Pixels  [color] ; 

fscanf  (ddf_fp,  "%hd",  & (line_ptr->line_type) ) ; 

fscanf  (ddf__fp,  "%f",  & <line_ptr->line_wdth) ) ; 

fscanf  (ddf_fp,  "%f",  ifxl) ; 

fscanf  (ddf_fp,  "%f",  &fyl) ; 

fscanf  (ddf_fp,  "%f",  &fx2); 

fscanf  (ddf_fp,  "%f",  &fy2) ; 

/*  convert  world  coordinate  line  endpoints  to  X pixel  coord  */ 

line _jptr->pointl_x  = (int)  (fxl  * factor_x); 
line_ptr->pointl_y  = (int)  ((100.0  - fyl)  * factor_y) ; 
line _ptr->point2_x  = (int)  (fx2  * factor_x) ; 
line_ptr->point2 _y  = (int)  ((100.0  - fy2)  * facto r_y ) ; 


break 


y y'  i.Vy-'s  . ' 

: Jii 
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case  RECTANGLE: 

/*  allocate  memory  for  a rectangle  record  and  setup  local  ptr  */ 

bg__graph_ptr->graph_ptr  = 

malloc (sizeof (struct  rectangle_record) ) ; 

if  (bg_graph_ptr->graph_ptr  ==*  NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  background  rectangle  record  malloc 

rno)  ; 

return  (-1) ; 

} 

rect_ptr  * (struct  rectangle_record  *)  bg_graph_ptr->graph_j>t r ; 

/*  read  in  a single  rectangle  record  */ 

fscanf  (ddf__fp,  "%d",  Scolor)  ; 
rect_pt r->graph_col  - Pixels [color] ; 
fscanf  (ddf_fp,  "%hd",  & (rect_ptr->line_type) ) ; 
fscanf  (ddf_fp,  "%f",  & (rect_ptr->line_wdth) ) ; 
fscanf  (ddf__fp,  "%hd",  & (rectjptr->pat_type)  ) ; 

/*  RLK  10/23/90  Set  pattern  type  to  NO__CHANGE  since  not  implemented  */ 
rect _jptr->pat_type  * NO_CHANGE; 

fscanf  (ddf__fp,  "%f",  & (rect_jDtr->pat_sizex)  ) ; 
fscanf  (ddf_fp,  "%f",  & (rect_ ptr->pat_sizey) ) ; 

/*  RLK  9/6/90  strange  ordering  of  rectangle  coordinates . . .might  make 
sure  this  is  right  at  some  point-  */ 

fscanf  (ddf_fp,  "%f",  &fxl) ; 
fscanf  (ddf_fp,  "%f",  &fy2)  ; 
fscanf  (ddf_fp,  "%f",  &fx2) ; 
fscanf  (ddf_fp,  "%f",  &fyl)  ; 

/*  convert  world  coordinates  to  X pixel  coordinates  */ 

/*  upper  left  x coord  of  rectangle  */ 
rect_ptr->ul_x  « (int)  (fxl  * factor_x) ; 

/*  subtract  ul  y-coord  from  100  since  X-windows  origin  is 
upper  left  */ 

rect_ptr->ul_y  = (int)  ((100.0  - fyl)  * factor_y) ; 

/*  convert  lower  right  coords  to  width/height  by  subtracting 
upper  left  coords.  */ 

rect_ ptr->width  * (int)  ( (fx2  - fxl)  * factor_x) ; 
rect_pt r->height  * (int)  ( (fyl  - fy2)  * factor_y) ; 

break; 


case  POLYGON: 


/*  allocate  memory  for  a polygon  record  and  setup  local  ptr  */ 


MB/Mm 
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bg_graph_ptr->graph_ptr=malloc (sizeof (struct  polygon_record) ) ; 


if  (bg_graph_ptr->graph_ptr  " NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  background  polygon  record  malloc",  errri^ 

o)  ; 

return  (-1) ; 

} 

poly_ptr  * (struct  polygon_record  *)  bg_graph_pt  r->graph_pt  r ; 

/*  read  in  a single  polygon  record  */ 

fscanf  (ddf_fp,  "%d",  Scolor) ; 
poly_jDtr->graph_col  * Pixels  [color]  ; 
fscanf  (ddf_fp,  "%hd",  & (poly_ptr->line_type) ) ; 
fscanf  (ddf_fp,  "%f",  & (poly_ ptr->line_wdth) ) ; 
fscanf  (ddf_fp,  "%hd",  & (poly_ptr->pat_type) ) ; 

/*  RLK  10/23/90  Set  pattern  type  to  NO_CHANGE  since  not  implemented  */ 
poly_jptr->pat_type  - NO_CHANGE; 

fscanf  (ddf_fp,  ”%f",  & (poly__ptr->pat_sizex) ) ; 
fscanf  (ddf_fp,  "%f",  & (poly_ptr~>pat_sizey) ) ; 
fscanf  (ddf_fp,  "%d",  & (poly_ptr->nmbr_pts) ) ; 

/*  allocate  memory  for  set  of  vertices  & setup  local  ptr  */ 

poly_ptr->polyjpts_ptr  - (struct  graph_jpts  *) 

calloc  ( po ly_jpt r->nmbr_pt s , sizeof  (struct  graphjpts)  ) ; 

if  (poly_j>tr->poly_pts— ptr  •*»  NULL)  { 

tui_msg  (M_YELLOW,  "Error  %d  on  background  polygon  record  malloc",  errrr— ^ 

o)  ; 

return  (-1) ; 

) 

poly_pts_ptr  - poly_jptr->poly_pts_ptr; 

/*  read  in  polygon  vertices  */ 

for  (w  - 0;  w < poly_ ptr->nmbr_pts;  w++)  { 
fscanf  (ddf_fp,  "%f",  &fxl) ; 
fscanf  (ddf_fp,  "%f",  &fyl) ; 

poly_j>ts _ptr->point_x  = (int)  (fxl  * factor_x); 

Poly_pts_ptr->point _y  - (int)  ((100.0  - fyl)  * factor_y); 
poly__pts_ptr++; 

} 

break; 


case  CIRCLE: 

/*  allocate  memory  for  circle  record  & setup  local  pointer  */ 

bg_graph _ptr->graph_pt r * malloc (sizeof (struct  circle_record) ) ; 

if  (bg_graph_ptr->graph_ptr  ==*  NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  background  circle  record  malloc",  errnc 

return  (-1) ; 

) 


circle__pt r - (struct  circle_record  *)  bg_graph_jptr->graph_pt r ; 


/*  read  in  a single  circle  record  */ 

fscanf  (ddf_fp,  "'Id",  &color)  ; 
circle_j?t r->graph_col  - Pixels [color] ; 
fscanf  (ddf_fp,  "%hd",  & (circle_ptr->line_type) ) ; 
fscanf  (ddf_fp,  "%f  ",  & (circle jtr->line_wdth)  ) ; 
fscanf  (ddf_fp,  "%hd",  & (circle_ptr->pat_type) ) ; 

/*  rlk  10/23/90  Set  pattern  type  to  NO_CHANGE  since  not  implemented  */ 
circle^ ptr->pat_type  = NO__CHANGE; 

fscanf  (ddf_fp,  ”%f ",  & (circlejptr->pat_sizex) ) ; 

fscanf  (ddf__fp,  "%f",  & (circle_ptr->pat_sizey)  ) ; 
fscanf  <ddf_fp,  "%f",  &fxl) ; 
fscanf  (ddf_fp,  M%f",  fifyl) ; 
fscanf  (ddf__fp,  "%f",  Sradius) ; 

/*  RLK  9/10/90  Converting  radius  from  world  coord  to  X pixel  coord  based  on 
x transformation  factor  since  transforming  on  both  x and  y 
would  cause  an  ellipse  to  form  instead  of  a circle.  Need  to 
find  out  how  the  Display  Builder  computes  the  world  coord 
radius  in  order  to  compute  this  properly.  */ 

circle_ptr->radius  » radius  * factor_x; 

/*  convert  world  coord  center  & radius  to  X pixel  coords  */ 
circle_ptr->bb_x  - 

(int)  ( ( f xl  * factor_x)  - circle_ptr->radius); 
circle_ptr->bb_y  - 

(int)  (((100.0  - fyl)  * factor_y)  - circle_ptr->radius ) ; 
break; 


case  ARC: 

/*  allocate  memory  for  arc  record  & setup  local  pointer  */ 

bg_graph__ptr->graph_ptr  - malloc  (sizeof  (struct  arc_record)  ) ; 

if  (bg_graph_ptr->graph_ptr  “ NULL)  { 

t u i_ms g ( M__YE L LOW , "Error  %d  on  background  arc  record  malloc",  errno)  ; 
return  (-1) ; 

} 

arc_ptr  * (struct  arc_record  *)  bg__graph_j>tr->graph_pt r; 

/ * read  in  a single  arc  record  */ 

fscanf  (ddf__fp,  "%d",  &color)  ; 
arc_jDtr->graph_col  - Pixels  [color]  ; 
fscanf  (ddf_ fp,  "%hd",  & (arc_ptr->line_type) ) ; 
fscanf  (ddf_fp,  "%f",  & (arc_ptr->line_wdth) ) ; 
fscanf  (ddf_fp,  "%hd",  & (arc_ptr->pat_type) ) ; 

/*  RLK  10/23/90  Set  pattern  type  to  NO_CHANGE  since  not  implemented  */ 
arc_j)tr->pat_type  = NO_CHANGE; 

fscanf  (ddf_fp,  "%f",  & (arc_ptr->pat_sizex) ) ; 
fscanf  (ddf_fp,  "If",  & (arc_ptr->pat_sizey) ) ; 
fscanf  (ddf_fp,  "%f ",  &fxl) ; 
fscanf  (ddf_fp,  "%f",  &fyl) ; 


readbg.c 


fscanf 

(ddf  fp. 

n%f". 

Sfx2) ; 

fscanf 

(ddf  fp, 

"%fn. 

&fy2) ; 

fscanf 

(ddf_fpf 

•■%f". 

ianglel) ; 

fscanf 

(ddf__fp. 

"if", 

&angle2) ; 

/*  convert  world  coord  center  & axes  to  X pixel  coordinates  */ 

arc _ptr->bb_x  - (int)  ( (fxl  - (fx2  * 0.5))  * factor_x) ; 
arc_ptr->bb_y  = (int)  ( ( (100 . 0 - fyl)  - (fy2  * 0.5))  * factory); 
arc _ptr->ma j_axis  » (int)  (fx2  * factor_x) ; 
arc_ ptr->min_axi3  - (int)  (fy2  * factor_y) ; 

/*  convert  radian  angles  to  64th  degree  angles  */ 


/*  RLK  9/11/90  Need  to  find  out  what  the  reference  point  is  for  the  angles 
given  in  the  DDF  files.  They  are  given  in  radians.  */ 


arc_ptr->anglel  * ? 
arc_j>tr->angle2  - ? 


break; 


case  ELLIPSE: 

/*  allocate  memory  for  an  ellipse  record  & setup  local  ptr  */ 

bg_graph_ptr->graph_ptr  « 

malloc (sizeof (struct  ellipse_record) ) ; 

if  (bg_graph_ptr->graph_ptr  — NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  background  ellipse  record  malloc 

o)  ; 

return  (-1) ; 

) 

ellipsej>tr  - (struct  ellipse^record  *)  bg_graph_ptr->graph_pt  r ; 

/*  read  in  a single  ellipse  record  */ 

fscanf  (ddf_fp,  "%d",  ficolor)  ; 
ellipse_j?tr->graph_col  - Pixels  [color]  ; 
fscanf  <ddf_fp,  "%hd",  & (ellipse jptr->line_type) ) ; 
fscanf  (ddf_fp,  "%f",  & <ellipse_ptr->line_wdth) ) ; 
fscanf  (ddf_fp,  "%hdw,  & (ellipse  ptr ->pat_type)  ) ; 

/*  RLK  10/23/90  Set  pattern  type  to  NO_CHANGE  since  not  implemented  */ 
ellipse_ptr->pat_type  - NO_CHANGE; 

fscanf  (ddf_fp,  "%f",  £ (ellipse_ptr->pat_sizex) ) ; 

fscanf  (ddf_fp,  "%f",  £ (ellipse_ptr->pat_sizey) ) ; 

fscanf  (ddf_fp,  "%f",  fifxl) ; 

fscanf  (ddf_fp,  "%f",  &fyl) ; 

fscanf  (ddf_fp,  "%f",  fifx2); 

fscanf  (ddf_fp,  "%f",  &fy2) ; 

/ * convert  world  coordinate  centerpoint 

and  major/minor  axes  to  X pixel  coord  */ 

ellipse_ptr->bb_x  = (int)  (fxl  * factor_x); 
ellipse_ptr->bb_y  - (int)  ((100.0  - fyl)  * factor_y> ; 
ellipse_ptr->ma j_axis  = (int)  (fx2  * factor_x) ; 
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ellipse_ptr->min_axis  - (int)  (fy2  * factor_y) ; 
break; 


case  CURVE: 

/★  allocate  memory  for  an  curve  record  & setup  local  ptr  */ 

bg_graph— ptr->graph_ptr  =»  malloc  (sizeof  (struct  curve_record)  ) ; 

if  (bg__graph_ptr->graph_ptr  » NULL)  { 

tui  msg (M_YELLOW,  "Error  %d  on  background  curvical  record  malloc",  err 

return  (-1) ; 

) 

curve_ptr  - (struct  curve_record  *)  bg_graph_jotr->graph _ptr; 

/*  read  in  a single  curve  record  */ 

fscanf  (ddf_fp,  "%d",  &color) ; 
curve_pt r~>graph  col  **  Pixels  [color]  ; 
fscanf  (ddf__fp,  "%hd",  & <curve_ptr->line_type) ) ; 
fscanf  (ddf_fp,  "%f",  & (curve_ptr->line_wdth) ) ; 
fscanf  (ddf_fp,  "%d",  & (curve_ptr»>nmbr_pts)  ) ; 

/*  allocate  memory  for  curve  points  and  setup  local  pointer  */ 

curve_ptr->curve_pts_ptr  - (struct  graph_pts  *) 

calloc (curve_ptr->nmbr_pts,  sizeof (struct  graph_pts) ) ; 

if  (curve_pt r->curve_pts_ptr  “ NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  background  curve  record  malloc",  errno) 

return  (-1) ; 

) 

curvej>ts_ptr  = curve  j>tr->curve_pts_ ptr; 

/*  read  in  curve  pts,  converting  world  coord  to  X pixel  coord  */ 

for  (k  * 0;  k < curve_j?tr->nmbr_pts ; k++)  { 

fscanf  (ddf_fp,  "%f",  fifxl) ; 
fscanf  (ddf_fp,  "%f",  &fyl); 

curve_pts_ptr->point_x  - (int)  (fxl  * factor__x)  ; 
curve_pts_ptr->point__y  * (int)  ((100.0  - fyl)  * factor_y)  ; 
curve_pts_ptr++; 

} 

break; 


case  VECT_TXT: 

/*  allocate  memory  for  an  vector  text  rec  & setup  local  ptr  */ 

bg_graph_ pt r->graph_ptr  * malloc (sizeof  (struct  vtext_record) ) ; 

if  (bg__graph_ptr->graph_ptr  “ NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  on  background  vector  text  record  malloc", 


return  (-1) ; 

} 
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vtext_ptr  - (struct  vtext_record  *)  bg__graph_ptr->graph_ptr; 

/*  read  in  a vector  text  font  and  alignment  info  */ 

fscanf  (ddf_fp,  M%d",  4color) ; 
vtext_ ptr->graph_col  - Pixels [color] ; 
fscanf  (ddf_fp,  M%d",  4 <vtext— ptr->font_ style) ) / 
fscanf  <ddf_fp,  "%f",  & (vtext_j>tr->vert_size) ) ; 
fscanf  (ddf_fp,  "%f",  4 <vtext_ ptr->char_width) ) ; 
fscanf  (ddf_fp,  " %f" , 4 (vtext_ ptr->char_spac) ) ; 
fscanf  (ddf_fp,  "%d",  4 (vtext _j>tr->char_angl) ) ; 

vtext_ptr->f ont_num  - f ont_num(disp_num,  "def",  0,  0); 

fscanf  (ddf_fp,  "%f",  4fxl) ; 
fscanf  <ddf_fp,  "%f\  4fyl)  ; 

/*  convert  world  coordinate  positions  to  X pixel  coordinates  */ 

vtext_ptr->x_j>osition  - (int)  (fxl  * factor_x); 
vtext_pt  r->y_jposition  - (int)  ((100.0  - fyl)  * factor_y) ; 

/*  allocate  memory  for  vector  text  chars  and  setup  local  ptr  */ 

fscanf  (ddf_fp,  "%d",  4 (vtext_ptr->char_len) ) ; 

vtext _j?tr->record_item  - malloc  (vtext_ptr->char_len  + 1) ; 

if  (vtext_ptr->record_item  NULL)  { 

tui_msg(M_YELLOW,  tterror  %d  on  vector  text  record  item  malloc  ",  errno 

fclose  (ddf_fp) ; 

} 

text_ char^ptr  - vtext j>tr-> re cord__item; 

/*  read  in  vector  text  string  */ 
fscanf  (ddf_fp,  "%*c") ; 

for  (h  - 0;  h < vtext_ptr->char_len;  h++)  { 
fscanf  (ddf_fp,  "%c",  text_char_ptr) ; 
text_char _j>t  r++  ; 

) 

*text_char_ptr  - NULL; 
vtext_ptr++; 

break; 

default: 

break; 

) /*  End  of  switch  (graph_typ)  */ 

bg_graph_ pt r ++ ; 

} /*  End  of  graphical  records  -for-  loop  */ 


/* 

* If  have  text  records, 
*/ 


alloc  memory  for  all  text  records  4 setup  local  ptr 


if  (Bg_Rec . char_num  >0)  ( 
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Bg_Rec • record  * (struct  rec_header  *) 


UW  U -i-  ^ / 

calloc (Bg_Rec.char_num,  sizeof (struct  rec_header) ) 


if  (Bg_Rec . record  “ NULL)  { 

tui_msg(M_YELLOW,  "Error  %d  on  character  record  calloc",  errno); 
return  (-1) ; 

> 


bg_text_ptr  =*  Bg_Rec  . record; 

} 


Read  in  text  records 


for  (i  - 0;  i < Bg_Rec . char_num;  i++)  { 

/*  read  in  font  info  */ 

fscanf  ( ddf  _i^p,  "%s",  font_style)  ; 
fscanf  (ddf_fp,  "%ld",  &horz_size) ; 
fscanf  (ddf_ fp,  "%ld",  &vert_size) ; 

/*  fetch  font  number  */ 

bg__text_j^tr->font_num  * 

font_num(disp__num,  font_style,  horz_size,  vert_size)  ; 

/*  read  text  attributes,  convert  world  coord  to  X pixel  coord  */ 

fscanf  <ddf_fp,  "%d",  &color) ; 
bg__text_ptr->color  - Pixels [color] ; 
fscanf  (ddf_fp,  "%f",  &fxl) ; 
fscanf  (ddf_fp,  "%f",  &fyl) ; 

bg_text_ptr->x_j>osition  = (int)  (fxl  * factor_x)  ; 
bg_text_ptr->y_j:)osition  - (int)  ((100.0  - fyl)  * factor_y)  ; 
fscanf  (ddf_fp,  "%d" , & (bg__text_ptr->char_len)  ) ; 

/*  allocate  space  for  a single  text  item  & setup  local  ptr  */ 

bg_text _pt r->record_item  * malloc  (bg_text_j>tr->char_len  + 1) ; 

if  ( bg_t ext _j3tr->record_i tem  “ NULL)  { 

tui_msg (M_YELLOW,  "error  %d  on  record  item  malloc  ",  errno); 
fclose  (ddf_fp) ; 

} 

text_char_ptr  = bg_text_ ptr->record_item; 

/*  read  in  text  item  */ 
fscanf  (ddf_fp,  "%*c"); 

for  (h  - 0;  h < bg_text_ptr->char_len;  h++)  { 

fscanf  (ddf_fp,  "%c",  text_char_ptr)  ; 
text^char^ptr+t; 

} 

*text_char_ptr  =*  NULL; 
bg_text  _ptr->redraw_f lag  = NO; 
bg_text_pt  r ++ ; 


) /*  End  of  for  (total  # rec . . . ) */ 


fclose  (ddf_fp) ? 

D(printf ("END  readbg\n")); 
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return  (total  nbr  records)  ; 


********* 
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/★A****************************************************************** 

* MODULE  NAME:  readfg.c 

* 

* This  routine  reads  the  foreground  DDF  records  into  memory. 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 


* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★a****************************************************************************/ 


♦ include  <stdio . h> 
♦include  <X11/Xlib.h> 
♦include  <fcntl.h> 
♦include  <sys/types . h> 
♦include  Cconstants . h> 
♦include  <DDdisp.h> 
♦include  <disp.h> 
♦include  <DDplot.h> 
♦include  <DDfg_graph . h> 
♦include  <wex/EXmsg.h> 


extern  GC  FGC [MAX_GC] ; /*  pre-allocated  GC  array  */ 


extern 

struct 

dm_shmemory 

*Dm_Address ; 

/* 

ptr 

to 

DM  shared  memory 

*/ 

extern 

struct 

msid_ent 

*Msid; 

/* 

ptr 

to 

msid  entries 

*/ 

extern 

struct 

limit_ent 

* Limit ; 

/* 

Ptr 

to 

limit  entries 

*/ 

extern 

struct 

mtext_ent 

*Mtext ; 

/* 

ptr 

to 

multilvl  text  entries 

*/ 

extern 

struct 

pbi_ent 

*Pbi; 

/* 

ptr 

to 

PBI  entries 

*/ 

extern 

struct 

tabular_ent 

*Tab; 

/* 

ptr 

to 

tabular  entries 

*/ 

extern 

struct 

plot_tmplt 

*Tmplt  ; 

/* 

ptr 

to 

template  entries 

*/ 

extern 

struct 

hist_tab 

*Htab; 

/* 

ptr 

to 

history  tab  entries 

*/ 

extern 

struct 

fg__f  ile__header 

*Ffile; 

/* 

Ptr 

to 

fg  file  hdr  records 

V 

extern 

struct 

plot_ptrs 

*Plot_inf o_ptr ; 

/* 

Ptr 

to 

plot  records 

*/ 

extern 

struct 

fg_recs 

Fg_rec; 

/* 

fg  graphics  records 

*/ 

extern 

struct 

label_ent 

*Lab; 

/* 

Ptr 

to 

label  records 

*/ 

extern 

struct 

scale_ent 

*Scale; 

/* 

Ptr 

to 

scale  records 

*/ 

extern 

struct 

ddd_ent 

*Ddd; 

/* 

Ptr 

to 

ddd  records 

*/ 

extern 

int  errno; 

/* 

system 

return  error  value 

*/ 

extern 

short 

Nbr_of_ plots 

t 

/* 

number 

of  plot  records 

*/ 

Pixels  [128]  ; 

/* 

index  array  into  colormap 

*/ 

int  readfg (disp_num) 


short 

disp_num; 

/*  display  ♦ associated  with  fg  records  */ 

{ 

FILE 

*fopen  ()  ; 

char 

*malloc  ()  ; 

char 

*calloc  ()  ; 
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FILE 

*ddf_ffp; 

/*  ptr  to  foreground  DDF  file 

*/ 

struct 

msid_ent  *msid_ptr; 

/*  ptr  thru  msid  entries 

*/ 

struct 

t abu 1 a r_en t * t ab_p t r 

; 

/*  ptr  thru  tabular  entries 

*/ 

struct 

plot__ tmplt  *tmplt_ptr; 

/*  ptr  thru  template  entries 

*/ 

struct 

1 imi  t_ent  * 1 imi  t_pt  r ; 

/*  ptr  thru  limit  entries 

*/ 

struct 

mt ext_ent  *mtext_pt  r ; 

/*  ptr  thru  multi-lvl  text  entries 

*/ 

struct 

val_txt  *text_ptr; 

/*  ptr  thru  multi-lvl  text  string 

*/ 

struct 

plot_ptrs  *plotj>t 

r; 

/*  ptr  thru  plot  records 

*/ 

struct 

hist_tab  *htab_ptr; 

/*  ptr  thru  history  tab  records 

*/ 

struct 

scale_ent  *scale_ptr; 

/*  ptr  thru  scale  entries 

*/ 

struct 

label_ent  *label_ptr; 

/*  ptr  thru  label  entries 

*/ 

struct 

ddd_ent  *ddd_ptr ; 

/*  ptr  thru  ddd  entries 

*/ 

struct 

pbi_ent  *pbi_ptr; 

/*  ptr  thru  pbi  entries 

*/ 

struct 

label_indices  *pbi_label_ptr ; 

/*  ptr  thru  each  pbi' s labels 

*/ 

double 

wwidth,  wheight; 

/* 

dim.  of  plot  bbx  in  world  coord 

*/ 

float 

h igh__s  ca  1 e_x , 

/* 

local  high  x scale  value 

*/ 

high_scale_y, 

/* 

local  high  y scale  value 

*/ 

x_size,  y_size. 

/* 

temp  x/y  size  of  display  in  wrld  coord 

*/ 

factor_x,  factor_y. 

/* 

world-to-X  transformation  factors 

*/ 

fxl,  fyl,  fx2,  fy2; 

/* 

local  holders  for  world  coords  read  in 

*/ 

long 

mltxt_num  * 0, 

/* 

number  of  multi-level  text  entries 

*/ 

tab_num  - 0, 

/* 

number  of  tabular  entries 

*/ 

entry_num  - 0, 

/* 

number  of  msid  entries 

*/ 

limit_num  * 0, 

/* 

number  of  limit  entries 

*/ 

pbi_num  - 0 , 

/* 

number  of  pbi  entries 

*/ 

icon_num  * 0r 

/* 

number  of  icon  entries 

*/ 

tmplt_num  - 0 , 

/* 

number  of  template  entries 

*/ 

label_num  * 0, 

/* 

number  of  label  entries 

*/ 

scale_num  **  0, 

/* 

number  of  scale  entries 

*/ 

ddd_num  - 0 , 

/* 

number  of  ddd  entries 

*/ 

inter_num  - 0, 

/* 

number  of  inter  entries 

*/ 

htab_num  - 0, 

/* 

number  of  history  tab  entries 

*/ 

ppl_num  - 0 , 

/* 

number  of  ppl  entries 

*/ 

horz_size. 

/* 

local  variable  for  horizontal  size 

*/ 

vert_size; 

/* 

local  variable  for  vertical  size 

*/ 

unsigned  int  size. 

/* 

size  calculated  for  memory  allocation 

*/ 

/*  array  for  counting  font  freq 
color_count [129]; 

/*  array  for  counting  color  freq 


*/ 


int 

total_nbr_fgrecords. 

/*  total  nbr  of  foreground  records 

*/ 

error. 

/*  read_j>lt  return  value  holder 

*/ 

dep_msids. 

/*  number  of  dependent  msids 

*/ 

mesg_len. 

/*  pbi  message  length 

*/ 

tmp. 

/*  skip  record  variable 

*/ 

i»  j/  k. 

/*  loop  count  variables 

*/ 

color. 

/*  temp  holder  for  color  values  read 

in  */ 

one,  two,  three; 

/*  vars  to  hold  color/font  counts 

*/ 

short 

*loc_ddd_aptr. 

/*  ptr  to  ddd  msid  indx 

*/ 

version; 

/*  version  of  the  fg  ddf  file  read 

*/ 

char 

sample  [4] , 

/*  sample  value 

*/ 

local_text [7] , 

f*  temp  for  mlti-lvl  txt  string 

*/ 

f ont_style [5] , 

/*  local  variable  for  font  style 

*/ 

fg_f ile_name [50] , 

/*  fg  file  path  name 

*/ 

disp_name [33] , 

/*  temp  holder  for  display  name 

V 

position [17] , 
temp [2] , 
*loc_lbl_ptr, 
*rec_pointer; 
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/*  temp  holder  for  display  position  * / 
/*  variable  for  reading  in  one  char  */ 
/*  temp  ptr  to  label  string  */ 
/*  ptr  to  newly  allocated  memory  */ 


D (printf ("START  readfg\n") ) ; 

/* 

* Setup  local  world  coordinate  transformation  factors 
*/ 

factor_x  = Dm_Address->display [disp_num] . factor_x; 
factor_y  = Dm_Address->display [disp_num] . factor_y; 

/* 

* Build  DDF  filename  and  open  the  file 
*/ 

strcpy ( f g_f i le_n ame , Dm_Address->display [disp_num] .display_name  ); 
strcat ( fg_f ile_name,  ".fg"  ); 

ddf_ffp  - fopen(  fg_f ile_name,  "r"  ); 

if  ( ddf_f fp  — NULL  ) { 

tui_msg ( M_YELLOW,  "Error  %d  on  reading  DDF  foreground  file",  errno  ); 
return ( -1  ); 

} 

/* 

* Read  in  header  info 
*/ 

f scanf ( ddf_ffp,  "%hd",  fiversion  ); 
if  ( version  > VERSION  ) { 

tui_msg(  M_YELLOW,  "The  Display  Builder  version  is  incorrect"  ); 
fclose  ( ddf_ffp  ) ; 
return  ( 0 ) ; 

) 


f scanf ( 

ddf  ffp, 

"%32c 

" , disp  name  ) 

f scanf ( 

ddf  ffp. 

"%18c 

",  position  ); 

f scanf ( 

ddf  ffp, 

"%f", 

&x_size  ) ; 

f scanf ( 

ddf  ffp. 

"%f". 

&y_size  ) ; 

f scanf ( 

ddf  ffp. 

"%d", 

Scolor  ) ; 

f scanf  ( 

ddf  ffp. 

"%d". 

&tab_num  ) ; 

f scanf { 

ddf  ffp. 

"%d", 

&entry_num  ) ; 

f scanf  ( 

ddf  ffp. 

"%d", 

&pbi_num  ) ; 

f scanf ( 

ddf  ffp. 

"%d". 

&icon  num  ) ; 

f scanf ( 

ddf  ffp. 

"%d" , 

&tmplt_num  ) ; 

f scanf ( 

ddf  ffp. 

"%d". 

&mltxt_num  ) ; 

f scanf ( 

ddf  ffp, 

"%d". 

&limit__num  ) ; 

if  ( version  > 2 

) ( 

f scanf ( 

ddf_ffp. 

"%d". 

&label_num 

) ; 

fscanf ( 

ddf  ffp. 

"%d". 

&scale_num 

) ; 

f scanf { 

ddf  ffp. 

"%d". 

&ddd_num  ) ; 

fscanf ( 

ddf  ffp. 

"%d". 

Sinter  num 

) ; 

fscanf ( 

ddf  ffp. 

"%d" , 

&htab_num  ) 

/ 

fscanf  ( 

ddf  ffp. 

"%d". 

&ppl  num  ) ; 

} 

/* 

★ 


Sum  records,  check  for  no  records 
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total_nbr_fgrecords  - tab_num  + entry_num  + mltxt_num  + limit_num  + 

tmplt_num  + htab__num  + icon_num  + label  num  + 
scale_num  4-  ddd_num  4-  pbi_num; 

if  ( total_nbr_fgrecords  " 0 ) { 

tui_msg<  M__WHITE,  "There  are  zero  foreground  records”  ); 
f close ( ddf_ffp  ) ; 
return ( 0 ) ; 

} 

/* 

* Calculate  the  size  of  the  Display  Definition  File  and  allocate  the 

* memory. 

*/ 

size  - sizeof  ( struct  fg_f ile_header  ) 4- 

sizeof(  struct  msid_ent  ) * entry_num  + 
sizeof  < struct  plot_tmplt  ) * tmplt_num  4* 
sizeof  ( struct  hist__tab  ) * htab_num  + 
sizeof  ( struct  tabular_ent  ) * tab_num  4* 
sizeof ( struct  mtext_ent  ) * mltxt_num  + 
sizeof  ( struct  fgr_record  ) * icon_num  4- 
sizeof ( struct  limit_ent  ) * limit_num  + 

sizeof  { struct  scale_ent  ) * scale_num  4* 

sizeof < struct  ddd_ent  ) * ddd_num  4- 

sizeof(  struct  pbi_ent  ) * pbi_num  4- 

sizeof  ( struct  label_ent  ) * label_num; 

rec_pointer  - malloc  ( size  + 1 ) ; 

if  ( rec_pointer  — NULL  ) { 

tui_msg(  M_YELLOW,  "error  %d  on  malloc  of  file  size  ",  errno  ); 
f close < ddf_ffp  ) ; 
return ( -1  ); 

} 

/* 

* Set  up  pointer  to  start  of  foreground  file  header 
*/ 


Ffile  - ( struct  fg_f ile_header  * ) rec_ pointer; 


/* 

* Copy  the  foreground  DDF  header  values 

* into  the  global  header  structure 
*/ 

/*  RLK  9/4/90 . . .doesn' t fix  any  out-of-ranges  in  code  below. . .why?  */ 

Ff ile->Version  — version; 

strncpy (Ffile->Disp_Name,  disp_name,  32)  ; 

strncpy (Ff ile->Posit ion,  position,  17) ; 

Ff ile->X_Size  ™ x_size; 

if  ( ( Ffile->X_Size  < 0 ) ||  ( Ff ile->X_Size  > 100  ) ) 

tui_mag ( M_WHITE,  "The  X size  of  the  display  is  out  of  range"  ); 

Ff ile->Y_Size  * y_size; 

if  { ( Ffile->Y_Size  < 0 ) ||  ( Ff ile->Y_Size  > 100  ) ) 

( M^WHITE,  "The  Y size  of  the  display  is  out  of  range"  ); 

Ff ile->S_Color  = Pixels [color] ; 
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if  ( ( color  < 0 ) II  { color  > 128  ) ) 

tui_m3g (M_WHITE, 

"The  foreground  screen  color  is  out  of  range  %d",  color) 

Ff  ile->Tab_Num  = tab_num; 

if  ( ( Ffile->Tab_Num  < 0 ) II  ( Ff ile->Tab_Num  > 3000  ) ) 

tui_msg(  M_WHITE,  "Number  of  tabular  entries  is  out  of  range"  ); 

Ff ile->Entry_Num  * entry_num; 

if  ( ( Ff ile->Entry_Num  < 0 ) II  ( Ff ile->Entry_Num  > 3000  ) ) 

tui_msg(  M_WHITE,  "Number  of  msid  entries  is  out  of  range"  ); 

Ffile->PBI_Num  - pbi_num; 

Ff ile->Icon_Num  - icon_num; 

Ff ile->Tmplt_Num  - tmplt__num; 

Ff  ile->Mltxt_Num  = mltxt_num; 

Ff ile->Limit_Num  * limit_num; 

if  ( { Ff ile->Limit_Num  < -1  ) I I ( Ff ile->Limit_Num  > 3000  ) ) 

tui_msg(  M_WHITE,  "Number  of  limit  entries  is  out  of  range"  ); 

Ffile->Htab  Num  - htab  num; 


/* 

* Read  access  restriction  code 
*/ 


f scanf  ( ddf_ffp,  "%2c",  Ff  ile->Access__Rs  ); 


/* 

* Initialize  color  count  array  (GC  optimization  code) 
*/ 

for  (i«0;  i<129;  i++) 
color  count [i]~0; 


/* 

* Read  the  DDF  MSID  entries  record  file  and  store  into  memory 
*/ 


Msid  - ( struct  msid_ent  * ) ( Ffile  + 1 ) ; 

msid^ ptr  = Msid; 

for  ( i = 0;  i < entry_num;  i++  ) { 

f scanf  { ddf_ffp,  "%d",  & ( msid_j>tr->MSID_Entr  ) ); 

fscanf  ( ddf_ffp,  "%s",  msid_ptr->MSID  ); 
fscanf  ( ddf_ffp,  "%s",  sample  ); 

if  ( sample  [0]  !-  ' L'  ) { 

ms id_j5tr-> Sample  * atoi  ( sample  ) ; 

if  ( msid_ptr->Sample  < -2  | | ms id_jptr-> Sample  =“011 
msid_ptr->Sample  > 200  ) 

tui_msg ( M_WHITE,  "The  sample  number  is  out  of  range"  ); 

} else 

ms id_ptr->S ample  = -1; 

fscanf  ( ddf_ffpr  "%s",  msid__pt  r->Data_Src  ) ; 
fscanf  ( ddf_ffp,  "%hdTf,  & ( msid_ptr->Scrn_Type  ) ) ; 

if  ( ( msid_ptr->Scrn_Type  < 0 ) II  ( msid_j>tr->Scrn_Type  > 55  ) ) 
tui_msg(  M_WHITE,  "The  screen  data  type  is  out  of  range  %hd", 
msid_ptr->Scrn_Type  ) ; 

fscanf  ( ddf_ffp,  "%d",  & ( color  ) ); 
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msid_ptr->Nom_Color  = Pixels [color] ; 

if  ( ( color  < 0 ) ||  ( color  > 128  ) ) 

tui_msg(  M_WHITE,  "The  nominal  color  parameter  is  out  of  range  %d", 
color  ) ; 

else 

color_count [color] ++; 

fscanf  ( ddf_ffp,  "%d",  & ( color  ) ) ; 
msid_ptr->Sta_Color  = Pixels [color] ; 

if  ( ( color  < 0 ) ||  ( color  > 128  ) ) 

tui_msg ( M_WHITE,  "The  static  color  parameter  is  out  of  range  %d", 
color  ) ; 

else 

color_count [color] ++; 

fscanf  ( ddf_ffp,  "%d",  £ ( color  ) ) ; 
msid_ptr->Ovr_Color  - Pixels [color] ; 

if  ( ( color  < 0 ) ||  ( color  > 128  ) ) 

tui_msg(  M_WHITE,  "The  override  color  parameter  is  out  of  range  Id", 
color  ) ; 

fscanf  ( ddf_ffp,  "%d",  £ ( color  ) ) ; 
msid_ptr->Dead_Color  - Pixels [color] ; 

if  ( ( color  < 0 ) ||  ( color  > 128  ) ) 

tui_msg(  M_WHITE,  "The  dead  color  parameter  is  out  of  range  %d", 
color  ) ; 

fscanf  ( ddf_ffp,  "%f",  £ ( msid_ptr->X_NDC_St  ) ); 

if  ( ( msid_ptr->X_NDC_St  < 0 ) | | ( ms i d_p t r - >X_NDC_S t > 100  ) ) 

tui_msg ( M_WHITE, 

"The  X coordinate  status  character  is  out  of  range"  ) ; 

fscanf  ( ddf_ffp,  "If",  £ ( msid_ptr->Y_NDC_St  ) ) ; 

if  ( ( ms id_pt r - > Y_NDC_S t < 0 ) | | ( msid_ptr->Y_NDC_St  > 100  ) ) 

tui_msg ( M_WHITE, 

"The  Y coordinate  status  character  is  out  of  range"  ) ; 

fscanf  ( ddf_ffp,  "%hd",  £ ( msid_ptr->Stat_Flag  ) ); 

if  ( ( ms id_pt r->St at_F lag  < 0 ) | | ( msid_jptr->Stat_Flag  > 1 ) ) 

tui_msg(  M_WHITE,  "The  status  character  flag  is  out  of  range"  ); 

fscanf  ( ddf_f fp,  "Id",  £ ( msid__ptr->Tab_Index  ) ); 

if  ( ( msid_ptr->Tab_Index  < 0 ) II  ( msid_ptr->Tab_Index  > 3000  ) ) 
tui_msg(  M_WHITE,  "The  tabular  entry  index  is  out  of  range"  ); 

fscanf  ( ddf_ffp,  "Id",  £ ( msid_ptr->Txt_Index  ) ) ; 

fscanf  ( ddf_ffp,  "Id",  £ ( msid_ptr->PBI_Indx  ) ); 

fscanf  ( ddf_ffp,  "Id",  £tmp  ) ; 

fscanf  ( ddf_f fp,  "Id",  £ ( msid_j?tr->hist_ind  ) ); 

fscanf  ( ddf_ffp,  "Id",  £ ( msid_ptr->Limit_Ind  ) ); 

if  ( ( msid_ptr->Limit_Ind  < -1  ) ||  ( msidjptr->Limit_lnd  > 3000  ) ) 
tui_msg(  M_WHITE,  "The  limit  sense  index  is  out  of  range"  ); 

msid_ptr->dddO_latch  - NO; 
msid_ptr->dddl_latch  - NO; 


msid_ptr++; 
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) 


* Determine  three  highest  frequency  colors  (2  Nominal,  1 Static,  hopefully) 
*/ 

one  - two  - three  * 0; 

for  (i=0;  i<129;  i++)  { 

if  (color__count  [i]  > color_count  [one]  ) { 

three  * two; 
two  * one; 
one  * i; 

} 

} 

/*  set  GC  color  index  to  FGC  index  */ 

GC_Index[one]  - 0; 

GC_ Index  [two]  - 1; 

GC  Index [three]  - 2; 


/* 

* Skip  ppl'  3 
*/ 

for  ( i » 0;  i < ppl_num;  i++  ) 
fscanf  ( ddf__f fp,  "%*47c"  ); 

/* 

* Initialize  color  count  array 
*/ 


for  (i*0;  i<129;  i++) 
color  count [i]-0; 


/* 

* Position  pointer  at  the  beginning  of  Limit  structure  and  read  into 

* memory  the  limit  structure. 

*/ 


Limit  - ( struct  limit_ent  * ) ( Msid  + entry_num  ) ; 

limit_ptr  = Limit; 

for  ( i * 0;  i < limit_num;  i++  ) { 

fscanf  ( ddf_ffp,  "%d",  & ( limit^ptr->Limt_Entr  ) ); 

fscanf  ( ddf_ffp,  "%hd",  & ( limit_ptr->Limt_Flag  ) ) ; 

if  ( ( limit_ptr->Limt_Flag  < 0 ) | 1 ( limit^jptr^Limt^Flag  > 1 ) ) 

tui_msg(  M_WHITE,  "The  limit  sense  flag  is  out  of  range"  ); 

fscanf  ( ddf_ffp,  "%lf",  & ( limit_ptr->Low_Limit  ) ); 
fscanf  ( ddf_ffp,  "%lf " , & < limit_pt r->Hi_Limit  ) ) ; 
fscanf  ( ddf_ffp,  "%d”,  & { color  ) ) ; 
limit_ptr->Lo_Color  * Pixels [color ] ; 

if  ( ( color  < 0 ) ||  ( color  > 128  ) ) 

tui__msg(  M_WHITE,  "The  low  limit  color  is  out  of  range"  ); 

else 

color_count [color] ++; 
fscanf  ( ddf_ffp,  ”%d",  & ( color  ) ); 
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limit_ptr->Hi_Color  - Pixels [color] ; 

if  ( ( color  < 0 ) II  ( color  > 128  ) ) 

tui_msg(  M_WHITE,  "The  high  limit  color  is  out  of  range"  ); 

fscanf  ( ddf_ffp,  "%hd",  & { limit_ptr->Crit_Flag  ) ) ; 

if  ( ( limit _ptr->Crit_Flag  < 0 ) | | ( limit_ptr->Crit_Flag  > 1 ) ) 

tui_msg  (M_WHITE,  "The  critical  limit  check  flag  is  out  of  range"); 

fscanf  ( ddf_f fp,  "%lf",  & ( limit_ptr->Crit_Low  ) ); 

fscanf  ( ddf_ffp,  "%lf",  & { limit_j>tr->Crit_Hi  ) ); 

fscanf  ( ddf_f fp,  "%d",  & ( color  ) ); 

limit_ptr->Cr_Lcolor  - Pixels [color] ; 

if  ( ( color  < 0 ) ||  ( color  > 128  ) ) 

tui__msg  (M_WHITE,  "The  critical  low  limit  color  is  out  of  range"); 

fscanf  { ddf_ffp,  "%d",  & ( color  ) ); 

limit_ptr->Cr_Hcolor  - Pixels [color] ; 

if  ( ( color  < 0 ) ||  ( color  > 128  ) ) 

tui_msg(M_WHITE,  "The  critical  high  limit  color  is  out  of  range"); 

limit_ptr++; 


* Determine  two  highest  frequency  colors  (1  op  high,  1 op  low,  hopefully) 


one  - two  - 0; 

for  (i-0;  i<129;  i++)  { 

if  (color_count  [i]  > color_count [one] ) { 
two  - one; 
one  - i; 

> 

) 

/*  set  GC  color  index  to  FGC  index  */ 

if  (GC_Index [one]  — -1) 

GC_Index [one]  * 3; 

/*  if  no  color  assigned  to  two,  then  there  is  only  1 color  for  operational 
high  and  low  */ 

if  (two  > 0) 

if  (GC_Index[two]  — -1)  { 

GC_Index [two]  » 4; 

} 


* Initialize  font  count  arrays 


for  (i-0;  i <MAX_FONT S ; i++) 
font_count [i]-0; 


/* 

★ 

★ 


*/ 


Position  pointer  at  the  beginning  of  Tabular  structure  and  read  into 
memory  tabular  structure. 


Mm 
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Tab  = ( struct  tabular_ent  * ) ( Limit  + limit_num  ) ; 

tab_ptr  - Tab; 

for  ( i - 0;  i < tab_num;  i++  ) { 

fscanf  ( ddf_ffp,  "%d",  & ( tab _ptr->Tab_Entry  ) ); 
fscanf  ( ddf_ffp,  "%d",  & ( tab_ptr->Data_Width  ) ); 

if  ( ( tab_ptr->Data_Width  < 0 ) II  ( tab_ptr->Data_Width  > 100  ) ) 

tui_msg<  M_WHITE,  "The  data  field  width  is  out  of  range"  ); 

fscanf  ( ddf_f fp,  "%hd",  S ( tab_ptr->Dig_Right  ) ); 

if  ( ( tab_ptr->Dig_Right  < 0 ) II  ( tab_ptr->Dig_Right  > 100  ) ) 

tui_msg (M_WHITE, 

"The  digits  right  of  the  decimal  exceeds  the  limit".)  ; 

fscanf  ( ddf_ffp,  "%hd",  & ( tab_ptr->Just_Flag  ) ); 

if  ( ( tab_ptr->Just_Flag  < 0 ) II  ( tab_ptr->Just_Flag  > 1 ) ) 

tui_msg ( M_WHITE,  "The  truncate/ justification  flag  is  incorrect"  ) 

fscanf  ( ddf_f fp,  ”%f",  fifxl) ; 

if  < < fxl  < 0 ) II  ( fxl  > 100  ) ) 

tui_msg(  M_WHITE,  "The  starting  X coordinate  is  out  of  range"  ); 

fscanf  ( ddf_f fp,  "%f",  fifyl); 

if  ( ( fyl  < 0 ) II  ( fyl  > 100  ) ) 

tui_msg(  M_WHITE,  "The  starting  Y coordinate  is  out  of  range"  ); 

fscanf  ( ddf_ffp,  "%s",  font_style  ) ; 
fscanf  ( ddf_ffp,  "%d",  &horz_size  ) ; 
fscanf  ( ddf_ffp,  "%d",  &vert_size  ) ; 

/*  convert  coordinates  to  X pixel  coordinates  */ 

t ab_pt r - >X_XC  - (int)  (fxl  * factor_x) ; 
t ab_pt r - > Y_XC  = (int)  ((100.0  - fyl)  * factor_y) ; 

tab_ptr->font_num  = 

font_num(disp_num,  font_style,  horz_size,  vert_size) ; 


/* 

*/ 


font_count [tab_ptr->font_num] ++; 


tab_ptr->redraw_f lag  = NO; 
tab_ptr++; 


/* 

* Determine  highest  frequency  font 
one  = - 1 ; 

for  (i=0;  i<MAX_FONTS;  i++)  ( 

if  ( 


*/ 


) 
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/* 

* Position  pointer  at  the  beginning  of  Template 

* memory  template  structure. 

*/ 


structure  and  read 


into 


Tmplt  - ( struct  plot_tmplt  * ) ( Tab  + tab_num  ) ; 

tmplt_jptr  - Tmplt; 


for  ( i “ 0;  i < tmplt_num;  i++  ) { 

/*  read  in  a single  plot  (template)  record  */ 


fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp, 
fscanf  ( ddf_ffp. 


"%ld",  & ( tmplt_ptr->tmplt— entr  ) 
"%hd",  & ( tmplt__ptr->tmplt_type  ) 
”%f",  &fxl)  ; 

"%f",  &fy2); 

"%f",  &fx2); 

"%f",  fifyl); 

"%s",  ( tmplt_ptr->tmplt_nam  ) ); 


) ; 
) ; 


/* 

* Calculate  the  pixel  coordinates  of  the  upper  left  corner  of  the  plot 

* bounding  box  and  the  dimensions  of  the  plot  bouunding  box  for  use 

* in  placing  the  scrolled  window  widget. 

*/ 


tmplt_ptr->bb_xul  - (short)  (fxl  * factor_x) ; 

tmplt _j>tr->bb _yul  - (short)  ((100.0  - fyl)  * factor_y) ; 

wwidth  - fx2  - fxl; 
wheight  - fyl  - fy2; 

tmplt_ptr->bb_width  * (short)  (wwidth  * factor_x) ; 
tmplt_ ptr->bb_height  - (short)  (wheight  * factory) ; 

/* 

* Calculate  the  dimensions  of  the  drawing  area  and  the  visible 

* drawing  area. 

*/ 

/*  RLK  10/12/90  Correct  to  properly  adjust  for  the  width  of  the  scroll  bars 
(remove  these  hard-coded  constants)  */ 

tmplt_ptr->drw_width  - tmplt_ptr->bb_width; 
tmplt_ptr->drw_height  * tmplt_ ptr->bb_height ; 

/*  for  scrolled  window 

tmplt _pt  r->drw_width  - tmplt_ptr->bb_width  - 15; 
tmplt_ptr->drw__height  - tmplt  ptr->bb  height  - 15; 

*/ 

/*  This  code  will  double  the  size  of  the  drawing  area 

tmplt _j?tr->drw_width  - 2 * (tmplt_ptr->bb_width  - 15); 
tmplt _j?tr->drw_height  - 2 * (tmplt_ptr->bb_height  - 15); 


/* 

* Calculate  world  coordinate  transformation  factors  with  respect 

* to  the  pixel  size  of  the  drawing  area.  Notes:  The  1.0  constant 

* subtracted  to  prevent  transformation  factors  from  being  calculated 

* for  a drawing  area  1 pixel  larger  which  could  result  from  truncation 
*/ 
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tmplt__ptr->org_f  actor_x  =*  tmplt_ptr->f actor_x  = (double) 

( (wwidth  * factor_x  - 1.0)  / 100.0); 

tmplt— ptr->org_factor_y  - tmplt_ptr->f  actor__y  “ (double) 

( (wheight  * factor_jy  - 1.0)  / 100.0); 


/* 

* Set  zoom  focus  point  offset  values  to  zero. 

*/ 

tmplt_ptr->of f set_x  - 0; 
tmplt_ptr->of f set_y  - 0; 

/*  RLK  10/12/90  Correct  to  properly  adjust  for  the  width  of  the  scroll  bars 
(remove  these  hard-coded  constants)  */ 


/*  for  scrolled  window 

tmplt_ptr->factor_x 

tmplt__ptr->factor_y 

*/ 


(double) 

((wwidth  * factor_x  - 15.0)  / 100.0); 
(double) 

((wheight  * factor_y  - 15.0)  / 100.0); 


/*  RLK 


*/ 


10/17/90  This  code  will  adjust  the  transformation  factors  to 
utilize  a doubled  drawing  area. 
tmplt_ptr->factor_x  - (double) 

((2.0  * (wwidth  * factor_x  - 15.0))  / 100.0); 
tmplt_jptr->factor__y  - (double) 

((2.0  * (wheight  * factor_y  - 15.0))  / 100.0) 


/* 

* Increment  the  template  record  pointer 

*/ 


tmplt_ptr++; 

} 

/* 

* Position  pointer  at  the  beginning  of  History  tab  structure  and  read  into 

* memory  htab  structure. 

*/ 


Htab  = ( struct  hist_tab  * ) ( Tmplt  + tmplt_num  ) ; 

htab_ptr  = Htab; 

print f ( " NUMBER  OF  HISTORY  TABS  IS  %d\n" , htab_num) ; 

for  ( i = 0;  i < htab_num;  i++  ) { 

fscanf  ( ddf_ffp,  f,%ld",  &htab_ ptr->htab_entr  ); 

fscanf  ( ddf_ffp,  "%d",  &htab_pt  r->time_cntr  ) ; 

fscanf  ( ddf_ffp,  "%s",  temp  ); 

htab_ptr->llimit_f lag  * temp[0]; 

fscanf  ( ddf_f fp,  "%s"f  temp  ) ; 

htab_jptr->ulimit_f  lag  * temp[0]; 

fscanf  ( ddf_ffp,  "%s",  htab_pt r->f ile_name  ) ; 

htabj)tr->value  = NULL; 

htab_ptr->next_ptr  = htab_ptr  + 1; 

htab_ptr++; 

} 

if  ( htab_num  > 0 ) 

( Htab  + htab_num  - 1 ) ->next_ptr  = NULL; 


readfg.c 


Position  pointer  at  the  beginning  of  Mtext  structure  and  read  into 
memory  the  mtext  structure. 


Mtext  = ( struct  mtext_ent  * ) ( Htab  + htab_num  ) ; 

mtext_ptr  - Mtext; 

for  ( i — 0;  i < mltxt_num;  i++  ) { 

fscanf  ( ddf_ffp,  "%d",  & ( mtext_ptr->Mult_Entr  ) ) ; 
fscanf  ( ddf_ffp,  "%hd",  & ( mtext_ptr->Num_Values  ) ) ; 

k - 0; 

getc  ( ddf_ffp  ) ; 
do  { 

local_text [k]  - getc  ( ddf_f fp  ) ; 
k++; 

} while  ( k < 6 ) ; 

strncpy  ( mtext_ptr->Def_Text,  local_text,  6 ); 

text_ptr  - ( struct  val_txt  * ) 

calloc (mtext_ptr->Num_Values,  sizeof (struct  val 

if  ( text_ptr  — NULL  ) { 

tui_msg (M_YELLOW,  "Error  %d  on  calloc  of  text  information  " 
f close  ( ddf_ffp  ) ; 
return  ( -1  ) ; 

} 

mtext _ptr->text_ptr  - text_ptr; 

for  ( j - 0;  j < mtext_ptr->Num_Values;  j++  ) { 

fscanf  ( ddf_f fp,  "%d",  & ( text_ptr->Value  ) ); 
k - 0; 

getc  ( ddf_ffp  ) ; 
do  ( 

local_text [k]  - getc  ( ddf_f fp  ) ; 
k++; 

} while  ( k < 6 ) ; 

strncpy  ( text_ptr->Text,  local_text,  6 ); 
text_ptr++; 

} 

mtext_pt  r++  ; 

) 


Position  pointer  at  the  beginning  of  Pbi  structure  and  read  into 
memory  the  Pbi  structure. 


Pbi  - ( struct  pbi_ent  * ) ( Mtext  + mltxt_num  ) ; 

pbi_ptr  - Pbi; 


for  ( i - 0;  i < pbi_num;  i++ 
fscanf  ( ddf_f fp,  "%*19c" 
fscanf  ( ddf_ffp,  "%d",  & 
fscanf  ( ddf_ffp,  "%*25c" 
fscanf  ( ddf_ffp,  "%d",  & 


) { 


) ; 

( pbi _pt r [ i ] . ddd_indx  ) 

) ; 


) ; 


( pbi _ptr [i] ,grph_indx  ) ); 


txt ) ) ; 
errno) 


fscanf  ( ddf_ffp,  "%d",  & ( pbi_ptr(i] .grph_color  ) ); 

fscanf  ( ddf_ffp,  "%*29c"  ); 

fscanf  ( ddf_f fp,  "%d",  & ( pbi_ptr [i] .num_label3  ) ); 


pbi_label_ptr  - ( struct  label_indices  * ) 

calloc (pbi_ptr [i] .num_labels,  sizeof (struct  label_indices) ) ; 


pbi  ptr [i] . grph_color  +“  COLOR_OFFSET; 

if  ( pbi_label_ptr  --  NULL  ) { 

tui_msg ( M_YELLOW,  "Error  %d  on  calloc  of  pbi",  errno  ); 
f close  ( ddf_ffp  ) ; 
return  ( -1  ) ; 


pbi_ptr [i] . label_ptr  - pbi_label_ptr ; 


/* 

* Read  in  the  label  indices 

*/ 


for  ( j «■  0 ; j < pbi  ptr[i]  . num_labels;  j++  ) { 

fscanf  ( ddf_ffp,  "%hd”,  & ( pbi_label_ptr->index  ) ); 
pbi_l abe l_pt  r ++ ; 

} 


/* 

* 

*/ 


/* 

★ 

*/ 


/* 

* 

*/ 


/* 

★ 

*/ 


/* 

* 


Read  in  the  length  of  the  message 

fscanf  ( ddf_ffp,  ”%d”,  &mesg_len  ) ; 
fscanf  ( ddf_ffp,  n%*c",  1 ); 

Skip  past  the  message 


for  ( j = 0;  j < mesg_ len;  j++  ) 
fscanf  ( ddf_ffp,  ,f%*cMf  1 ); 


Read  in  the  number  of  dependent  MSIDs 


fscanf  ( ddf_ffpr  "%d”,  &dep_msids  ) ; 
fscanf  ( ddf_ffp,  "%^c”,  1 ); 


Skip  past  all  of  the  dependent  MSIDs 


if  ( dep_msids  > 0 ) { 

for  ( j - 0;  j < dep_msids;  j++  ) { 

for  ( k = 0;  k < MS ID_LENGTH ; k++  ) 
fscanf  ( ddf_ffp,  1 ) ; 

fscanf  ( ddf_ffp,  1 ); 

} 

} 


Read  the  new  line  character 
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fscanf  ( ddf_ ffp,  "%*c",  1 ) / 

} /*  end  reading  PBIs  */ 

/* 

* Call  read_fgr  to  read  in  all  the  foreground 

* graphical  records  from  the  fg  DDF  file. 

*/ 


Fg_rec  .graph_num  - icon_num; 

Fg_rec .graph_rec  - ( struct  fgr_record  * ) ( Pbi  + pbi_num  ); 

if  (Fg_rec  .graph__num  > 0) 

error  = read__fgr  ( disp__num,  ddf_ffp  ) ; 

if  ( error  — -1  ) { 

fclose  ( ddf_ffp  ) ; 
return  ( -1  ) ; 

} 

/* 

* Position  pointer  at  the  beginning  of  ddd  structure  and  read  into 

* memory  ddd  structure. 

*/ 

Ddd  * ( struct  ddd_ent  * ) ( Fg_rec  .graph_rec  + icon_num  ); 

ddd_ptr  - Ddd; 

for  ( i - 0;  i < ddd_num;  i++  ) { 

fscanf  ( ddf_f fp,  "%hd",  & ( ddd_j5tr->ddd_entr  ) ); 
fscanf  ( ddf_ffp,  "%d",  Scolor) ; 
ddd_jptr->zero_val_cor  - Pixels  [color]  ; 
fscanf  < ddf_ffp,  M%d",  &color); 
ddd_ptr->one_val_cor  - Pixels [color] ; 
fscanf  ( ddf_ffp,  "%hd",  & ( ddd_ptr->zero_locked  ) ); 
fscanf  ( ddf_ffp,  "%hd”,  & ( ddd_ptr->one_locked  ) ); 
fscanf  ( ddf_f fp,  "%d",  & ( ddd_j?tr->dddjmsids  ) ); 

ddd  ptr->ddd  app  pt r » (short  *) 

calloc  <ddd_j>tr->ddd_msids,  sizeof  (short)  ) ; 

if  ( ddd_ptr->ddd_appjptr  «-  NULL  ) [ 

tui_msg(  M_YELLOW,  "Error  %d  on  ddd  append  records  calloc”,  errno  ) 
fclose  ( ddf^ffp  ) ; 
return  ( -1  ) ; 

> 

loc_ddd_aptr  - ddd_pt r->ddd_app_pt r ; 

for  ( j - 0;  j < ddd_j5tr->ddd_msids;  j++  ) { 

fscanf  ( ddf_ffp,  "%hd",  loc_ddd_aptr  ); 
loc_ddd_aptr++; 

} 

ddd_jpt  r++ ; 

} 


/* 

* Position  pointer  at  the  beginning  of  scale  structure  and  read  into 

* memory  scale  structure. 

*/ 
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Scale  - ( struct  scale_ent  * ) ( Ddd  + ddd_num  ) ; 

scale_j5tr  - Scale; 

for  ( i =*  0;  i < scale_num;  i++  ) { 

fscanf  ( ddf_ffp,  "%hd",  & ( scale_ptr->scale_entr  ) ); 

fscanf  ( ddf_ffp,  "%s"f  temp  ) ; 

scale_ptr->axis_type  « temp[0]; 

fscanf  ( ddf__ffp,  " %s",  temp  ) ; 

scale_pt r->scale_type  * temp[0]; 

fscanf  ( ddf_ffp,  "%lf",  & ( scale_j>tr->low_scale  ) ); 

fscanf  ( ddf_ffp,  "%lf",  & ( scale _ptr->high_scale  ) ); 

fscanf  ( ddf_ffp,  "%f",  & ( scale_ptr->low_scale_x  ) ); 

fscanf  ( ddf_ffp,  "%f",  & ( scale_ptr->low_scale_y  ) ); 

fscanf  ( ddf_f fpr  "%f ",  &high_scale_x  ); 

fscanf  < ddf_f fp,  "%frtr  &high_scale _y  ); 

scale_ptr->scale_x_dif  f * high_scale_x  - scale_ptr->low_scale_x; 
scale_ptr->scale_y_diff  - high_scale_y  - scale_jptr->low_scale_y; 
scale  j>tr->msid__scale_range  - scale_pt r->high_scale  - 

scale_ptr->low__scale; 

scale_ ptr++; 

) 

/* 

* Position  pointer  at  the  beginning  of  labels  structure  and  read  into 

* memory  labels  structure. 

*/ 


Lab  ■ ( struct  label_ent  * 
label_ ptr  **  Lab; 

for  ( i - 0;  i < label_num; 
fscanf  ( ddf_ffp,  "%d", 
fscanf  ( ddf__ffp,  "%s"f 
fscanf  ( ddf_f fp,  "%d", 
fscanf  { ddf_ffp,  "%d". 


) ( Scale  + scale_ num  ) ; 


i++  ) { 

& ( label_ptr->lbl_entr  ) ) ; 

font_style  ) ; 

&horz_size  ) ; 

&vert  size  ) ; 


label_jptr->f  ont_jium  - 

font_num(disp_num,  font_style,  horz_size,  vert_size) 


fscanf  ( ddf_ffp,  ”%d,?,  Scolor)  ; 
label_j?tr->lbl_color  * (long)  Pixels [color ] ; 
fscanf  ( ddf_ffp,  "%f",  &fxl) ; 
fscanf  ( ddf_f fp,  "%f",  &fyl) ; 

fscanf  ( ddf_ffp/  "%d",  & ( label_ptr->label_len  ) ) ; 


label_ ptr->st rt__x_j50S  - (short)  (fxl  * factor_x)  ; 
label_ptr->strt_y_j?os  - (short)  ((100.0  - fyl)  * factor_y) ; 

label_ptr->label  * calloc ( <label_ptr->label_len  + 1),  sizeof (char) ) ; 


if  ( label_ptr->label  “ NULL  ) { 

tui_msg (M_YELLOW, 

"Error  %d  on  calloc  of  label  information  ",  errno) ; 
fclose  ( ddf_ffp  ) ; 
return  ( -1  ) ; 


loc_lbl_ptr  = label_jptr->label; 

*loc_lbl_ptr  * NULL; 

fscanf  ( ddf_ffp,  "%c" , loc_lbl__ptr  ) ; 

for  ( j - 0;  j < label_j3tr->label_len;  j++  ) { 


> 
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fscanf  ( ddf_ffp,  "%c",  loc_lbl_ptr  ); 
loc_  lbl_ptr++; 


*loc_lbl_ptr  - NULL; 
label__ptr++; 

} 

/* 

* Close  DDF  file 
*/ 

fclose  ( ddf_ffp  ) ; 

/* 

* Call  the  history  tab  initialization  routine. 

*/ 

if  ( htab_num  > 0 ) 

ht_init  (entry_num,  htab_num)  ; 

/* 

* Allocate  memory  for  plot  file  entries 
*/ 

Plot^info^ ptr  - ( struct  plot_ptrs  * ) 

calloc  { tmplt_num,  sizeof  { struct  plot_ptrs  ) ) ; 

if  { Plot_info_ptr  --  NULL  ) { 

tui_msg(  M_YELLOW,  "Error  %d  on  calloc  of  plot  ptr  struct  ”,  errno  ); 
return  ( -1  ) ; 

} 

/* 

* Read  the  plot  files. 

*/ 

Nb r_of_plots  - tmplt__num; 

for  ( i » 0;  i < tmplt_num;  i++  ) { 

plot_jptr  - Plot_inf  o_j?tr  + i; 
plot_ptr->plot_pos  - Tmplt  + i; 
plot_ptr->redraw_f lag  - NO; 

error  = read_j>lt  (disp_num,  plot^ptr)  ; 

if  (error  I-  0) 

strcpy  ( plot_ptr->plot  name,  "NOFILEZZ"  ); 

} 


} 


D (print f ( "END  readfg\n” ) ) ; 
return (total_nbr_fgrecords)  ; 


* MODULE  NAME:  redraw. c 


★ 

* This  function  is  called  to  redraw  the  display  in  case  of  an 

* Expose  event  (i.e.  if  the  window  is  exposed  after  being  wholly  or 

* partially  hidden) . 

* 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 

★ 


★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

★ Ronnie  Killough  - Software  Engineering  Section 

★ Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 
*********★**★*********★*****★*************************************************/ 


#include  <stdio.h> 
♦include  <X11/Xlib.h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 
♦include  <DDplot.h> 
♦include  <wex/wex.h> 


extern 

struct 

dirt__shmemory 

*Dm_Address ; 

/* 

Ptr  to  DM  shared  memory. 

*/ 

" extern 

struct 

plot_ptrs 

*Plot_inf  o_j?tr ; 

/* 

Ptr  thru  plot  ptr  files. 

*/ 

extern 

short 

Nbr__of_plots; 

/* 

Number  of  plots  to  display. 

*/ 

int  redraw (disp_num,  ulxf  uly,  lrx,  Iry) 


short 

disp_num; 

/* 

display  number 

of  the  exposed  display*/ 

short 

ulx,  uly,  lrx,  lry; 

/* 

coordinates  of 

the  redraw  box  */ 

int  i ; 

/* 

loop  counter 

*/ 

D (printf ("START  redraw\n") ) ; 

/* 

* Redraw  the  background 

★ 

* If  the  expose  rectangle  is  over  75%  of  the  full  display  window, 

* redraw  the  entire  display.  Else  redraw  the  exposed  box  only. 

*/ 

/* 

expose^area  = (lrx  - ulx)  * (lry  - uly) ; 
window_area  * Dm_Addre ss->di splay [disp_n urn] . si ze_x 

* Dm__Address->di  splay  [disp_num]  . size_y; 

if  (expose_area  >=  (window_area  * 0.75)) 
updtbg  (disp_num)  ; 

else 

*/ 

redwbg (disp_num,  ulx,  uly,  lrx,  lry) ; 


re  draw. c 


Redraw  foreground  text  and  history  tabs 
redwfg  (di3p_num,  ulx,  uly,  lrx,  lry)  ; 

Redraw  foreground  graphics 
/*rdwfgr (disp_num) ; * / 

If  any  overlays  are  present,  redraw  them. 

for  ( i * 0;  i < Nbr^of^ plots ; i++  ) 

if  { (Plot_infoj>tr  + i)  ->ovr_f  Ig  — YES  ) 
draw_ovl  ( (Plot_inf o_pt r + i)  ) ; 

D (printf ("END  redraw\n" ) ) ; 


return  (0) ; 
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* MODULE  NAME:  redwbg 


* ★ 


★ 

* This  function  is  called  to  redraw  the  background  primitives  in  case  of  an 

* Expose  event  on  the  display  window. 

* 


* 

* DEVELOPMENT  NOTES: 

★ 

* o Calls  to  the  intersect  routine  (and  its  subordinates)  have  been 

* minimized  by  including  the  code  directly  in  this  routine  to  eliminate 

* the  overhead  of  repetitive  function  calls. 

* o Ellipses  have  not  been  tested. 

* o Curves  have  been  implemented  with  line  segments . See  comment 

* accompanying  code. 

* o Vector  text  has  been  implemented  as  normal  text  strings. 

* o Arcs  have  not  been  fully  implemented  and  should  not  be  used  with 

* this  version  of  DM/DD. 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 

★ 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 
****************************************************************************** 


♦include  <stdio.h> 
♦include  <X11/Xlib.h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 
♦include  <wex/EXmsg ,h> 


extern 

struct 

dm  shmemory  *Dm_Address; 

/* 

ptr  to  DM  shared  memory 

*/ 

extern 

double 

Horz  Size [MAX  FONTS]; 

/* 

horizontal  fixed  font  sizes 

*/ 

extern 

double 

Vert_Size [MAX_FONTS] ; 

/* 

vertical  fixed  font  sizes 

*/ 

extern 

struct 

bg_r e c s Bg_Re  c ; 

/* 

background  records 

*/ 

redwbg (disp_num,  ulx,  uly,  lrx,  Iry) 

short  disp_num;  /*  display  number  of  exposed  display  window  */ 


{ 


short  ulx,  uly,  lrx,  Iry;  /*  coordinates  of  the  exposed  area 


XPoint 

XPoint 

Display 

Window 

GC 

XGC Values 


points [100] ; 
point ; 
*xdisplay ; 
xwindow; 
gc; 

*gc_val; 


Font 


font ; 


struct  graph_record 
struct  rec  header 


/*  pointer  to  coord,  point  structure 
/*  pointer  to  coord,  point  structure 
ptr  to  X display  struct  for  display 
XID  of  display  window 
graphics  context  in  shared  memory 
/*  ptr  to  gc  values  struct  in  shd  mem 
/*  X Font  ID  of  vector  text  font 


/* 

/* 

/* 


*bg_graph_pt  r ; 
*bg_t ext_pt r ; 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/*  ptr  thru  bg  graphics  records  */ 
/*  ptr  thru  bg  text  records  */ 


struct 

vtext_record 

*vtext_jptr; 

/*  ptr  thru  vector  text  records 

*/ 

struct 

graph_pts 

* po  ly_j>  t s_p  t r ; 

/*  ptr  thru  polygon  vertices 

*/ 

struct 

graph_pts 

*curve  jpt s_pt  r ; 

/*  ptr  thru  array  of  curve  pts 

*/ 

struct 

line_record 

*line_ptr ; 

/*  ptr  thru  line  records 

*/ 

struct 

rectangle_record 

*rect_ptr; 

/*  ptr  thru  rectangle  records 

*/ 

struct 

polygon_record 

*poly_ptr; 

/*  ptr  thru  polygon  records 

*/ 

struct 

circle_record 

*circle_ptr; 

/*  ptr  thru  circle  records 

*/ 

struct 

arc_ record 

*arc_ptr ; 

/*  ptr  thru  arc  records 

*/ 

struct 

ellipse_record 

*ellipse_ptr; 

/*  ptr  thru  ellipse  records 

*/ 

struct 

curve_record 

*curve_ptr; 

/*  ptr  thru  curve  records 

*/ 

float 

x_scale,  y_scale 

/*  hold 

the  aspect  ratio  information 

*/ 

smajor,  sminor, 

/*  axes 

for  ellipse  and  circle 

*/ 

radius. 

/*  temp 

holder  for  radius 

*/ 

anglel,  angle2; 

/*  temp 

holder  for  graphical  angle 

*/ 

unsigned  long  gc_mask; 

/*  mask 

for  GC  changes 

*/ 

int 

j,  k,  w. 

/*  loop  count  variables 

*/ 

mminor,  mmajor, 

/*  maj/min  axes  for  cir/arcs/ellipses 

*/ 

redraw_f lag. 

/*  set  if  redraw  of  graphic  needed 

*/ 

pt_cnt , 

/*  loop 

counter 

*/ 

x_min,  x_max, 

/*  used 

in  calculating  bounding  box 

*/ 

y_min,  y_max; 

/* 

intersections . 

*/ 

/* 

* Setup  local  display  and  window  variables. 

V 


xdisplay  - Dm_Address->xdisplay [disp_num] ; 
xwindow  - Dm_Address-> window [disp_num] ; 
gc  - Dm_Address->gc  [disp_num]  ; 
gc_val  * &Dm_Address->gc_val  [disp__num]  ; 


/* 

* Loop  through  bg  graphical  records  in  memory. 

* If  the  graphic  intersects  the  exposed  area,  redraw 

* it  on  the  display  window. 

*/ 


i - 0; 

kg_<?raph_J?tr  * Bg_Rec  .graph_rec; 
while  (i  < Bg_Rec . graph_num)  { 

switch  (bg_graph_ptr->graph_typ)  { 
case  LINE: 

line_ptr  - (struct  line_record  *)  bg_graph_ptr->graph_ptr ; 
redraw_flag  * NO; 


/* 

* 

*/ 


Check  if  either  endpoint  of  the  line  lies  in  the  expose  region 


^ (ulx  <”  line ptr— >pointl_x  &&  lrx  >“  line ptr— >pointl  x 

&&  uly  <-  line_ptr->pointl_y  &&  lry  >«  line_ptr->pointl  y) 
redraw_f lag  - YES; 

else  if  (ulx  <=  line_ptr->point2_x  &&  lrx  >-  line_ptr->point2_x 

&4  uly  <-  line_ptr->point2_y  &&  lry  >=  line_ptr->point2  y) 
redraw_flag  - YES; 


/* 

★ 

*/ 


/* 

★ 

*/ 


Check  if  line  is  horizontal  and  crosses  the  expose  area 


else  if  <line_ptr->pointl_y  ==  linejptr->point2_y)  { 

if  (line_j?tr->point2_x  > line_pt r->pointl_x)  { 
x_min  = max (line_ptr->point l_x,  ulx)  ; 
x_max  = min  (line_j?tr->point2_x,  lrx); 

} else  { 

x_min  = max (line_ptr->point2_x,  ulx)  ; 
x_max  = min  (line_ptr->pointl_x,  lrx); 

) 

if  (x_min  <=  x_max  &&  line_pt r->pointl_y  >*  uly 
&&  line_ptr->pointl_y  < lry) 
redraw_flag  * YES; 


Check  if  line  is  vertical  and  crosses  the  expose  area 


} else  if  (line_jptr->pointl_x  -«  line_ptr->point2_x)  { 

if  ( line _pt r->point2_y  > line_ptr->pointl_y)  { 
y_min  - max (line_ ptr->point l_y,  uly); 
y_max  - min  (line_ptr->point2_y,  lry); 

} else  { 

y_min  - max ( line_ptr->point2_y,  uly); 
y_max  - min (lineup  tr->po in tl_y,  lry) ; 

) 

if  (y__min  O y__max  &&  line_ptr->pointl_x  >-  ulx 
&&  line_j?tr->pointl_x  < lrx) 
redraw__flag  - YES; 


Line  is  not  verticle  nor  horizontal.  Check  if  the 
line  intersects  any  edge  of  the  exposed  area. 


} else  { 

points [0] .x 
points [0] . y 
points [ 1] . x 
points [1] .y 


line_ ptr->pointl_x; 
1 i ne_p  t r - >po in t l^y ; 
line_ptr->point2_x; 
line_ptr->point2_jy; 


redraw^f lag 

} 


int_ln(ulx,  uly,  lrx,  lry,  points,  2) ; 


If  the  redraw  flag  has  been  set  then 
set  up  the  line  attributes  and  draw  it. 


if  (redraw_flag  ” YES)  { 

/*  set  up  the  graphics  context  for  this  line  */ 

if  (gc_mask  = set_gc  (xdisplay,  gc,  gc_val,  line_j?tr->graph_col, 

line_ptr->line_type,  line_pt  r->line_wdth, 
NO_CHANGE,  NO_CHANGE,  NO_CH ANGE , NO_CHANGE) ) 
XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 
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/*  draw  the  line  */ 

XDrawLine (xdisplay,  xwindow,  gc, 

line  _ptr->pointl_x,  line_ptr->pointl_y, 
line _ptr->point2_x,  line_ptr->point2_y) ; 


break; 


/* 

* 

*/ 


case  RECTANGLE : 

rect_ptr  - (struct  rectangle_record  *)  bg_graph_ptr->graph_ptr ; 
Check  if  the  rectangle  intersects  the  exposed  area. 


x_min  - max (rect_ptr->ul_x,  ulx) ; 

x_max  - min (rect_ptr->ul_x  + rect_ptr->width  - 1,  lrx) ; 
y_min  - max (rect_ptr->ul_y,  uly)  ; 

y_max  - min (rect_ptr->ul_y  + rect_ptr->height  - 1,  lry) ; 


/* 

* If  the  rectangle  intersects  the  redraw  window 

* then  set  up  the  rectangle  attributes  and  draw  it. 
*/ 


if  ( x_min  O x_max  4 4 y_min  <-  y_max  ) ( 

/*  set  up  the  graphics  context  for  this  rectangle  */ 

if  (gc_mask  — set_gc (xdisplay,  gc,  gc_val,  rect_ptr->graph_col, 

rect_ptr->line_type,  rect_ptr->line_wdth, 
rect_ptr->pat_type,  rect_ptr->pat_sizex, 
rect_ptr->pat_sizey,  NO_CHANGE) ) 

XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 

/*  draw  rectangle  even  if  have  fill  pattern,  since 
XFillRectangle  doesn't  draw  the  complete  path  */ 

XDrawRectangle (xdisplay,  xwindow,  gc, 

rect _ptr->ul_x,  rectjptr->ul_y, 
rect_jptr->width,  rect_ptr->height) ; 

/*  if  pattern  type  indicates  a fill  pattern,  fill  rectangle  */ 

if  (rect_ptr->pat_type) 

XFillRectangle (xdisplay,  xwindow,  gc, 

rect_ptr->ul_x,  rect_ptr->ul_y, 
rect_ptr->width,  rect_ptr->height) ; 

} /*  end  of  if  redraw  */ 

break; 


case  POLYGON: 


poly_ptr  « (struct  polygon_record  *)  bg_graph_ptr->graph_ptr; 


poly_J5t3_ptr  - 
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po lyj pt r->poly_ pt s_pt  r ; 


/* 

* Set  up  the  points  array. 

*/ 

for  (w  » 0;  w < poly_pt r->nmbr__pts ; w++)  { 

points  [w]  .x  = poiyj>tsj)tr->point__x; 
points [w] .y  = polyjpts_ptr->point_y; 

poly_pts_j>tr++; 

} ~ ^ 


/* 

* Check  if  any  of  the  points  are  inside  the  exposed  area. 

*/ 


pt_cnt  = 0 ; 
redraw_flag  - NO; 

while  (redraw_f lag  --  NO  &&  pt_cnt  < poly_ptr->nmbr _pts)  { 

if  (points [pt_cnt] .x  > ulx  &&  points [pt_cnt] . x < lrx 

&&  points [pt_cnt] .y  > lry  &&  points [pt_cnt] . y < uly) 
redraw__flag  - YES; 

pt_cnt++; 

} 


/* 

* Check  if  any  of  the  line  segments  intersect 

* the  expose  region. 

*/ 


if  ( ! redraw_f lag) 

redraw_flag  - int__ln(ulx,  uly,  lrx,  lry,  points, 

poly_ptr->nmbr_pts) ; 


/* 

* * If  the  polygon  intersects  the  redraw  window 

* then  set  up  the  polygon  attributes  and  draw  it. 
*/ 


if  (redraw_f lag)  { 

/*  set  up  the  graphics  context  for  this  polygon  */ 

if  (gc_ mask  - set_gc (xdisplay,  gc,  gc_val,  poly_j>t  r->graph_col, 

poly_j>tr->line_type,  poly_jptr->line_wdth, 
poly_ptr->pat_type,  poly__ptr->pat_sizex, 
poly_ptr->pat_sizey,  NO__CHANGE)  ) 

XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 

/*  RLK  9/10/90  Assuming  all  points  are  relative  to  origin  (depends  on 

how  the  Display  Builder  generates  a polygon  record.  This 
polygon  code  was  tested  on  hand-generated  data  files,  so 
this  may  not  be  a correct  assumption  */ 

/*  draw  the  polygon  */ 

XDrawLines (xdisplay,  xwindow,  gc,  points, 

poly_ptr->nmbr_jpts,  CoordModeOrigin)  ; 

/*  RLK  9/10/90  Assuming  the  polygon  is  non-complex  so  will  use  faster  fill 
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algorithm.  May  be  a bad  assumption.  */ 

/*  if  pattern  type  indicates  a fill  pattern,  fill  polygon  */ 

if  ( po ly_pt r->pa t_t ype ) 

XFillPolygon (xdisplay,  xwindow,  gc,  points, 

poly_ptr->nmbr_pts,  Nonconvex, 
CoordModeOrigin)  ; 

} /*  end  of  if  redraw  */ 

break; 


case  CIRCLE: 

/*  setup  local  pointer  to  circle  record  */ 

circle__ptr  = (struct  circle_record  *)  bg_graph_ptr->graph_ptr ; 


/* 

* Check  if  circle's  bounding  box  intersects  the  expose 

* rectangle.  (This  isn't  the  most  accurate  method  of 

* determining  intersection  of  a circle  and  a rectangle, 

* but  it  is  fast.) 

*/ 

/*  calculate  the  major  and  minor  axes  of  the  circle 
(width  and  height  of  the  bounding  box)  */ 

/*  RLK  9/10/90  May  need  to  adjust  the  major/minor  axes  for  ratio  distortion 

using  ratio  of  size  of  screen  in  millimeters/size  in  pixels  */ 

mmajor  - mminor  - (int)  (2.0  * circle_ptr->radius) ; 

x_min  - max (circle_ptr->bb_x,  ulx)  ; 

x_max  - min (circle_ptr->bb_x  + mmajor  - 1,  lrx) ; 

yjmin  =*  max  (circle  ptr->bb_y,  uly)  ; 

y_max  * min  (circle_ptr->bb__y  + mminor  - 1,  lry)  ; 

/* 

* If  the  circle' s bounding  box  intersects  the  redraw  window 

* then  set  up  the  circle  attributes  and  draw  it. 

*/ 


if  ( x_min  o x_max  &&  y_min  O y_max  ) ( 

/*  setup  graphics  context  for  this  circle  */ 

if  (gc_mask  - set_gc (xdisplay,  gc,  gc_val, 

circle __ptr->graph_col,  circle_ptr->line_type, 
circle _ptr->line_wdth,  circle_j>tr->pat_type, 
circle_ptr->pat_sizex,  circle_jptr->pat_sizey, 
NO_CHANGE)  ) 

XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 

/*  draw  circle  */ 

XDrawArc (xdisplay,  xwindow,  gc, 

circle_jptr->bb_x,  circle_ptr->bb__ y,  mmajor,  mminor, 
START_CIRCLE,  FULL_CIRCLE)  ; 

/*  if  pattern  type  indicates  a fill  pattern,  fill  the  circle  */ 


if  (circle j>tr->pat_type) 

XFillArc (xdisplay,  xwindow,  gc,  circle _ptr->bb_x, 
circle_ptr->bb_y,  mmajor,  mminor, 

S T ART_C I RCLE , FULL_CIRCLE) ; 


} 

break; 


case  ARC: 

/*  setup  local  pointer  to  arc  record  */ 

arc_ptr  « (struct  arc_record  *)  bg_graph_ptr->graph_pt r ; 

/*  setup  graphics  context  for  this  arc  */ 

if  (gc_mask  - set__gc  (xdisplay,  gc,  gc_val,  arc_ptr->graph_col, 

arc_ptr->line— type,  arc_ptr->line_wdth, 
arc_ptr->pat_type,  arc_ptr->pat_sizex, 
arc_ptr->pat_sizey,  NO_CHANGE) ) 

XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 

/*  RLK  10/22/90  The  major  and  minor  axes  may  need  to  be  adjusted  and  the 

angles  need  to  be  converted  from  radians  to  degrees.  This 
should  be  done  in  readbgO.  */ 

/*  draw  arc  */ 

XDrawArc (xdisplay,  xwindow,  gc,  arc_ptr->bb_x,  arc_pt r->bb_y, 
a r c__p t r - >ma  j_a  x i s , a r c_p  t r - >min__axi  s , 
arc_jptr->anglel,  arc_ptr->angle2)  ; 

/*  if  pattern  type  indicates  a fill  pattern,  fill  arc  */ 

/*  RLK  9/11/90  Assuming  arc  fill  mode  is  ArcChord. . . see  gc  assignment  above  */ 

if  (arc_jptr->pat_type) 

XFillArc (xdisplay,  xwindow,  gc, 

a rc___pt  r ->bb_x , a r c_pt  r->bb_y , 
arc_ptr->ma j_axis,  arc— ptr~>min_axis, 
arc_ptr->anglel,  arc_ptr->angle2 ) ; 


break; 

case  ELLIPSE: 

/*  setup  local  pointer  to  ellipse  record  */ 

ellipse_ptr  - (struct  ellipse_record  *) bg_graph_ptr->graph_ptr ; 


/* 

* 

★ 

★ 

★ 

*/ 


Check  if  ellipse's  bounding  box  intersects  the  expose 
rectangle.  (This  isn't  the  most  accurate  method  of 
determining  intersection  of  an  ellipse  and  a rectangle, 
but  it  is  fast.) 


x_min  * max (ellipse_ptr->bb_x,  ulx) ; 

x_max  - min  (ellipse_jptr->bb__x  + ellipse_ptr->ma  j_axis  - 1,  Irx)  ; 
y_min  * max (ellipse_pt r->bb_y,  uly) ; 
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y_max  - min  (ellipse  jtr->bb_y  + ell ipse _j>tr->min_axis  - 1,  lry) / 

/* 

* If  the  ellipse's  bounding  box  intersects  the  redraw  window 

* then  set  up  the  circle  attributes  and  draw  it. 

*/ 


if  ( x_jnin  <«  x_max  &&  y_min  O y_max  ) { 

/*  setup  graphics  context  for  this  ellipse  */ 

if  (gc_mask  - set_gc (xdisplay,  gc,  gc_val, 
ellipsejptr->graph_col, 

ellipse _ptr->line_type,  ellipse_ptr->line_wdth, 
ellipse j>tr->pat_type,  ellipsejptr->pat_sizex, 
ellipse^ ptr->pat_sizey,  NO_CHANGE) ) 

XChangeGC (xdisplay,  gc,  gc_mask,  gc— val) ; 

/*  draw  ellipse  */ 

XDrawArc {xdisplay,  xwindow,  gc, 

ellipse^ ptr->bb_x,  ellipse  ptr->bb  y, 
ellipse _j>tr->ma j_axis,  ellipse^ptr->min_axis, 
START__CIRCLE,  FULL_CIRCLE)  ; 

/*  if  pattern  type  indicates  a fill  pattern,  fill  ellipse  */ 

if  (ellipse_jptr->pat_type) 

XFillArc (xdisplay,  xwindow,  gc, 

ellipse^ ptr->bb_x,  ellipsejptr^bb^y, 
ellipse _ptr->ma axis,  ellipse_ptr->min_axis, 

S T ART_C I RCLE , FULL_CIRCLE)  ; 

} 


break; 
case  CURVE : 

/*  RLK  9/10/90  X10  had  a command  called  XDraw  which  drew  curves  using  a 

set  of  vertices  and  creating  the  curved  surface  with  a 
spline  algorithm.  Xll  has  no  such  command. . .will  need  to 
manually  implement  this  algorithm.  */ 

/*  setup  local  pointer  to  curve  record  */ 

curve _ptr  - (struct  curve_record  *)  bg_graph_ptr->graph_ptr; 


/* 

* 

*/ 


/* 

★ 

*/ 


Set  up  the  points  array. 


curve_pts_ptr  - curve_ptr->curve_pts_ptr; 

for  (k  - 0;  k < curve _ptr->nmbr_pts ; k++)  { 
points [k] .x  = curve_pts_ptr->point_x; 
points [k] .y  - curve__pts— ptr->point_y ; 
curve_pts_ptr++; 


Check  if  any  of  the  points  are  inside  the  exposed  area. 


pt_cnt  = 0; 


:0'!i 
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redraw_flag  - NO; 

while  (redraw_f lag  « NO  &&  pt_cnt  < curve_ptr->nmbr_pts)  { 

if  (points [pt_cnt] .x  > ulx  &&  points [pt_cnt] . x < lrx 

&&  points [pt_cnt] .y  > lry  &&  points [pt_cnt] . y < uly) 
redraw_flag  = YES; 


pt_cnt++ ; 


/* 

* Check  if  any  of  the  line  segments  intersect 

★ the  expose  region. 

*/ 


if  ( ! redraw_f lag) 

redraw__f lag  - int_ln(ulx,  uly,  lrx,  lry,  points, 

curve_ ptr->nmbr _j>ts ) ; 


/* 


* 

★ 

*/ 


If  the  polygon  intersects  the  redraw  window 
then  set  up  the  polygon  attributes  and  draw  it. 


if  (redraw_f lag)  ( 

/*  setup  graphics  context  for  this  curve  */ 

if  (gc_mask  - set_gc (xdisplay,  gc,  gc_val,  curve_ptr->graph_col, 

curve_ptr->line_ type,  curve_ptr->line_wdth, 
NO_CHANGE,  NO_CHANGE , N0— CHANGE , NO_CHANGE) ) 
XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 

/*  draw  curve  */ 


) 


XDrawLines (xdisplay,  xwindow,  gc,  points, 

curve_j?tr->nmbr_pts,  CoordModeOrigin) ; 


break; 


case  VECT__TXT: 

/*  setup  local  pointer  to  vector  text  record  */ 

vtext_ptr  * (struct  vtext_record  *)  bg_graph_ptr->graph_jptr  ; 


/* 

* Check  if  the  text  string  bounding  box  intersects  the  exposed  area. 

*/ 

/*  RLK  10/23/90  Need  to  properly  determine  the  text  height  & text  extent 
and  use  in  determining  the  text  string  bounding  box  */ 

x_min  = max  (vtext_ptr->x_j50sit  ion,  ulx); 

x_max  * min  ( vtext  _jptr->x_position  + (vtext_ ptr->char_len  * 9)  , lrx)  ; 

y_min  = max  (vtext_ptr->y_posit  ion  - 15,  uly); 
y_max  * min (vtext_ptr->y_posit ion,  lry); 

/* 

* If  the  text  string  bounding  box  intersects  the  exposed  area 

* then  set  up  the  text  attributes  and  draw  it. 
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/ 


if  ( x_min  <-  x_max  &&  y_min  <-  y_max  ) { 


/ 


Set  text  color  and  font 


gc_mask  - 0; 

if  (gc_val->f oreground  !-  vtext_ptr->graph_col)  { 
gc_mask  |=*  GCForeground; 

gc_val->f oreground  * vtext_ptr~>graph_col; 

} 

if  (gc_val->font  !*  vtext  j>tr->font_num)  { 
gc_mask  |-  GCFont; 

gc_val->font  - vtext_ptr->font_num; 

} 

if  (gc_mask) 

XChangeGC (xdisplay,  gc,  gc_mask,  gc_val)  ; 

/*  draw  string  to  screen  */ 

XDrawString (xdisplay,  xwindow,  gc, 

vtext_ptr->x_jposition,  vtext_ptr->y_j>osition, 
vtext_ptr->record_item,  vtext_ptr->char  len) ; 

} 

default : 
break; 

} /*  End  of  switch  (graph  type)  */ 

bg_graph_ptr++; 

i++; 

) /*  End  of  loop  thru  graphical  records  */ 


Loop  thru  text  records  and  see  if  any  lie  in 
exposed  area.  If  sof  redraw  them. 


bg_text_ptr  - Bg_Rec . record; 

for  (i  - 0;  i < Bg_Rec . char^num;  i++)  { 

Check  if  the  text  string  bounding  box  intersects  the  exposed  area 


RLK  10/23/90  Need  to  properly  determine  the  text  height  & text  extent 
and  use  in  determining  the  text  string  bounding  box  */ 

x_min  - max  (bg__text_ptr->x_position,  ulx)  ; 
x_max  **  min  (bg__text_ pt r->x_jposition 

+ (bg_text_ptr->char_len  * 9),  lrx)  ; 

y_min  - max (bg_text_pt r->y_position  - 15,  uly)  ; 
y_max  - min  <bg_text_ptr->y__position,  lry)  ; 
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* If  the  text  string  bounding  box  intersects  the  exposed  area 

* then  set  up  the  text  attributes  and  draw  it. 

*/ 


if  ( x min  <*  x_max  &&  y__min  <=  y_max  ) { 


/* 

* Set  text  color  and  font 

*/ 


gc_mask  « 0; 

if  (gc_val->f oreground  !-  bg_text  jptr->color)  { 
gc_mask  I = GCForeground; 

gc_val->foreground  - bg_text jptr->color; 

} 

if  <gc_val->font  !=  bg_text_ptr->f ont_num)  { 
gc_mask  |-  GCFont; 

gc_val->font  = bg_text_ptr->f  ont_num; 


if  (gc_ mask) 

XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 

/*  draw  string  on  screen  */ 

XDrawString (xdisplayf  xwindow,  gc, 

bg_text_ptr->x_position,  bg_text— ptr->y_j>osition, 
bg_text_ptr->rec°rd_itemf  bg_text_ptr->char_len)  ; 


} 

bg— t e xt_jD  t r + + ; 

} 

return  (0) ; 
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/a***************************************************************************** 

* MODULE  NAME:  redwfg.c 

★ 

* This  function  refreshes  the  foreground  tabular  information  on  an 

* expose  event . 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Tod  Milam  - Ford  Aerospace  Corporation/Houston 

* 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

*★***★*★★** *******************************************************************/ 


#include  <stdio.h> 
♦include  <wex/EXmsg. h> 
♦include  <X11/Xlib.h> 
♦include  <constants . h> 
♦include  <DDdisp.h> 


extern  struct  dm_shmemory 
extern  struct  data__ info 
extern  struct  msid_ent 
extern  struct  tabular_ent 
extern  struct  hist^tab 
extern  double 
extern  double 
extern  unsigned  char 


/* 

/* 


*Dm_Addres3 ; 

*Dh_Address; 

*Msid; 

*Tab; 

*Htab; 

Horz_Size [MAX_FONTS] ; 

Vert_Size [MAX_FONTS] ; 

01d_Data [60000] ;/*  Old  Data  Array 


/*  ptr  to  DM  shared  memory 
/*  ptr  to  DH  shared  memory 
Ms id  entry  table  ptr 
Tabular  entry  table  ptr 


/*  ptr  to  history  tab  info 


*/ 

*/ 

*/ 

*/ 

*/ 


*/ 


redwf g (disp_num,  ulx,  uly,  Irx,  lry) 


short 

disp_num; 

/* 

display  ♦ containing  the  exposed  area 

*/ 

short 

ulx,  uly,  lrxf  lry; 

/* 

coordinates  of  the  exposed  area 

*/ 

struct 

msid_ent  *msid__info; 

/*  ptr  thru  msid  table 

*/ 

struct 

tabular_ent  *tab_info; 

/*  ptr  thru  tabular  table 

*/ 

struct 

hist_tab  *htab; 

/*  ptr  thru  history  tab  array 

*/ 

struct 

shm_decom  *decom_ent ry; 

/*  ptr  to  decom  entry  for  msid 

*/ 

struct 

shm_decom  * decom  buffer; 

/*  ptr  to  start  of  decom  buffer 

*/ 

long 

status ; 

/* 

status  variable 

*/ 

int 

index. 

/* 

index  into  the  DH  decom  buffer 

*/ 

if 

/* 

loop  counter 

*/ 

x__min,  x max, 

/* 

used  to  det.  expose  area  intersection 

*/ 

y_min,  y_max; 

/* 

* Setup  pointer  to  decom  buffer  in  DH  shared  memory. 

* Check  if  the  Data  Handler  is  updating  the  decom  buffer. 

* If  30,  exit  this  routine. 

*/ 


:;7:C 
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if  (Dh_Address->need_decom  — YES) 
return (0) ; 

Dh_Addre3S->decom_in_use  [disp_num]  - YES; 

decom  buffer  - (struct  shm_decom  *)  ( (char  *)  Dh_Address 

“ + Dh  Address->decom  buf) 


* Loop  through  all  of  the  msid  records  checking  for  redraw 
*/ 


msid_info  = Msid; 

for  (i  = 0;  i < Dh_Address->nbr_msids  [disp_num] ; i++)  { 

/* 

* If  the  msid  has  a tabular  record  then  check 

* if  it  lies  within  the  expose  area. 

*/ 

if  (msid_inf o->Tab__Index  >0)  ( 

tab_ info  - Tab  t msid_info->Tab__Index  - 1; 

/* 

* Check  if  the  text  string  bounding  box 

* intersects  the  exposed  area. 

*/ 

/*  RLK  10/23/90  Need  to  properly  determine  the  text  height  & text  extent 
and  use  in  determining  the  text  string  bounding  box  */ 

x_min  - max (tab_inf o->X_XC,  ulx) ; 

x_max  - min (tab_inf o->X_XC  + (tab_inf o->Data_Width  * 9),  Irx) ; 

y_jnin  - max  (tab— inf o->Y_XC  - 15,  uly)  ; 
y_max  * min  (tab_info->Y_XC,  lry)  ; 

/* 

* If  the  text  string  bounding  box  intersects  the  exposed  area 

* then  set  up  the  text  attributes  and  draw  it. 

*/ 

if  ( x_min  <=  x_max  &&  y_min  O y_max  ) { 

/* 

* Redraw  the  tabular  entry  if  it  is  not  a history  tab  field 
*/ 

if  (msid_inf o->hist_ind  <*  0)  { 

/* 

* Setup  index  into  decom  buffer. 

*/ 

index  » Dh_Address->msid_index [disp_num] [i] ; 

/* 

* If  the  index  is  non-zero,  extract  the  msid 

* value  and  display  it  to  the  screen. 

*/ 


if  (index  >-  0)  { 

decom_entry  * decom_buffer  + index; 


redwfg.c 


} 


status  - extract (&01d_Data [msid_info->data_ind] , 

decom_entry)  ; 

updtfg  (disp_num/  decom_entry,  msid__info, 

tab_info,  status) 


/* 

★ 

*/ 


Redraw  the  tabular  entry  if  it  is  a history  tab  field 


} else  if  (msid_info->hist_ind  > 0)  { 


Setup  local  pointer  to  the  history  tab  entry. 

If  the  history  tab  entry  contains  a value, 

extract  the  status  and  value  and  update  the  display. 


htab  * Htab  + msid_inf o->hist  ind; 


} 


if 


} 


(htab->value)  { 

status  - extract (htab->value,  &htab->decom_ent); 
updtfg (disp_num,  &htab->decom_ent , nisid_info, 

tab_info,  status) ; 


/*  end  of  if  redraw  */ 


} 

msid_info++; 

} 

return  (0) ; 


} 


■ ! - f.  ■ 
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/★****★*****★****************************************************************** 

* MODULE  NAME:  ael^disp.c 

★ 

* This  function  allows  the  user  to  select  a display. 

★ 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* S.  Lee  - Ford  Aerospace  Corporation 

* 


* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★★★★★★★a**********************************************************************/ 


♦include  <stdio.h> 

♦include  <X11/Intrinsic .h> 
♦include  <constants .h> 
♦include  <disp.h> 

♦include  <pf_key.h> 
♦include  <wex/EXmsg . h> 


*/ 

*/ 


extern  Widget  Top; 
extern  struct  file__info 
extern  struct  pfkey_ defs 


*Disp_Info; 
Current  Com; 


/*  ptr  to  file  information 
/*  Current  command  structure 


extern  char 


*malloc  ()  ; 


int  sel_disp  ( ) 

{ 

register  int 

static  char 
static  int 
struct  file_info 
char 


if 

flag; 

**list ; 

num^disps  - 0; 

*d_info_ptr; 

*ptr, 

filename  [50]; 


D (print f ( "START  sel_disp\n" ) ) ; 

/* 

* Call  the  read_disp  routine  to  read  the  directory  of  displays. 
*/ 

if  { num_disps  ==  0 ) { 

num_disps  = read_disp  ( ) ; 
if  ( num_disps  ==  ERROR  ) { 

num_disps  = 0; 
return  ( ERROR  ) ; 

} 

/* 

* 

*/ 


Format  the  display  names  into  a list  of  character  strings . 


sel_disp.c 


d_info_ptr  - Disp_Info; 

list  - (char  **)malloc  ( num_disps  * sizeof  ( char  * ) ); 
for  ( i - 0;  i < num_disps;  i++  ) ( 

*(list+i)  • malloc  ( 100  ); 

strcpy  ( *(list+i),  d_info_ptr->name  ); 

strcat  ( *(list+i),  d_info_ptr->desc  ); 

d_info_ptr++? 

) 

free  ( (char  *)Disp_Info  ); 


/* 

* Present  the  list  of  names  to  the  user  and  wait  for  a response. 
*/ 


flag  - tui_get_list  ( Top,  list,  num_disps,  filename,  "Select  Display", 

"Display  Files",  0,  -1,  NULL,  0 ); 


/* 

* If  no  display  was  selected,  set  the  command  to  invalid. 
*/ 


if  ( flag  — 0 ) 

Current_Com. func_no  - INVALID; 
else  { 

Current_Com.func_no  - START_PDISPLAY; 
if  ( strcmp  ( filename,  "DTE  DISPLAY"  ) — 0 ) 
strcpy  ( Cur rent_Com . disp_name , filename  ) ; 
else  { 

Current_Com . disp_name ( 8 ] - ' \ 0 ' ; 
strncpy  ( Current_Com.disp_name,  filename,  8 ); 
if  ( ptr  - index  ( Current_Com. disp_name,  ' ' ) ) 
*ptr  - ' \0' ; 

else 

Current_Com.disp_name [8]  « '\0'; 
printf ("%s\n", Current_Com.disp  name) ; 

) 

) 

D (printf ("END  sel_disp\n") ) ; 
return  ( flag  ) ; 


mm  i 

set_cmap.c 


* 

* 

* 

★ 

★ 

★ 

* 

* 

★ 

★ 

★ 

* 

* 

* 

* 


MODULE  NAME:  set_cmap . c 

This  function  sets  the  color  map  for  a shell  window.  This  is  normally 
done  after  the  shell  is  realized.  This  step  is  necessary  to  cause  the 
correct  colors  to  be  displayed  in  the  window  when  the  pointer  is  moved 
into  the  window. 


ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


Mark  D.  Collier  - Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 


********* 


Southwest  Research 
****************************** 


Institute 

************************************** 


/ 


#include  <Xll/Intrinsic . h> 
♦include  <wex/EXmsg . h> 


extern  Colormap  Main_cmap;  /*  The  main  colormap  used  by  Display  Manager  */ 


int  set_cmap  ( widget  ) 

Widget  widget;  / * The  widget  containing  the  window  to  set  colormap  on.  */ 

( 

D (printf ("START  set_cmap\n") ) ; 

/* 

* Assign  main  color  map  to  widget  window. 

*/ 

XSetWindowColormap  ( XtDisplay  ( widget  ) , XtWindow  ( widget  ) , Main_cmap  ) ; 

/* 

* Normal  return. 

*/ 

D (printf ("END  set_cmap\n") ) ; 
return  ( 0 ) ; 

} 


set_gc.c 

z*********************************************************************^******** 

* MODULE  NAME:  set_gc . c 

★ 

* To  set  up  the  X graphics  context  (gc)  and  other  attributes 

* necessary  to  facilitate  drawing  the  current  graphic. 

* 

* Accepts: 

* 

* 

★ 

★ 

* 

★ 

* Returns : 

★ 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★★★***************************************************************************^ 


a graphic  context  id  (X  GC) 
pointer  to  an  XGCValues  struct 
graph  color  {colormap  index) 

line  type  (1-solid,  2-dashed,  3-dotted,  4-dotted/dashed) 
line  width  scale  factor  (float) 

pattern  type  (0-hollow,  1-solid,  2-hatch,  3 .. 12-pattern) 
pattern  size  (width,  height) 
a non-zero  gc  mask  (if  change  needed  in  gc) 
or  0 (if  no  change  needed) 


♦include  <stdio.h> 
♦include  <X11/Xlib.h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 
♦include  <wex/EXmsg.h> 


unsigned  long  set_gc (xdisplay,  gc,  gc_val,  graph_col,  line_type,  line_wdth, 

pat_type,  pat  sizex,  pat  sizey,  font) 


Display 

*xdisplay; 

/* 

GC 

gc; 

/* 

XGCValues  *gc_val; 

/* 

short 

graph_col; 

/* 

short 

line_type; 

/* 

float 

line_wdth; 

/* 

short 

pat_type; 

/* 

short 

pat_sizex,  pat_sizey; 

/* 

Font 

font; 

/* 

{ 

static  int  lline_type  * -1; 
static  int  lpat_type  * -1; 


ptr  to  X display  structure 

effective  graphics  context  Xid 

ptr  to  graphics  context  values  structure 

desired  color 

desired  line  type 

desired  line  width 

desired  pattern  type 

desired  pattern  size 

desired  font 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


static  unsigned  char  dashed [2]  * (6,  6); 
static  unsigned  char  dotted [2]  - {1,  ec- 
static unsigned  char  dot_dashed [ 4 ] ~ {6,  4,  1,  4); 

unsigned  long  gc_mask  =0;  /*  local  gc  mask  */ 

int  dash__offset  - 0;  /*  local  dash  offset  for  XSetDashes  */ 


set_gc.c 


* Check  for  foreground  color  change 
*/ 

if  (graph_col  !-  NO_CHANGE  &&  gc_val->f oreground  !=  graph_col)  { 
gc  val->f oreground  * graph_col; 
gc~mask  |-  GCForeground; 

} 

/* 

* Check  for  line  style  change 
*/ 


if  (line_type  !*■  NO_CHANGE  &&  lline_type  ! = line_type)  { 

lline_type  “ line_type; 

switch  (line_type)  { 

case  1:  /*  solid  line  */ 

gc_val->line_style  * LineSolid; 
break; 

case  2:  /*  dashed  line  */ 

gc  val->line style  * LineOnOf fDash; 

XSetDashes (xdisplay,  gc,  dash__of  f set , dashed,  2) ; 
break; 

case  3:  /*  dotted  line  */ 

gc_val->line_style  * LineOnOf fDash; 

XSetDashes (xdisplay,  gc,  dash_offset,  dotted,  2); 
break; 

case  4:  /*  dot/dash  line  */ 

gc_val->line_style  - LineOnOf  fDash; 

XSetDashes (xdisplay,  gc,  dash_offset,  dot_ dashed,  4) ; 
break; 
default : 

gc_val->line_style  - LineSolid; 
break; 


gc_mask  |-  GCLineStyle; 

> 


/* 

* Check  for  change  in  line  width 
*/ 

/★  RLK  9/7/90  the  line  width  in  the  bg  file  is  a float  intended  for 

use  as  a GKS  line_wdth  scale  factor.  Will  just  truncate 
to  an  X pixel  width  integer  for  now. . .prob  OK  */ 

if  (line_wdth  !-  -1.0 

&&  gc_val->line_width  !-  (int)  line_wdth)  { 
gc_val->line_width  * (int)  line_wdth; 
gc_mask  |*  GCLineWidth; 

} 

/* 

* Check  for  change  in  fill  style 

if  ( (pat_type  !»  NO_CHANGE)  &&  (lpat_type  !-  pat_type) ) { 

lpat_type  - pat_type; 

switch  (pat_type)  { 

case  0:  /*  no  fill 

break; 
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case  1 : 


gc_val->fill_style  - FillSolid; 
gc_mask  I-  GCFillStyle; 
break; 
default : 


if  (pat_type  >-  3 &&  pat_type  <■  12)  { 
gc_val->fill_3tyle  - FillTiled; 
gc_mask  |-  GCFillStyle; 

/*  RLK  9/7/90  use  pat_sizex  & pat_sizey  to  get  size  of  map  somehow. . .maybe 
convert  to  a best-size.  Use  pat_type  as  index  into  pixmap 
array,  and  assign  this  as  the  tile  pixmap.  Will  mess  with 
this  later  * 


*/ 


} 

/*  else  no  action ...  assume  no  fill  * 


/* 

* Check  for  change  in  font 
*/ 

if  ((font  !-  NO_CHANGE)  &&  (gc_val->f ont  !«  font))  { 
gc_j val->font  - font; 
gc_mask  | - GCFont ; 

) 

return (gc_mask) ; 

} 


* MODULE  NAME:  set  label. c 


* 

* This  function  updates  the  label  in  a pushbutton  widget.  This  is  normally 

* used  for  menu  selections  which  are  toggled  back  and  forth  between  enabled 

* and  disabled  states. 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 

*********** ********************* ******** *********** **************** ***********/ 


#include  <X11/Intrinsic .h> 
♦include  <Xm/PushB.h> 
♦include  <constants . h> 
♦include  <wex/EXmsg.h> 


int  set_ label  ( widget , label  ) 
Widget  widget ; 


/*  The  pushbutton  widget  upon  which  to  set  the 
* label. 

*/ 


char  *label; 


register  int  i; 

XmString  string; 

Arg  args [ 10 ] ; 

D (printf ("START  set_label\n" ) ) ; 

/* 

* Convert  the  label  to  a compound  string  and  save  in  the  argument  list. 
*/ 


/*  The  label  to  set  on  the  pushbutton  widget. 
*/ 


i = 0; 

string  = XmSt ringLtoRCreate  ( label,  XmSTRING_DEFAULT_CHARSET  ) ; 
XtSetArg  ( args[i],  XmNlabelString,  string  );  i++; 


/* 

* Update  the  widget . 
*/ 


XtSetValues  ( widget,  args,  i ); 


/* 

* Free  the  compound  string  and  return. 
*/ 


} 


XmStringFree  ( string  ) ; 

D (printf ("END  set_label\n")  ) ; 
return  ( 0 ) ; 
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/*******************************  a*******************************^^^^^*^^ 

* MODULE  NAME:  set_timer.c 

* 

* This  function  sets  up  a timer  to  cause  the  display  to  be  updated. 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★★★★★a********************************************* 


♦include  <X11/Intrinsic . h> 
♦include  <constants .h> 
♦include  <disp.h> 

♦include  <wex/EXmsg. h> 


extern  struct  dm__shmemory 

*Dm_ Address ; 

/* 

ptr  to  DM  shared  memory 

*/ 

extern  XtTimerCallbackProc 

tmr_update  ( ) ; 

/* 

time-out  callback  procedure 

*/ 

int  set_timer  (disp_num) 

^ short  disp_num;  /*  effective  display  number  */ 

/* 

* Initialize  the  timeout. 

*/ 

XtAddTimeOut  ( Dm_Address->display  [disp_num]  .update_rate,  tmr_update, 
(caddr_t ) disp_num  );  ~ 


} 


return  (0) ; 


/ 


shm  creat.c 


* MODULE  NAME:  shm  creat.c 


★ 

* The  Shared  Memory  Create  routine  deletes  and  creates  the  Display  Manager 

* shared  memory  for  this  workstation.  Then  the  task  is  attached  to  the  shared 

* memory. 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* K.  Noonan  - Ford  Aerospace  Corporation 

★ 


* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
**★**************★*****★***★**********★***************************************/ 


#include  <fcntl.h> 
♦include  <stdio.h> 
♦include  <sys/types .h> 
♦include  <sys/ipc.h> 
♦include  <sys/shm.h> 
♦include  <constants . h> 
♦include  <disp.h> 
♦include  <wex/EXmsg . h> 


extern  struct  dm_shmemory  *Dm_Address ; /*  address  of  shared  memory  */ 

extern  int  errno,  /*  error  return  value  */ 

Dm__Id;  /*  Display  Manager  Shared  memory  ID  */ 


int  shm_creat  ( ) 

{ 

D (printf ("START  shm_creat\n" ) ) ; 

/* 

* Create  the  shared  memory  segment. 

*/ 

if  ( ( Dm_Id  = shmget  ( DM_SHM_KEY,  sizeof  ( struct  dm_shmemory  ) , 

IPC_CREAT  | 0666  ) ) — -1  ) { 

tui_msg  ( M_YELLOW,  "Error  %d  on  shared  memory  create",  errno  ) ; 
return  ( -1  ) ; 

> 

/* 

* Attach  to  the  Display  Manager  shared  memory. 

*/ 

if  ( ( Dm_Address  = ( struct  dm_shmemory  * ) shmat  ( Dm_Id,  0,  0 ) ) “ NULL  ) { 

tui_msg  ( M_YELLOW,  "Error  %d  on  shared  memory  attach",  errno  ) ; 
return  { -1  ) ; 

} 

D (printf ("END  shm_creat \n" ) ) ; 
return  ( 0 ) ; 

} 


sort_msid.c 


* MODULE  NAME:  sort  msid.c 


* After  copying  the  LOCAL_T IME  msids  to  the  end  of  the  list,  this  function 

* uses  a bubble  3ort  to  put  MSID  records  in  alphabetical  order  by  MSID  name 

* 


* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 


* K.  Noonan  - Ford  Aerospace  Corporation 

★ 


★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 


* Mark  D.  Collier 

* 

★ 

★ 


Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


♦include  <constants ,h> 
♦include  <disp.h> 
♦include  <wex/EXmsg . h> 


int  sort__msid  ( msid_list,  nbr_msids,  nbr^recs  ) 


struct  msid_record  *msid_list; 

short  nbr_jnsids, 

nbr_recs; 

struct  msid_record  temp_rec, 


/*  pointer  to  the  msid  list  to  sort 

/*  nbr  msid  to  sort 

/*  nbr  msid  records  to  sort 

/*  temporary  holder  of  an  msid  record 


short 


int 


tmsid_list [PLOTJMSIDS] ; 
swapped  * YES,  /*  flag  to  tell  if  records  were  swapped 


time, 

msid; 


0, 


/* 

* 

*/ 


i 
j t 

bytes; 

D (printf ("START  sort_msid\n" ) ) ; 


/*  index  for  LOCALJTIME  records 
/*  index  for  msid  records 

/*  loop  counter 
/*  loop  counter 


*/ 

*/ 

*/ 

*/ 


*/ 

*/ 

*/ 

*/ 

*/ 


/*  number  of  bytes  in  msid  record  to  copy  */ 


Get  the  size  of  the  msid  records, 
bytes  - sizeof  ( struct  msid  record  ) ; 


/* 

* Move  the  the  new  msid  list  into  a temporary  list.  All  the  actual  msids 

* will  be  at  the  top  of  the  list  and  the  LOCALJTIME  records  will  be  at  the 

* bottom  of  the  list . Then  move  the  newly  sorted  msid  list  back  into  the 

* original  list. 

*/ 


time  — nbr_msids; 
msid  - 0; 

for  ( i - 0;  i < nbr_recs;  i++  ) { 

if  ( ( stremp  ( ( msid_list  + i ) ->msid_name,  "LOCAL  TIME"  ) ) ==  o ) { 

memepy  ( (char  *) ( & tmsid_list [time]  ),  (char  *) (“msid  list  + i ),  bytes  ) 
time++;  ~ 

} else  { 
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memcpy  ( (char  *) ( &tmsid_list [msid]  ),  (char  *) ( msid_list  + i ), 
ms id++ ; 

> 

memcpy  ( ( char  * ) msid_list,  { char  * ) tmsid_list,  bytes  * nbr_recs  ) ; 


/* 

* Loop  through  all  MSID  records,  until  they  are  alphabetized  ( no  swaps  ) 
*/ 


i - 0; 

while  ( ( i < nbr_msids  ) &4  ( swapped  ==  YES  ) ) { 


/* 

* Riffle  the  last  alphabetic  MSID  record  to  the  bottom  of  the  list 
*/ 

swapped  * NO; 

for  < j = 1 ; j < nbr_msids  - i;  j++  ) { 

/* 

* Are  these  two  MSID's  out  of  order? 

*/ 

if  ( strcmp  ( (msid_list  + j-1 ) ->msid_name,  (msid_list  + j ) ->msid_name 

/* 

* Yes.  Swap  the  MSID  Records. 

*/ 

swapped  m YES; 

memcpy  ( &temp_rec,  msid__list  + j - 1,  bytes  ) ; 
memcpy  ( msid_list  + j - 1,  msid_list  + j,  bytes  ) ; 
memcpy  ( msid_list  + j , &temp_rec,  bytes  ); 

} 

} 

i++; 

} 

D (print f ("END  sort_msid\n") ) ; 
return  ( 0 ) ; 


bytes  ) ; 


) > 0 ) { 


/****************************************************************************** 

* MODULE  NAME:  stat_COl.C 

* 

* To  determine  which  color  a data  item  will  be  displayed  in. 

* 

* Accepts:  a status  word 

* an  msid  table  entry  ptr 

* Returns:  a status  color 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 

* 


k 


* MODIFIED  FOR  X WINDOWS  BY: 

★ 


* 

★ 

★ 

★ 


Ronnie  Killough 


Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


♦include  <stdio.h> 
♦include  <sys/types *h> 
♦include  <sys/timeb.h> 
♦include  <X11/Xlib.h> 
♦include  <constants . h> 
♦include  <DDdisp.h> 
♦include  <wex/EXmsg.h> 


extern  struct  limit_ent  *Limit; 

int  stat_col (status,  msid_info) 

long  status; 

struct  msid_ent  *msid_info; 

{ 

long  color, 

limit  ind; 


/*  ptr  to  limit  entries 


/*  status  of  data 
/*  ptr  to  msid  entry 

/*  temp  variable  for  color 
/*  local  copy  of  msid  limit  index 


limit_ind  - msid_inf o->Limit_Ind; 

if  (status  £ DEAD_DATA)  /*  Dead  Data  */ 

color  - msid_info->Dead_Color; 
else  if  (status  & MISS ING_DATA ) /*  Missing  */ 

color  - msid_inf o->Sta_Color; 
else  if  (status  & STATIC_DATA)  /*  static  * / 

color  - msid_info->Sta_Color; 
else  if  (limit_ind  >0)  { 


if  (status  & OFF_SCALE_H IGH ) 

color  - (Limit  + limit_ind  - 
else  if  (status  & OFF_SCALE_LOW) 
color  - (Limit  + limit_ind  - 
else  if  (status  & CRITICAL_HIGH) 
color  - (Limit  + limit_ind  - 
else  if  (status  & CRITICAL_LOW) 
color  » (Limit  + limit_ind  - 
else  if  (status  & LIMIT_HIGH) 

color  - (Limit  + limit  ind  - 


/*  Off  high  scale  */ 

1) ->Cr_Hcolor; 

/*  Off  low  scale  */ 

1) ->Cr_Lcolor; 

/*  Critical  high  */ 

1) ->Cr_Hcolor; 

/*  Critical  low  */ 

1) ->Cr_Lcolor; 

/*  Out  of  limits  high  */ 
1) ->Hi_Color; 


*/ 


*/ 

*/ 

*/ 

*/ 


stat  col.c 


else  if  (status  & LIMIT_LOW) 

color  * (Limit  + limit  ind 


/*  Out  of  limits  low 
1) ->Lo_Color; 


/* 

* If  an  unknown  status  occurs  display  a nominal  color 
*/ 


else 

color  - msid_inf o->Nom_Color ; 
return  (color) ; 


z*******************************************************************^^^^^ 

* MODULE  NAME:  tick_mk.c 

* 

* This  function  draws  a tick  mark  or  grid  line. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 

★ 


* MODIFIED  FOR  X WINDOWS  BY: 

* 


* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


♦include  <X11/Xlib.h> 
♦include  <constants . h> 
♦include  <disp.h> 
♦include  <DDplot.h> 


extern  struct  dm_shmemory  *Dm_Address; 


/*  ptr  to  DM  shared  memory 


*/ 


void  tick__mk  <disp_num,  plot_ptr,  gc, 

short  disp_num; 

struct  plot_ptrs  *plot_ ptr; 

GC  gc; 

short  xpos,  ypos; 
short  length; 
char  xory; 

{ 

XPoint  points [2] ; 

/* 

* Set  the  origin  point 
*/ 


xpos,  ypos,  length,  xory) 


/*  effective  display  number  */ 
/*  ptr  to  plot  record  */ 
/*  Id  of  GC  in  DM  shared  memory  */ 
/*  start  position  of  tick  mark  */ 
/*  length  of  tick  mark  * / 
/*  X or  Y axis  tick  mark  */ 

/ * endpoints  of  tick  mark  */ 


points  [0]  .x 
points  [0]  .y 

/* 

points [0] .x 
points  [0]  .y 

*/ 


xpos; 

ypos; 

(short)  (xpos  * plot_ptr->plot_pos->factor_x)  ; 

(short)  ((100.0  - ypos)  * plot_ptr->plot_pos->factor_y) ; 


/* 

points [0] .x  - (short)  (xpos  * plot  jptr->plot _pos->factor_x) 

+ plot _ptr->plot_poS“>of f set  x; 

points [0] .y  - (short)  {(100.0  - ypos)  * plot_pt r->plot_pos->f actor_y) 

+ plot_ptr->plot_jpos->of  f set_y; 


/* 

* Set  the  end  point 
*/ 


— 'X')  { 


if  (xory 


points [l].x  - points [0].x; 
points[l].y  ~ ypos  + length; 

} else  if  (xory  =-  'Y' ) { 

points [l].x  “ xpos  + length; 
points[l].y  “ points[0].y; 

} 

/* 

* Draw  the  line 
*/ 

XDrawLine (Dm_Address->xdisplay [disp_num] , XtWindow (plot_ptr->draw_win) , 
gc,  points [0] .x,  points [0] .y,  points [1] .x,  points [1] .y) ; 


return; 

} 


time_val.c 

/A***************************************************** a.**.**....*****,^**^^ 

* MODULE  NAME:  time_val.c 

* 

* This  function  validates  a time  value. 

★ 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* K.  Noonan  - Ford  Aerospace  Corporation 

* 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

*********** ***************★*********★******★★**★******************************/ 


♦include  <ctype.h> 
♦include  <constants . h> 
♦include  <wex/EXmsg.h> 


int  time_val  ( char_str  ) 


char 

*char_str; 

/* 

short 

i, 

/* 

nbr_colons. 

/* 

colon_chk. 

/* 

colon_char. 

/* 

valid. 

/* 

length; 

/* 

D (printf ( "START  time  val\n")); 

/* 

* Get  the  length  of  the  character 
*/ 


integer  or  decimal  character  string  */ 


loop  counter  ★/ 
number  of  colons  in  string  ★/ 
check  for  a colon  ★ / 
char  nbr  to  check  for  a colon  */ 
set  to  YES  if  string  is  valid  */ 
length  of  character  string  ★/ 


length  « strlen  { char  str  ) ; 


/* 

Starting  from  the  end,  validate  each  character.  If  a colon  is  not  found 

* at  the  first  possible  colon  position,  then  the  time  input  has  to  be  in 

* total  seconds,  so  only  digits  are  searched  for.  If  a colon  is  found  at 
the  first  possible  colon  possible,  then  colons  are  searched  for  every 
third  position  until  the  third  colon  is  found.  Then  no  more  colons  are 

* needed.  The  format  possiblilities  are  seconds  or  ddd: hh :mm: ss,  or  a 

* subset  of  the  last  format. 

*/ 


valid  - YES; 
i * length  - 1; 
nbr_colons  * 0 ; 
colon_char  - length  - 3; 
colon_chk  - YES; 

while  ( i >«  0 &&  valid  ~ YES  ) { 

if  ( i “ colon_char  &&  colon_chk  " YES  ) { 

if  ( * { char_str  + i ) !=*':'  ) { 

if  ( nbr_colons  =*  0 ) { 

colon_chk  = NO; 

if  ( ( isdigit  ( * ( charj3tr  + i ) ) ) ~=  o ) 


valid  - NO; 


} else 

valid  - NO; 

} else  { 

colon_char  — 3; 
i — ; 

nbr_colons++; 
if  ( nbr_colons  >»  3 ) 
colon_chk  - NO; 

} 

} else  { 

if  { ( isdigit  ( * ( char_str  + i ) ) ) !-  0 ) { 


} 


} else  { 

valid  “ NO; 

} 


D(printf ("END  t ime_val\n" ) ) ; 
return  ( valid  ) ; 
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* MODULE  NAME : tmr_update . c 

* 


* * 


* This  is  the  callback  function  which  is  called  at  specified  intervals 

* to  update  the  dynamic  text  and  graphics  on  the  display.  If  the 

* display  has  not  been  paused  by  the  user,  this  function  also  resets 

* the  timer  to  start  the  next  update  timer  countdown.  If  the  display 

* has  not  been  paused,  the  timer  is  not  reset  to  prevent  further  update 

* to  the  display. 

* 


★ 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


♦include  <stdio.h> 

♦include  <X11/Xlib.h> 
♦include  <X11/Intrinsic . h> 
♦include  <constants .h> 
♦include  <disp.h> 

♦include  <wex/EXmsg . h> 


extern  struct  dm_shmemory  *Dm_Address;  /*  Ptr  to  DM  shared  memory. 
XtTimerCallbackProc  tmr_update  ( args,  tid  ) 


char 

*args; 

/* 

Contains  the  display 

♦ (disp_num) 

Xt Interval Id 

*tid; 

/* 

Timer  id. 

short 

disp_num; 

/* 

Display  number  to  be 

updated. 

/* 

* Extract  display  number  from  arg  list 

* and  call  update . 

*/ 

disp__num  * (int)args; 
update  ( disp_num  ) ; 

/* 

* If  display  has  not  been  paused,  reset 

* the  timer  for  the  next  callback. 

*/ 

if  ( Dm__Addre ss->di splay  [disp_num]  . disp_jpause  ==  NO  ) 
3et_timer  ( disp_num  ) ; 

return; 

} 


ui  init.c 


* MODULE  NAME:  ui  init.c 


* This  function  initializes  the  main  user  interface. 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 

★★★★★★★★★A********************************************************************/ 


♦include  <stdio.h> 

♦include  <X11/Intrinsic .h> 

♦include  <Xll/StringDef s . h> 

♦include  <X11/Shell . h> 

♦include  <Xm/Xm.h> 

♦include  <Xm/RowColumn.h> 

♦include  <user_inter . h> 

♦include  Cconstants .h> 

♦include  <disp.h> 

♦include  <pf_key.h> 

♦include  <wex/EXmsg .h> 

extern  Colormap  Main_cmap; 

extern  Widget  Verytop,  Top,  Pb_Alarm,  Pb_Pbi,  Pb_Log,  Pb_Log__A,  Pb_Msg, 

Pb_Pf; 

> — "extern  struct  dm_shmemory  *Dm_Address; 

extern  struct  pfkey_defs  Act_Pfkeys [ ] , 

Current_Com; 

extern  short 


extern  char 


int  ui_init  ( argc,  argv  ) 
int  argc; 

char  **argv; 

{ 

register  int 

static  char 

typedef  struct  _iv  { 

String  disp; 

} I V_REC  , *IV; 
static  IV_REC  iv; 

static  XtResource  resources []  = { 

{ "df",  "Df",  XtRString,  sizeof  ( String  ),  XtOffset  ( IV,  disp  ), 
XtRString,  ""  } 

) ; 

static  XrmOptionDescRec  options []  * { 

{ "-df”,  ”Df ” , XrmoptionSepArg,  NULL  } 


i,  n,  len_accel; 

accel [20]  - ” <Key>F"; 


Disp_Num, 

Ms  g_P  opup_F 1 ag ; 

*Func  Desc  [ ] ; 
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>; 

Widget 

mb_main, 

mp_file,  mp__disp,  mp_hist, 
mp_plot,  mp_zoom,  mp_keys, 
widget ; 

Display 

♦display; 

Arg 

args [10] ; 

XtCallbackProc 

cb_help  ()  , 

cb_cmd  ()  ; 

XColor 

color; 

char 

name [ 100] , 
**old_font_paths; 

int 

flag, 

screen. 

numjpaths ; 


unsigned  long 
D (print f ("START  ui  init\n")  ) ; 


planes [MAX_COLORS]  , 
pixels [MAX  COLORS]; 


/* 

* Initialize  the  top  level  widget. 
*/ 


Verytop  - Xtlnitialize  ( argv[0],  "Display_Manager",  options,  XtNumber  ( options  ), 

&argc,  argv  ) ; 


/* 

* Retrieve  any  application-specific  resources. 
*/ 


XtGetApplicationResources  ( Verytop,  Siv,  resources,  XtNumber  ( resources  ),  NULL,  0 ) 


/* 

* Save  the  display  pointer  and  name. 
*/ 


display  - Dm_Address->xdisplay [Disp_Num]  - XtDisplay  ( Verytop  ); 
strcpy  ( Dm_Address->display_name [Disp_Num] , XDisplayString  ( display  ) ); 
screen  = DefaultScreen  ( display  ) ; 


/* 

* Get  search  path  for  X fonts. 
*/ 

/* 

#ifdef  DEBUG 
*/ 


old  font paths  ” XGetFontPath (display,  & num  paths) ; 

for  (x-0;  x<num_paths;  x++) 

printf ("%s\n" , * (old_font  _jpaths  + x) ) ; 


/* 

#endif 

*/ 


* Create  the  main  color  map.  The  main  color  map  is  used  by  Termap  to  init- 

* ialize  widget  colors.  Its  contents  are  copied  into  the  first  few  pixels 

* of  each  image  color  map. 

*/ 

Main  cmap  - XCreateColormap  ( display.  Default RootWindow  ( display  ) , 

Default Visual  ( display,  screen  ) , AllocNone  ) ; 

* 

* The  Display  Manager  will  work  best  if  the  window  manager  is  run  in  monochrome  mode. 

* In  this  case,  it  will  use  a black  and  a white  color  in  the  first  two  cells 

* of  the  color  map.  Therefore  allocate  a black  and  a white  color  in  the  first 

* two  cells  in  the  positions  normally  used  on  the  systems. 

*/ 


color. flags  - DoRed  I DoGreen  | DoBlue; 


#ifdef  SUN 

color,  red  *■  color  .green  m color. blue  “ Oxffff; 
XAllocColor  ( display,  Main_cmap,  ficolor  ) ; 


color. red  ■ color. green  - color. blue  “ 0x0000; 
XAllocColor  ( display,  Main_cmap,  &color  ) ; 
♦else 

color. red  ” color. green  “ color. blue  “ 0x0000; 
XAllocColor  ( display,  Main_cmap,  Scolor  ) ; 

color. red  = color. green  - color. blue  = Oxffff; 
XAllocColor  ( display,  Main_cmap,  ficolor  ) ; 
♦endif 


/* 

* Create  a new  shell  widget.  This  is  necessary  because  you  cannot  set 

* the  color  map  except  upon  creation  and  you  can't  specify  arguments  for 

* the  top  level  widget. 

*/ 

i - 0; 

XtSetArg  < argsfi],  XmNcolormap,  Main_cmap  );  i++; 

Top  - XtAppCreateShell  ( "Display  Manager  Control  Panel",  "Display_Manager", 
applicationShellWidgetClass,  display,  args,  i ) ; 

/* 

* Create  the  menu  bar,  and  the  form  which  will  contain  main  fields. 

*/ 


i - 0; 

XtManageChild  ( mb_main  = XmCreateMenuBar  ( Top,  "menubar",  args,  i ) ) ; 

/* 

* Create  pulldown  menu  for  File  commands. 

*/ 

i * 0 ; 

mp_file  = XmCreatePulldownMenu  ( mb_main,  "mp_file",  args,  i ) ; 

tui  create  cascade  ( mb_main,  "File",  mp_file,  args,  i ) ; 


Pb_Msg  - 

tui_create_pushbutton  { mp_file,  "Enable  Message", 


cb_cmd,  MSG_ON, 


args,  i ) 
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tui_create_pushbutton  ( mp_file,  "Set  Flight /Data", 
tui_create_ pushbutton  ( mp_file,  "Screen  Dump", 
tui_create_pushbutton  ( mp_file,  "Edit  Colors", 
tui_create_pushbutton  ( mp_file,  "Exit", 


cb_cmd,  SET_FLIGHT, 
cb_cmd,  SCRN_DUMP , 
cb_cmd,  ED IT_COLORS , 
cb_cmd , HAL  T_D  I S P L A Y , 


args,  i ); 
args,  i ) ; 
args,  i ) 
args,  i ) 


/* 

* Create  pulldown  menu  for  Display  commands. 
*/ 


i - 0; 
mp_disp 


XmCreatePulldownMenu  ( mb_main,  "mp_disp",  args,  i ) ; 

tui__create_cascade  ( mbjnain,  "Display",  mp_disp,  args,  i ) ; 


i - 0; 

tui_create_pushbutton  ( mp_disp, 
tui_create_pushbutton  ( mp_disp, 
Pb_Pf  - 

tui_create_pushbutton  ( mp_disp, 


"Select  Display", 
"Remove  Display", 

"Freeze  Display", 


cb 

_cmd. 

S T ART_D  ISP  LAY , 

args. 

i 

) ; 

cb~ 

_cmd. 

C LE AR_D  ISP  LAY , 

args. 

i 

) ; 

cb_ 

_cmd. 

FREE ZE_D I SPLAY, 

args. 

i 

) ; 

/* 

* Create  pulldown  menu  for  Utilities  commands. 
*/ 


i - 0; 
mp_util 


XmCreatePulldownMenu  ( mb_main,  "mp__util", 
tui_create_cascade  ( mb_main,  "Utilities", 


args,  i ); 
mp_util,  args,  i ) ; 


i “ 0/ 

tu^create^ pushbutton 
tui_create_pushbutton 
tui_create_ pushbutton 
tui_create_ pushbutton 


( 

mp_util. 

"Change  Update  Rate", 

cb_ 

_cmd. 

UPD_ 

_RATE, 

args. 

i 

) ; 

< 

mp_util, 

"Unlatch  DDD  MS ID", 

cb_ 

_cmd. 

ddd" 

[unlatch, 

args. 

i 

) : 

( 

mp_util, 

"Unlatch  ALL  DDD' a". 

cb_ 

_cmd, 

ddd“ 

[UNL_ALL, 

args, 

i 

) 

( 

mp_jatil. 

"Change  GDR", 

cb__ 

_cmd. 

GDR~ 

[CHG, 

args. 

i 

) ; 

/* 

* Create  the  commands  which  change  state  based  on  enable/disable. 
*/ 


Pb_Alarm 

Pb_Pbi 

Pb_Log 

Pb_Log_A 


tui_create_pushbutton 

tui_create_pushbutton 

tui_createj>ushbutton 

tui_create_pushbutton 


( mp_util,  "Enable  Alarms",  cb__cmd, 

POSTAL ARM,  args,  i ); 

< mp_util,  "Enable  PBIs",  cb_cmd, 

PBI_ENABLE,  args,  i ); 

( mp_util,  "Enable  Logging",  cb_cmd, 

LOGENABLE_D I SPLAY , args,  i ) ; 

( mp_util,  "Enable  All  Logging",  cb_cmd, 

LOGENABLE_ALL,  args,  i ); 


/* 

* Create  pulldown  for  History  Table  commands. 
*/ 


i - 0; 

mP_hist  - XmCreatePulldownMenu  ( mb_main,  "mp_hist",  args,  i ); 

tui_create_cascade  ( mb_main,  "Hist/Table",  mp_hist,  args,  i ); 

i - 0; 

tui^create^pushbutton  ( mp_hist,  "History  Tables",  cb_cmd,  HIST_TAB,  args,  i ); 


/* 

* Create  pulldown  for  Limits  commands. 
*/ 


i - 0; 

mp_limits  = XmCreatePulldownMenu  ( mb_main,  "mp_limits". 


args,  i ); 


tui  create  cascade 


( mb_main 


Limits” , mp_limits,  args,  i ) ; 


i - 0; 

tui^create^ pushbutton  { mp_limits,  "List  Limits",  cb_cmd,  LIM_LIST,  args,  1) ; 
tui__create_pushbutton  < mp_limits,  "Change  Limits",  cb_cmd,  LIM__MENU,  args,  i)  ; 

/* 

* Create  pulldown  for  Plot  commands. 

*/ 


i - Of 
mp_j>lot 


XmCreatePulldownMenu  ( mb__main,  "mp_plot",  args,  i ) ; 

tui  create_cascade  ( mbjmain,  "Plots",  mp_plot,  args,  i ) ; 


) 

) 

) 

) 


i * 0; 

tui_ create_pushbutton  ( mp^ plot,  "List  Plots”, 
tui_create_ pushbutton  ( mp_plot,  "Display  Overlay", 
tui_create_pushbutton  ( mp_plot,  "Save  Overlay", 
tui— create^ pushbutton  ( mp_plot,  "Define  Universal  Plot", 


cb_cmd,  PLOT_LIST,  args,  i 
cb_cmd,  PLOT__OVRLAY,  args,  i 
cb_cmd,  S AVE_0  VRL  AY  , args,  i 
cb_cmd,  PLOT_UNV,  args,  i 


/* 

* Create  pulldown  for  zoom  commands . 

*/ 

i - 0; 

mp_zoom  - XmCreatePulldownMenu  ( mbjmain,  "mp_zoom",  args,  i ); 

tui_create_cascade  ( mbjmain,  "Zoom”,  mp_zoom,  args,  i ) ; 

i - 0/ 

tui_createjpushbutton  ( mp_zoom, 
tui_create_pushbutton  ( mp_zoom, 
tui_create_pushbutton  ( mp— zoom, 

/* 

* Create  a dummy  pulldown  for  the  function  keys.  This  pulldown  is  never  managed,  but 

* provides  an  easy  way  to  associate  function  key  accelerators  with  commands. 

*/ 


Zoom”, 

cb_cmd. 

ZOOM__DIS , 

args, 

i 

) ; 

Reset  Zoom”, 

cb_cmd. 

ZOOM  RES, 

args. 

i 

) ; 

Change  Zoom  Factor", 

cb_cmd. 

ZOOM  FAC, 

args, 

i 

) ; 

i = 0; 

mp_keys  = XmCreatePulldownMenu  ( mb_main,  "mp_keys",  args,  i ); 

tui  create_cascade  ( mbjmain,  "Keys",  mp_keys,  args,  i ) ; 


/* 

* Create  the  actual  commands  which  correspond  to  the  function  keys.  Note  that  the 

* code  sets  the  accelerator  to  either  normal  or  shifted  for  the  two  sets  of  function 

* keys . 

*/ 


len_accel  = strlen  ( accel  ) ; 

for  ( n - 0;  n < P FKE Y_COUNT ; n++  ) { 

flag  = ( Act_Pfkeys [n] . valid_f lag  =*  0 &&  Act_P f key s [n] .defined  ); 

/* 

* Build  the  name  of  the  function  key.  This  will  appear  on  the  menu  and  serve  as 

* the  "Show  PF  Keys"  Function. 

*/ 


sprintf  ( name,  ”%5s  F%02d  - %s", 

( n < PFKEY  COUNT/2  ) ? "Shift" 


Ctrl” 


/* 

★ 

* 


*/ 
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( n<PFKEY_C0UNT/2  ) ? n+1 


: n-PFKEY_C0UNT/2  + 1 


( flag 


? Func_Desc [Act_Pfkeys [n] . func_no]  : " ” ); 


If  fhe  function  key  is  defined  and  valid,  build  the  accelerator  string  and 
save  as  an  argument. 


if  ( flag  ) { 

sprintf  ( Saccel [len_accel] , "%d", 

(n<PFKEY_C0UNT/2)  ? n+1  : n-PFKEY_C0UNT/2  + 1 ) ; 
if  ( n < PFKEY_C0UNT/2  ) 

3trncpy  ( accel,  "Shift",  5 ); 

else 

strncpy  ( accel,  " Ctrl",  5 ) ; 

XtSetArg  ( args[0],  XmNaccelerator,  accel  ); 


} 


/* 

* Create  the  widget . 

*/ 

j tui_create_pushbutton  ( mp_keys,  name,  ( flag  ) ? cb_cmd  : NULL,  -n,  args,  1 ) ; 

/* 

* Initialize  default  menu  label  states. 

*/ 

Msg_Popup_Flag  - ON; 
tui_msg_control  ( Msg_Popup_Flag  ) ; 

init_label  ( ) ; 

/* 

* Create  pulldown  for  Help. 

*/ 


i - 0; 

mP_h®lp  ” XmCreatePulldownMenu  ( mb_main,  args,  i ) • 

widget  - tui_create_cascade  ( mbmain,  "Help",  mp  help,  args,'  i ); 
XtSetArg  ( args[0],  XmNmenuHelpWidget,  widget  ); 

XtSetValues  ( mb_main,  args,  1 ) ; 


tui_create_jpushbutton 

( mp_help,  "Enable /Disable  Messages”, 

cb_help. 

0, 

args,  i ) 

tui_create_pushbutton 

( mp_help,  "Set  Flight  ID/Datatype", 

cb__help. 

1/ 

args,  i ) 

tui_create_pushbutton 

( mp_help,  "Screen  Dump", 

cb_help. 

2, 

args,  i ) 

tui_create_jpushbutton 

{ mp_help,  "Edit  Colors", 

cb_help. 

3, 

args,  i ) 

tui_create_pushbutton 

( mp_help,  "Exit", 

cb_help, 

4, 

args,  i ) 

tui_create^pushbutton 

( mp_help,  "Select  Display", 

cb_help, 

5, 

args,  i ) 

tui_create_pushbutton 

{ mp_help,  "Remove  Display", 

cb_help, 

6, 

args,  i ’ 

t ui_c  reate  _jpushbut ton 

( mp__help,  "Freeze  Display", 

cb_help. 

7, 

args,  i ) 

tui_create_pushbutton 

( mp_help,  "Change  Update  Rate", 

cb_help. 

8, 

args,  i ) 

tui_create_ pushbutton 
tui_create_pushbutton 
tui_ create_jDushbutton 
tui__create_pushbutton 
tui_create_j?ushbutton 
tui_create_pushbutton 
tui_ create_pushbutton 
tui__create_pushbutton 
tui_create_pushbutton 
tui_create_pushbutton 
tui_create_ pushbutton 
tui_create_jpushbutton 
tui_create_pushbutton 
tui_create_pushbutton 
t u i_c  rea t e_pu s hbut t on 
tui_create_pushbutton 
tui_create_pushbutton 
tui_create_pushbutton 


mp_help. 

’’Unlatch  DDD  MS  ID", 

cb_help. 

9, 

mp_help. 

"Unlatch  All  DDD' s" , 

cb_help. 

10, 

mp_help. 

’’Change  GDR" , 

cb_help, 

mp_help. 

"History  Tables", 

cb__help. 

-l# 

mp— help, 

"Enable/Disable  Alarms", 

cb_help, 

12, 

mp_help. 

'’Enable/Disable  PBI's", 

cb_help, 

13, 

mp_help, 

"Enable/Disable  Logging", 

cb_help, 

14, 

mp__help. 

"Enable/Disable  All  Logging", 

cb_help. 

15, 

mp_help. 

"List  Limits", 

cb_help. 

16, 

mp_help, 

"Change  Limits", 

cb__help. 

17, 

mp_ help, 

"List  Plots", 

cbjhelp. 

00 

mp_help, 

"Display  Overlay", 

cb— help, 

19, 

mp__heip, 

"Save  Overlay", 

cb_help, 

o 

CM 

mp_help, 

"Define  Universal  Plot", 

cb_help. 

21, 

mp_help, 

"Zoom", 

cbjielp. 

CM 

CM 

mp_help, 

"Reset  Zoom  Factor", 

cb_help. 

23, 

mp_help, 

"Set  Zoom  Factor", 

cb_help, 

24, 

mp_help. 

"Show  PF  Keys", 

cb_help, 

in 

CM 

★ 

* Allocate  additional  colors  which  will  be  required  by  popups  created  later  in 

* application. 

*/ 

XAllocNamedColor  ( display,  Main_cmap,  "lightblue",  ficolor,  &color  ) ; 
XAllocNamedColor  ( display,  Main_cmap,  "skyblue",  &color,  &color  ) ; 

* 

* Allocate  the  remaining  number  of  color  cells  which  were  not  taken  by  the 

* Motif  colors.  Note  that  the  number  of  colors  used  by  Motif  is  not  constant 

* and  color  matching  takes  place,  so  it  is  not  safe  to  simply  allocate 

* MAX_COLORS-NUM_MOTIF_COLORS,  because  this  might  leave  a few  colors  at  the 

* end  of  the  color  map  unallocated.  This  would  result  in  an  X error  when  a 

* later  attempt  to  perform  an  XStoreColor  is  attempted. 

*/ 


for 


< i - 0;  i < NUM_MOTIF_COLORS ; i++  ) 

if  ( XAllocColorCells  ( display,  Main_cmap,  True, 

pixels,  MAX_COLORS-i  ) ) 

break; 


planes , 


0, 


if  ( i — NUM_MOTIF_COLORS  ) { 

XFreeColormap  ( display,  Main_cmap  ) ; 

tui_msg  ( M_YELLOW,  "Could  not  allocate  colors  in  colormap"  ) ; 
return  ( -1  ) ; 


args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 
args,  i ) 

the 


} 
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/* 

* Initialize  the  colors  used  by  the  display  functions. 

*/ 

colors  ( ) ; 

/* 

* Realize  the  top  level  widget. 

*/ 

XtRealizeWidget  ( Top  ) ; 

XSetWindowColormap  ( display,  XtWindow  ( Top  ) , Main_cmap  ) ; 

/* 

* Check  to  see  if  a display  name  was  input  as  an  intialization  argument. 

*/ 

if  ( *iv.disp  ) { 

strcpy  ( Current_Com.disp_name,  iv.disp  ); 
if  { val_fn  ( Current_Com.disp_name,  YES  ) ) { 

Current_Com. func_no  - S TART_PD I S P LAY ; 
command  { NO  ) ; 

} else 

tui_msg  ( M_YELLOW,  "Display  %s  not  started" , Current_Com.disp_name  ) ; 


} 


D (print f ("END  ui__init\n")  ) ; 
return  ( 0 ) ; 
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* MODULE  NAME:  unlatch. c 


* 

* This  routine  unlatches  one  or  all  msids  depending  on  the  unlatch  action 

* flag  in  shared  memory.  If  the  action  is  all  msids,  then  all  the  latch 

* flags  in  the  msid  records  are  set  to  NO.  If  the  action  is  for  an  msid, 

* then  the  msid  is  searched  for  in  the  msid  records  and  the  latch  flag  for 

* all  occurrances  of  that  msid  are  set  to  NO. 

* 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* C.  Davis  - Ford  Aerospace  Corporation 

* 


★ 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

★ Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 
***************★****★*********************************************************/ 


♦include  <X11/Xlib.h> 
♦include  <stdio.h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 
♦include  <wex/EXmsg .h> 


extern  struct  msid_ent 

*Msid; 

/*  msid  structure  pointer 

*/ 

extern  struct  dm_shmemory 

*Dm_Address; 

/*  DM  structure  pointer 

*/ 

extern  struct  fg_f ile_header 

*Ff ile; 

extern  short 

Disp_Num; 

/*  display  number 

*/ 

int  unlatch  ( ) 

{ 

struct  msid_ent 

*msid__ptr; 

/* 

msid  local  record  pointer 

*/ 

int 

if 

/* 

loop  count  variable 

*/ 

retval; 

/* 

return  value  from  strcmp 

*/ 

short 

match. 

/* 

YES,  if  a match 

*/ 

finished; 

/* 

loop  control  variable 

*/ 

D(printf ("START 

unlatch\n" ) ) ; 

/* 

* If  the  action  flag  is  to  unlatch  all  msid's,  then  set  the  ddd  latch  flag 

* to  NO  in  each  msid  record. 

*/ 


msid__ptr  * Msid; 

if  ( Dm_Address->display [Disp_Num] .action  “ ALL  ) { 

for  ( i * 0;  i < Ff ile->Ent ry_Num;  i++  ) { 

msid_pt r->dddO_latch  = NO; 
msid_ptr->dddl_latch  * NO; 
msid__pt  r++; 

} 

tui_msg  { M_BLUE,  "Msids  unlatched"  ) ; 

/* 

* The  action  flag  is  to  unlatch  all  occurrances  of  the  MSID  on  the  display. 


mm 

* Search  the  msid  records  for  a match  on  the  msid  and  the  source.  If  a 

* match  is  found,  then  clear  the  latch  flag.  Search  the  list  until  the 

* msid  name  is  less  alphabetically,  then  the  msid  in  the  msid  records  list 

*/  * ^ 


} else  { 
i - 0; 

finished  - match  - NO; 

while  ( ( i < Ff ile->Entry_Num  ) &&  ( finished  — NO  ) ) { 

retval  - strcmp  < msid_ptr->MSID,  Dm_Address->di splay [Disp_Num] .msid  name  ); 
if  ( retval  — 0 ) { 

if  ( strcmp  ( msid_j?tr->Data_Src, 

Dm_Address->display [Disp_Num] . src  ) “ 0 ) { 

match  - YES; 

msid_ptr->dddO_latch  * msid_j)tr->dddl__latch  * NO; 

} 

} else  if  { retval  > 0 ) 
finished  » YES; 

msid_j5tr++; 

i++; 

} 


/* 

* If  no  match  was  found  in  the  msid  records  list,  then  advise. 
*/ 


if  ( match  NO  ) 

tui_msg  ( M__YELLOW,  "Msid  %s  source  %s  is  not  on  this  display", 
Dm_Address->display [Disp_Num]  .msid_name, 
Dm_Address->display [Disp  Num] .src  ); 

} 

D (printf ("START  unlatch\n" ) ) ; 
return  ( 0 ) ; 
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/a***************************************************************************** 

* MODULE  NAME:  unv_j>lot.c 

★ 

* This  function  allows  the  user  to  define  a universal  plot. 

* 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* K.  Noonan  - Ford  Aerospace  Corporation 

★ 

* 

* INTERNAL  FUNCTIONS: 

* 


o 

unv  menu 

- 

Displays  the  universal 

plot  menu. 

o 

cb_unv 

- 

Processes 

all  callbacks 

i from  the  menu. 

o 

process _plot 

- 

Processes 

entry  of  a plot  file  name. 

o 

display_xy 

- 

Processes 

selection  of 

the  X/Y  button. 

o 

display_msid 

- 

Processes 

selection  of 

the  MS ID  button 

o 

save_xy 

- 

Saves  X/Y 

values . 

o 

save_msid 

- 

Saves  MS ID  values. 

o 

process_ok 

- 

Processes 

selection  of 

the  OK  button. 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
*********★*★********★*********************************************************/ 


♦include  <stdio.h> 

♦include  <unistd.h> 
♦include  <fcntl.h> 

♦include  <X11/Intrinsic . h> 
♦include  <X11/Shell.h> 
♦include  <Xm/Xm.h> 

♦include  <Xm/Text.h> 
♦include  <user_ inter . h> 
♦include  <constants .h> 
♦include  <disp.h> 

♦include  <pf_key.h> 
♦include  <wex/EXmsg . h> 


struct  disp_info  *display; 

static  struct  msid_record  msid_rec [PLOT_MSIDS] ; 

static  Widget  f_msid,  tjplot,  t_xy_id,  t_xlow,  t_xhigh,  t_jylow,  t_yhigh, 

t_msid_id,  t_msid,  t_src,  resample,  s_axis_no,  r_xory, 
t_msid_p,  t__src__p,  r_sample_ p,  s_axis_no_jp; 

"static  char  *samples[]  = { "A",  "L"  }, 

*x_and_y[]  = { "X",  "Y"  }, 

*list  []  = { "1",  ”2" , "3”,  "4",  "5" , " 6" , "7",  "8",  "9",  " 


10"  } 


static  int 


FILE 


extern  Widget 
extern  struct 
extern  short 
extern  int 
extern  char 


unv_plot.c 


plot_name  [DNAME^LEN  + 5], 
unv_name  [DNAME_LEN  -l-  5]  , 
sav_unv_name [DNAME  LEN  + 5], 


low_scale 

high_scale 

scale_type 


[TOTAL_AXES]  [16]  , 
[TOTAL_AXES] [16]  , 
[TOTAL  AXES] [2] ; 


flag, 

version, 

ptr__axis, 

ptr_msid, 

plot_indx, 

time_x, 

time__y, 

nbr_x_axis, 

nbr_ y_axisr 

nbr_y, 

nbr_x, 

active, 

nb  r _ms  i d_  r e c , 

nb  r_p  1 o t _ms  i d , 

univ_f ile; 

*fopen  ( ) , 

*fp  - 0; 


/*  plot  file  name 
/*  universal  plot  file  name 

/*  low  scale  values 

/*  high  scale  values 

/*  type  of  scale  Time  or  Number 


/*  number  of  msid  records 
/*  number  of  msids  to  plot 
/*  YES,  if  universal  file  exists 


* r* 
*/ 
*/ 


*/ 

*/ 


Top; 

dm_shmemory  *Dm_Address  ; 

/* 

display 

manager  shm 

*/ 

Disp_Num; 

/* 

display 

manager  number 

*/ 

errno; 

Disp_Path [DNAME_LEN]  , 

/* 

default 

display  path 

★ 

P!ot_Path [DNAME  LEN] ; 

/* 

default 

plot  path 

*/*v 

int  unv_plot  ( ) 

{ 

D (printf  ("START  unv_j>lot\n")  ) ; 

/* 

* Save  display  pointer. 

*/ 

display  - &Dm_Address->display  [Disp_Num]  ; 
display->disp_j5ause  - YES; 


/* 

* 

*/ 


Remain  in  a loop  receiving  the  plot  name  until  either  ESCAPE  is  selected 


} 


unv_menu  ( ) ; 

D (printf ( "END  unv_plot\n") ) ; 
return  ( 0 ) ; 
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/******************************************************************************* 

* MODULE  NAME:  unv__menu 

★ 

* This  function  presents  the  menu  which  allows  the  universal  plot  to  be 
******************************************************************************/ 


static  int  unv_menu  ( ) 

1 

register  int  i; 

Widget  shell*  form,  f plot,  f xy,  f cmd; 

Arg  args [10]; 

XtCallbackProc  cb_unv(); 

XEvent  event ; 

D (printf ("START  unv_menu\n" ) ) ; 


/* 

* Create  the  shell  widget . 
*/ 


D(printf("  Creating  shell\n")); 

i - 0;  J 

shell  “ tui create trans shell  ( "Define  Universal  Plot",  args,  i ) ; 

/* 

* Create  the  main  form. 

*/ 


D(printf<"  Creating  forms\n")); 
i - 0; 


form 

- 

tui_create_ 

form 

( 

shell, 

"form”, 

TRUE, 

args. 

i 

) ; 

f_plot 

- 

tui_create_ 

form 

< 

form, 

” f plot  ** , 

FALSE, 

args. 

i 

) ; 

f_xy 

« 

tui_create_ 

form 

< 

form, 

wf_xy” , 

FALSE, 

args. 

i 

) ; 

f_ms  id 

= 

tui_create_ 

form 

< 

form. 

"f  msid”, 

FALSE, 

args. 

i 

) ; 

f_cmd 

— 

tui_create_ 

form 

< 

form. 

" f _cmd" , 

FALSE, 

args. 

i 

) ; 

Create 

all  widgets. 

*/ 

i = 0; 

D(printf("  Creating  plot  file  widgets\n") ) ; 

tui_create_label  ( fjplot,  "ljplot",  "Plot  File",  args,  i ); 

t plot  = tui_create_text  ( f_plot,  "t_plot",  "",  DNAME_LEN- 1 , XmSINGLE_LINE_EDIT, 

TRUE,  args,  i ) ; 


i = 0; 

D (printf ("  Creating  xy  widgets\n" ) ) ; 


tui_create_label 

< 

f_xy, 

"1  xlow", 

" Low 

X 

Scale", 

args. 

i 

) ; 

tui_create_label 

< 

f_xy. 

"1  xhigh" 

, "High 

X 

Scale", 

args. 

i 

) ; 

tui_create__label 

( 

f_xy. 

"1_ ylow". 

" Low 

Y 

Scale", 

args, 

i 

) ; 

tui_create_label 

( 

f_xy. 

"l_yhigh" 

, "High 

Y 

Scale", 

args. 

i 

) ; 

t xy  id  3 tui_create_text 

( f_xy, 

"t  xy_id" , 

o. 

XmS INGLE_L I NE_ED I T , FALSE 

args,  i 

) ; 

t xlow  “ tui_create_text 

( f_xy. 

"t_xlow" 

t 

14, 

XmS  INGLE_L INE_ED IT , TRUE, 

args,  i ) ; 
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t_xhigh  - tui_create_text  ( f_xy,  ”t_xhigh",  "",  14,  XmS INGLE_LINE_ED IT , TRUE, 

args,  i ) ; 

t_ylow  - tui_create_text  ( f_xy,  "t_ylown,  14,  XmS INGLE_L INE_ED I T , TRUE, 

args,  i ); 

t_yhigh  = tui_create_text  ( f_xy,  "t_yhigh",  "",  14,  XmS INGLE_LINE_ED I T , TRUE, 

args,  i ) ; 


0; 


D (printf <" 

Creating  MSID  widgets\n”) ) ; 

tui_create_ 

label 

< 

f_msid,  "l_msid", 

"MSID”, 

args. 

i 

> / 

tui_create_ 

"label 

< 

f_msid,  "l_src". 

"Source” , 

args. 

i 

) 

tui_create_ 

[label 

< 

f_ms id , ” 1 s ample " , 

” Sample”, 

args, 

i 

) ; 

tui_create_ 

label 

< 

f__msidf  "l^axia^no”. 

"Axis  #”, 

args. 

i 

) ; 

tui_create_ 

"label 

< 

f_msidf  "l_xory" , 

"X  or  Y", 

args, 

i 

) ; 

tui_create_ 

"label 

< 

f_msid,  M l_msid_p” , 

"Pair  MSID", 

args. 

i 

) ; 

tui_create_ 

"label 

( 

f_msid,  ”l_src_p", 

"Pair  Source", 

args. 

i 

) ; 

tui_create_ 

"label 

< 

f _ms  id,  w 1_ s amp  1 e_p  " , 

"Pair  Sample", 

args. 

i 

) ; 

tui_create__ 

"label 

( 

f _ms  id,  " l_a  x i 3_nojp  " , 

"Pair  Axis  #", 

args. 

i 

) ; 

i - 0; 

t_msid_id  - tui_create_text  ( f_msid,  "t_msid_id",  "",  0, 

XmSINGLE_LINE_EDIT,  FALSE,  args,  i ) ; 
t_msid  - tui_create_text  ( f_msid,  "t_msid”,  MS ID_LENGTH , 

XmSXNGLE_LINE_EDIT,  TRUE,  args,  i ) ; 
t_src  - tui_create_text  ( f_msid,  "t_src",  3, 

XmSINGLE_LINE_EDIT,  TRUE,  args,  i ) ; 
t_msid_p  - tui_create_text  ( f_msid,  "t_msid_p",  "",  MS1D_LENGTH, 

XmSINGLE_LINE_EDIT,  TRUE,  args,  i ) ; 
t_src _p  - t u i_c r e a t e_t ext  < f_msid,  "t_srcjp",  3, 

XmS INGLE_LINE_ED IT , TRUE,  args,  i ) ; 


r_sample 

r_sample_p 

r_xory 


tui_create_rb  ( f_msid, 
tui_create_rb  < f_msid, 
tui_create_rb  ( f_msid. 


r_sample",  samples,  2, 
r_sample_p",  samples,  2, 
r_xo  ry " , x_and_y , 2 , 


samples [0],  args,  i ); 
samples [0],  args,  i ); 
x_and_y [ 0 ] , args,  i ); 


D (printf (”  Creating  Selection  widgets\n") ) ; 

s_axis_no  - tui_create_sel  ( f_msid,  "s_axis_no",  list,  0, 
s_axis_no_p  - tui_create_sel  ( f_msid,  "s_axis_no_p",  list,  0, 


"Axis  #s" , args,  i ) ; 
"Axis  #s",  args,  i ) ; 


i - 0; 

D (printf ("  Creating  separators\n") ) ; 

XtManageChild  ( XmCreateSeparator  ( form,  "sepO",  args,  i ) ) 

XtManageChild  ( XmCreateSeparator  ( form,  "sepl",  args,  i ) ) 

XtManageChild  ( XmCreateSeparator  ( form,  "sep2",  args,  i ) ) 


i - 0; 

D(printf("  Creating  commands \n")); 


tui_create_pushbutton 

< 

f 

_cmd, 

"OK", 

cb_ 

_unv. 

(caddr_ 

t)  i. 

args, 

i 

) ; 

tui_create_jpushbutton 

( 

f~ 

_cmd, 

"Plot", 

cb 

unv. 

(caddr 

t)  2, 

args. 

i 

) ; 

tui_create_pushbutton 

< 

f’ 

_cmd, 

"Axis" , 

cb  unv. 

(caddr  t)3 

args, 

i 

) ; 

t u i_c  re a t e_pu  s hbu 1 1 on 

( 

f 

_cmd, 

"MSID", 

cb_ 

_unv, 

(caddr_ 

t)  4, 

args. 

i 

) ; 

tui_create_jpushbutton 

< 

f 

_cmd. 

"Cancel", 

cb_ 

unv, 

(caddr_ 

t)0. 

args. 

i 

) ; 

tui__createjushbutton 

( 

f 

_cmd. 

"Help", 

cb_ 

unv. 

(caddr_ 

t)  5, 

args, 

i 

) ; 

/* 

* Put  all  input  widgets  in  a tab  group. 
*/ 


XmAddTabGroup 
XmAddTabGroup 
XmAddTabG  roup 
XmAddTabGroup 


( t plot  ) ; 

( t_xlow  ) ; 

( t_xhigh  ) ; 

( t _ylow  ) ; 
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XmAddTabGroup  ( t_yhigh  ) ; 

XmAddTabGroup  ( t__msid  ) ; 

XmAddTabGroup  ( t_src  ) ; 

/*  XmAddTabGroup  ( resample  );*/ 

/*  XmAddTabGroup  { s_axis_no  );*/ 

/*  XmAddTabGroup  ( r_xory  );*/ 

XmAddTabGroup  ( t_msid ) ; 
XmAddTabGroup  ( t_src_p  ) ; 


/*  XmAddTabGroup  ( r_sample_p  );*/ 
/*  XmAddTabGroup  ( s_axis_no_p  );*/ 


/* 

* Realize  and  popup  the  shell. 
*/ 


XtRealizeWidget  { shell  ) ; 
XtPopup  ( shell.  None  ) ; 
set^omap  ( shell  ) ; 


/* 

* Wait  until  the  user  finishes  with  the  popup. 
*/ 


flag  - -1; 

while  < flag  — -1  ) { 

XtNext Event  ( & event  ) ; 

XtDispatchEvent  { fievent  ) ; 

> 

XtDestroyWidget  ( shell  ) ; 


* Return  the  value  selected  by  the  user  (0  is  for  not  verified,  1 is  for 

* verified. 

*/ 


} 


return  ( flag  ) ; 
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/★****************************************************************************** 

* MODULE  NAME:  cb_unv 

* 

* This  function  processes  all  menu  callbacks. 

a*****************************************************************************/ 


/*  ARGSUSED  */ 

static  XtCallbackProc  cb_unv 

Widget  w; 

caddr_t  closure, 

*calldata; 

{ 

D (printf ("START  cb_unv\n" 

/* 

* Process  OK  button. 

*/ 


( wf  closure,  calldata  ) 

/*  Set  to  widget  which  in  which  callback  originated. 

/*  Indicates  selected  command. 

/*  Widget-specific  information. 


>); 


if  ( (int) closure  — 1 ) { 

D (printf ("  OK\n") ) / 

flag  - (int ) closure; 

D (printf ("  FP  is  %d\n",fp)); 

if  ( fp  &&  save_xy  ( ) — 0 &&  save_msid  ( ) — 0 ) 
process_ok  ( ) ; 

/* 

* Process  PLOT  button. 

*/ 


*/ 

*/ 

*/ 


} else  if  ( (int) closure  — 2 ) { 

D (printf (”  PLOT\n") ) ; 
if  ( process_plot  ( ) — 0 ) { 
ptr_axis  - ptr_msid  * 0; 
display_xy  ( ) ; 
display_msid  ( ) ; 

) 


/* 

* Process  X/Y  button. 
*/ 


} else  if  ( (int) closure  — 3 ) { 

D (printf  <"  X/Y\n”) ) ; 

if  ( save_xy  ( ) -«  0 ) { 

ptr_axis++; 

if  ( ptr_axis  " nbr_x  ) 
ptr_axis  » 0; 
display_xy  ( ) ; 

} 


/* 

* Process  MSID  button. 
*/ 


} else  if  ( (int) closure  “ 4 ) { 

D (printf (”  MSID\n") ) ; 
if  ( save_msid  ( ) ~ 0 ) { 
ptrjmsid++; 

if  ( ptr_msid  — nbr_msid_rec  ) 
ptr_msid  - 0; 
display_jnsid  ( ) ; 


/* 

* Process  CANCEL  button. 
*/ 


} else  if  < (int) closure  --  0 ) { 

flag  - (int) closure; 


* If  help  button  was  selected,  display  appropriate  help  text. 
*/ 


} else  if  ( (int) closure  ““  3 ) 
cb_help  ( 0,  21,  0 ) ; 

D(printf ("END  cb_unv\n") ) ; 
return; 
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* MODULE  NAME:  proces3_plot 

★ 

* This  function  processes  entry  of  a plot  file  name. 

************n**H*******************n*************H*********H*************/ 

static  process_plot  ( ) 

{ 

register  int  i,  j; 

int  acc, 

x_cnt , 

Y_cnt, 

match, 

restricted; 

char  s [ 80] , 

pl_name  [DNAME_LEN  +5]; 

Arg  args [ 10 ] ; 

D (printf ("START  processjplot \n" ) ) ; 

* Check  if  a file  is  already  open.  If  so,  verify  that  the  user  wants  to  try  to  open 

* a new  file.  * 

*/ 


if  { fp  &&  tui_display_question  ( Top,  "Define  Universal  Plot", 

"Plot  file  already  open  - Are  you  sure  you  want 
-1,  NULL,  0 ) — 0 ) 

return  ( -1  ) ; 


to  open  another?". 


/* 

* Retrieve  the  entered  filename  and  validate  it. 
*/ 


strcpy  ( pl_name,  XmTextGetString  ( t_plot  ) ); 
if  { val_fn  { pl_name,  YES  ) — 0 ) 
return  ( -1  ) ; 


/* 

k 

k 

★ 

* 

k 

*/ 


Rules  for  plot  name  validation  are  if  no  directory  is  specified,  then  the  length 
must  be  less  than  or  equal  to  N0_PATH_DISP . If  a directory  is  specified  and  the 
WEX  mode  is  OPERATIONAL  then  the  plot  must  reside  under  the  "/WEX"  directory. 

If  the  user  does  not  type  in  a plot  name  and  the  ESCAPE  key  was  not  selected* 
an  advisory  come  out  stating  that  the  plot  name  is  invalid. 


if  ( pl_name[0]  !=  '/'  ) { 

strcpy  ( unv_name,  Plot_Path  ) ; 
strcat  ( unv_name,  pl_name  ) ; 
strcpy  ( plot_name,  Disp_Path  ); 
strcat  ( plot_name,  pl_name  ) ; 

} else  { 

if  ( strncmp  ( pl_name,  "/WEX/",  5 ) ==  0 ) { 

get_fn  < pl_name,  plot_name  ) ; 
strcpy  ( unv_name,  Plot_Path  ) ; 
strcat  ( unv_name,  plot_name  ) ; 
strcpy  ( plot_name,  pl_name  ) ; 

} else  { 

strcpy  ( unv_name,  pl_name  ); 
strcpy  ( plot_name,  pl_name  ) ; 

} 


• # 


} 
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* Search  the  active  plot  file  list.  If  the  plot  is  active,  then  the  user 

* will  only  be  allowed  to  update  the  scale  values  for  the  axes . 

*/ 


0 ) { 


active  * match  ® NO; 

i - 0; 

while  ( ( i < MAX_PLOTS  ) &&  ( match  ” NO  ) ) { 

if  ( < strcmp  { Dm_Address->plots . act_plots [i] , plot_name  ) ) 

match  = active  - YES; 
tui  msg  ( M_YELLOW,  "Plot  is  active  - no  msid  information  updates  allowed"  ) 

} else 
i++; 

} 


* First  attempt  to  read  from  an  already  existing  universal  plot  file.  If  one 

★ does  not  exist,  then  read  in  the  plot  definition  file. 

*/ 


univ_file  - YES; 

strcpy  ( sav_unv_name,  unv_name  ) ; 
strncat  ( unv_name,  ".unv\0",  5 ); 
fp  ■>  fopen  ( unv_name,  "r+"  ) ; 
if  < fp  --  NULL  ) { 

univ_f ile  - NO; 

strncat  { plot_name,  ".plt\0",  5 ); 
fp  - fopen  ( plot_name,  "r"  ) ; 
if  ( fp  --  NULL  ) { 

tui_msg  ( M_YELLOW,  "Error  %d  on  opening  plot  file  %s",  errno,  plot_name  ); 
return  ( -1  ) ; 

} 

} 


/* 

* Check  the  version. 

*/ 

fscanf  { fp,  "%d",  Sversion  ) ; 
if  { version  > VERSION  ) { 

tui_msg  ( M_YELLOW,  "Incompatible  versions  - file  version  %d  s/w  version  %d", 
version,  VERSION  ) ; 

fclose  ( fp  ) ; 
return  ( -1  ) ; 

} 


fscanf 

< 

fP/ 

"%*51c"  ) ; 

/* 

skip  to  number  of  x axis 

*/ 

fscanf 

< 

fPr 

" %d",  &nbr_x  ); 

/* 

number  of  x axes 

*/ 

D (printf ( 

»» 

NUMBER  X AXIS  IS  %d\n” 

, nbr  x)  ) ; 

fscanf 

< 

fp/ 

"%d",  &nbr_y  ); 

/* 

number  of  y axes 

*/ 

fscanf 

( 

fP/ 

" %d" , &nbr_plot_msid 

) ; /* 

number  of  actual  msids 

*/ 

fscanf 

< 

fP/ 

"%d",  &nbr_msid_rec  ) 

; /*  number  of  msid  records  */ 

fscanf 

< 

fP/ 

"%*10c"  ) ; 

/* 

skip  to  access  code 

*/ 

fscanf 

( 

fP/ 

"%d",  &acc  ) ; 

fscanf 

< 

fP/ 

"%*31c"  ); 

/* 

skip  to  the  msid  info. 

* i 

/* 

* Check  the  access  restriction  code  to  see  if  the  plot  is  either  a Medical 

* or  Payload  restricted  plot.  If  the  plot  is  access  restricted  and  the 

* position  Id  does  not  match  the  access  restriction,  then  exit  out  of  this 

* routine. 

*/ 
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restricted  - chk_res  { acc,  display->pos_id  ); 
if  ( restricted  " YES  ) ( 

fclose  ( fp  ) ; 
return  ( -1  ) ; 

} 


D (printf ("  Past  restriction  check\nM)); 


/* 

* Read  in  the  msid  name,  sample  number,  the  source,  the  axis  type,  the  axis 

* number,  and  the  plot  msid,  if  the  plot  is  not  active. 

*/ 


'/ 


if  ( active  “ NO  ) { 

D (printf ("  Plot  inactive  ...  about  to  read  msid  records\n" ) ) ; 
for  ( i - 0;  i < nbr_msid_rec;  i++  ) { 

" %*3cM  ) ; /*  skip  to  msid  name 

"%s",  msid_rec[i] .msid_name  ) ; 

%s\n",  msid_rec [i] .msid_name) ) ; 

"%s,f,  msid_rec  [i]  . sample  ); 

"%s",  ms id_rec [i] . source  ); 
if  ( version  >-  3 ) 

fscanf  ( fp,  w%*l0c"  ) ; /*  skip  ppl  information  */ 

”%3n,  msid__rec  [i]  .axis  ); 

"%hd",  & ( msid__rec  [i]  . axis_nbr  ) ); 

”%s",  msid^rec [i] ,plot_msid  ); 

"%s",  s )/  /*  read  to  skip  correctly  */ 

"%*77c"  ) ; /*  skip  to  next  msid  record  */ 

msid_rec [i] .plot_indx  - INVALID; 

D (printf ( n %s  %s  %s  %s  %d  %s\n",  msid_rec [i] .msid_name,  msid__rec [i] . sample 
msid_rec[i] .source,  msid_rec [i] . axis,  msid  rec[i].axis  nbr, 
msid_rec [i] .plot  msid) ) ; — 

) 


fscanf  ( fp, 
fscanf  ( fp, 
D (printf <" 
fscanf  ( fp, 
fscanf  ( fp, 


fscanf  ( fp, 
fscanf  ( fp, 
fscanf  ( fp, 
fscanf  ( fp, 
fscanf  { fp. 


D (printf <"  Past  msid  read\n")); 


/* 

* 

*/ 


Search  through  the  msids  for  msid  pairs. 


for  ( i - 0;  i < nbr_msid_rec;  i++  ) { 

if  ( msid_rec [i] .plot_indx  --  INVALID  ) { 

match  - NO; 

j “ i + 1; 

while  ( match  - NO  U j < nbr_msid_rec  ) { 
if  ( msid_rec [ j] .plot_indx  — INVALID  ) { 
if  ( ( strcmp  ( msid_rec [i] .msid_name, 

nisici_rec  [ j]  ,plot_msid  ) --  0 ) && 

( strcmp  ( msid_rec[i] .plot_msid, 

msid_rec [ j] .msid_name  ) ) — 0 ) { 
msid_rec [i] ,plot_indx  = j; 
msid_rec [ j] .plot_indx  * i; 
match  - YES; 

} else  { 
j++; 

} 

) else  { 

j++; 

} 

) 


} 


} 
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D (printf ( " Past  msid  pairs  search\n" ) ) ; 

/* 

* Plot  is  active  so  skip  over  the  msid  records. 

*/ 

} else  { 

D (printf  (”  Plot  active ...  skipping  msid  records\n”)  ) ; 
if  ( nbr__msid_rec  > 0 ) 
if  ( version  < 3 ) 

fseek  ( fp,  nbr_msid_rec  * 115,  SEEK_CUR  ) ; 

else 

fseek  ( fp,  nbr_msid_rec  * 125,  SEEK_CUR  ) ; 


* Read  in  the  high  and  low  scale  values  for  each  X and  Y axis. 


x_cnt  « Y_cnt  - time_ x * time_y  - nbr_x_axis  * nbr_y_axis  - 0; 

for  { i«0;  i < nbr__x  + nbr_y;  i++  ) { 

fscanf  ( fp, "%s",  s ) ; 

fscanf  ( fp,"%*5c"  ) ; /*  skip  to  scale  type  */ 

if  ( s [0]  — 'X'  ) { 

fscanf  ( fp, "%s", scale_type [x_cnt]  ) ; 
if  ( scale_type  [x_cnt]  [0]  -»  fTf  ) 
time_x  - YES; 

else 

nbr_x_axis  - YES; 

fscanf  ( fp, "%*12c"  ) ; /*  skip  to  scale  values  */ 

fscanf  ( fp, "%s", low_scale [x_cnt]  ) ; 
fscanf  ( fp, "%s", high_scale [x_cnt]  ) ; 
x_cnt++; 

} else  { 

fscanf  ( fp, "%s", scale_type [MAX_AXES  + y_cnt]  ) ; 
if  { scale_type [MAX_AXES  + y_cnt] [0]  --  'T'  ) 
timely  - YES; 

else 

nbr_y_axis  - YES; 

fscanf  ( fp, "%*12c"  ) ; /*  skip  to  scale  values  */ 

fscanf  ( fp, "%s", low_scale [MAX_AXES  + y_cnt]  ) ; 

fscanf  ( fp, "%s" , high_scale [MAX_AXES  + y_cnt]  ) ; 

y_cnt++; 

} 

fscanf  { fp,"%s",  s ) ; /*  read  to  skip  */ 

fscanf  ( fp, "%*24cn  ) ; /*  skip  to  next  record*/ 

> 

fclose  ( fp  ) ; 

D(printf("  Past  scale  read.. closed  file\n")); 


/* 

* Create  new  select  widgets. 
*/ 


XtDestroyWidget  ( s_axis_no  ) ; 

XtDestroyWidget  ( s_axis_no_p  ) ; 

s_axis_no  = tui_create_sel  ( f_msid,  "s_axis_no",  list,  nbr_x,  "Axis  #s",  args,  0) 
s_axis_no_p  - tui_create_sel  ( f_msid,  "s_axis_no_p",  list,  nbr_y,  "Axis  #s",  args,  0) 


D (printf ("  NUMBER  X AXIS  IS  %d\n" , nbr_x) ) ; 


D (print f ("END  procea3_plot”) ) ; 
return  ( 0 ) / 


} 
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/***************** ******************************************** ********* ********* 

* MODULE  NAME:  display_xy 

it 

* This  function  processes  selection  of  the  X/Y  button. 
******************************************************************************/ 


static  int  display_xy  ( ) 

{ 

char  s [80] ; 

D (printf ("  START  DISPLAY_XY\n") ) ; 

XmTextSetString  ( t_xy_id,  "test”  ) ; 

XmTextSetString  ( t_xlow,  low_scale  [ptr_axis  ] ) ; 

XmTextSetString  ( t_xhigh,  high_scale [ptr_axis  ] ); 

XmTextSetString  ( tjrlow,  low_scale  [ptr_axis  + MAX_AXES]  ) ; 

XmTextSetString  ( t_yhigh,  high_scale [ptr_axis  + MAX_AXES]  ); 

sprintf  ( s,  "Axis  %d  of  %d",  ptr_axis+l,  nbr_x  ); 
XmTextSetString  ( t_xy_id,  s ) ; 

D (printf (”  END  DISPLAY_XY\n") ) ; 
return  ( 0 ) ; 

> 
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* MODULE  NAME:  display_msid 

* 


* This  function  processes  selection  of  the  MSID  button. 

ik************************************************^^^^ 


static  int  display_msid  ( ) 
( 


char  s [ 8 0 ] ; 

short  local  time; 


D (printf ("  START  DISPLAY  MSID\n”) ) ; 

/* 

If  the  ms id  is  undefined  ( "ZZZZZZZZZZ"  ) , then  don't  display  the  msid.  If 

* the  maid  is  a local  time  msid,  then  set  a flag.  For  msids  that  are  local 

* time,  nothing  is  displayed  for  the  source  or  the  sample  number.  The 

* default  source  is  set  to  MTM  and  the  sample  number  is  set  to  Last. 

*/ 


local__time  * NO; 

if  ( strcmp  ( msid__rec  [ptr_msid]  .msid_name,  ’’ZZZZZZZZZZ"  ) 0 ) 

XmTextSetString  ( t_msid,  " " ) ; 
else  { 

XmTextSetString  ( t_msid,  msid_rec  [ptr_msid]  .msid_jname  ); 
if  { strong  ( msid_rec  [ptr__msid]  .msid_name,  "LOCAL  TIME"  ) 0 ) 

local_time  « YES;  ~ 

} 

if  ( local_time  ) 

XmTextSetString  ( t_src,  "MTM") ; 

else 

XmTextSetString  ( t__src,  ms id_rec [ptr_ms id] . source  ); 
if  ( local_time  ) 

tui_radio_set_value  ( r_sample,  samples [1]  ); 

else 

rac*io_j 3et_value  ( resample,  ms id_rec  [ptr_ms id]  . sample  ); 

radio_, set_value  { r_xory,  msid_rec  [ptr_msid]  . axis  ); 

sprintf  ( s,  "%d",  msid_rec  [ptr_msid]  . axis_nbr  ); 

XmTextSetString  ( s_axis_no,  s ) ; 


* ll  P^0t  *3  undefined  < " ZZZZZZZZZZ " ),  then  don't  display  the  msid 

If  the  plot  msid  is  a local  time  msid,  then  set  a flag.  For  msids  that  are 


_ , T • S mg  XUO  L Hi 

local  time,  nothing  is  displayed  for  the  source  or  the  sample  number, 
default  source  is  set  to  MTM  and  the  sample  number  is  set  to  Last. 

* / 


The 


local_time  * NO; 

plot_indx  * msid_rec  [ptr_msid]  .plot_indx; 

if  ( ( strcmp  ( msid__rec  [plot__indx]  .msid  name,  "ZZZZZZZZZZ"  ) ) ==  n ) 
XmTextSetString  ( t_msid_p,  " " ) ; 
else  “ 

XmTextSetString  ( t_msid_p,  msid_rec  [plot_indx]  .msid_name  ); 

if  ( strcmp  ( msid_rec  [plot_indxJ  . msid  name,  "LOCAL  TIME"  ) ===  0 ) 
local_time  = YES; 


if  ( local_t ime  ) 
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XmTextSetString  ( t_src_p,  "MTM” ) ; 

else 

XmTextSetString  ( t_src_p,  msid_rec [plot_indx] . source  ); 
if  ( local_time  ) 

XmTextSetString  ( t_src_p,  "MTM"); 
if  ( local_time  ) 

tui_radio_set_value  ( r_sample_p,  samples [1]  ); 

else 

tui  radio_set_value  ( r_sample_p,  msid_rec [plot_indx] . sample  ) 

sprintf  ( s,  "%d",  msid_rec [plot_indx] . axis_nbr  ); 

XmTextSetString  ( s_axis_no_p,  s ) ; 

sprintf  ( s,  "MS ID  %d  of  %d",  ptr_msid+l,  nbr_msid_rec  ); 
XmTextSetString  ( t_msid_id,  s ) ; 

D (printf ("  END  DISPLAY_MSID\n" ) ) ; 
return  ( 0 ) ; 


* MODULE  NAME:  save_xy 

* 


* This  function  saves  X/Y  values. 

************* *****************************  ************************** ********Ait/ 


static  int  save_xy  ( ) 

( 

register  char  *p; 

int  i, 

offset  ■ 0; 

char  s [80]; 

D (printf ("  START  SAVE  XY\n")); 

/* 

* Validate  the  low  scale  value. 

*/ 


for  ( i - 0;  i < 2;  i++  ) { 

strcpy  ( s,  p - XmTextGetString  ( ( offset  — 0 ) ? t xlow  : t ylow  ) ) • 

free  ( p ) ; ~ 

if  ( strlen  ( s ) <—  0 ) { 

tui_msg  ( M_YELLOW,  "Invalid  low  scale  value"  ); 
return  ( -1  ) ; 

| 

if  { scale type [offset  + ptr_axis] [0]  “*■  ' T'  ) { 

if  ( time_val  ( s ) — NO  ) { 
tui_msg  ( M_YELLOW, 

time  - use  total  seconds/  ddd:hh:mm:ss/  or  a subset"  ) 
return  { -1  ) ; 

) 

) else  if  ( limit_val  ( s ) — NO  fiS  dec_val  ( s ) --  NO  ) { 
tui_msg  ( M_YELLOW, 

"Invalid  numeric  - use  scientific,  floating  point  or  int"  ) • 
return  ( -1  ) ; 

} 

strcpy  ( low_scale [offset  + ptr_axis] , s ); 


/* 

* Validate  the  high  scale  value. 
*/ 


strcpy  ( s,  p = XmTextGetString  ( ( offset  ==  0 ) ? t xhigh  : t yhigh  ) ); 

free  ( p ) ; ” — ^ * 

if  < strlen  ( s ) <-  0 ) { 

tui__msg  ( M_YELLOW,  "Invalid  high  scale  value”  ) ; 
return  ( -1  ) ; 

if  { scale_type [offset  + ptr_axis] [0]  «-  ' T ' ) { 
if  ( time_val  ( 3 ) — NO  ) { 

tui_msg  ( M__YELLOW, 

Invalid  time  - use  total  seconds,  ddd:hh:mm:ss,  or  a subset"  ) 
return  ( -1  ) ; 

} 

} else  if  ( limit^val  ( s ) **  NO  &&  dec_val  ( s ) =*  NO  ) { 

tui_msg  ( M_YELLOW,  ™ 

"Invalid  numeric  - use  scientific,  floating  point  or  int"  ) * 
return  ( -1  ) ; 

} 

strcpy  ( high_scale  [offset  + ptr_axis],  s ); 
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/★a******************************************************^^^ 

* MODULE  NAME:  3ave_m3id 

★ 

* This  function  saves  MSID  values. 

************************H****H******n*****H**H**n******* 
static  int  save_msid  ( ) 


{ 


register  char  *p; 


int  local_time, 

of f set , 
cnt , 

new_axis  nbr; 


char  s [80] , 

realms rc [4] ; 

D (print f ("START  SAVE_MSID\n”) ) ; 


piot_indx  - msid_rec [ptr_msid] .plot  indx; 

★ 

* Receive  the  usee  input  for  the  MSID  to  plot.  If  the  user  does  not  input 

* anything  for  the  MSID,  then  set  the  MSID  to  "ZZZZZZZZZZ"  ( undefined  ) If 

* the  user  inputs  " LOC AL_T IME " , then  check  to  see  if  the  plot  msid  is 

* LOCAL_TIME.  If  the  plot  msid  is,  then  reject  the  input.  If  no  axis  types 

* are  defined  for  the  type  of  msid  defined,  then  the  msid  is  rejected. 


D (printf ("  Checking  MSID\n") ) ; 
local_time  = NO; 

strepy  ( s,  p - XmTextGetString  ( t_msid  ) ) ; 
free  ( p ) ; 

if  ( strlen  ( s ) <-  0 ) 

strepy  ( s,  "ZZZZZZZZZZ"  ) ; 

if  ( stremp  { s,  " LOC AL_T IME " ) ~ > 0 ) { 

if  ( stremp  ( msid_rec  tplot_indx]  .msid_name,  "LOCAL  TIME”  ) =»■*  0 ) { 

tui_msg  ( M_YELLOW,  "Cannot  plot  time  against  time  - input  an  msid"  ) 
return  ( -1  ) ; 

} else  if  ( t ime_x  — NO  &&  time_y  =»»  NO  ) { 

tui_msg  ( M_YELLOW,  "Invalid  MSID  selection  - no  time  axes  defined"  ) 
return  ( -1  ) ; 

} 

} else  if  ( nbr_x_axis  — NO  &&  nbr_y_axis  --  NO  ) { 

*'u^— 1 m39  ( M_YELLOW,  "Invalid  MSID  selection  - no  number  axes  defined"  ) • 
return  ( -1  ) ; 


} 

strepy  ( msid_rec [ptr_msid] .msid_name,  s ); 
strepy  ( msid_rec [plot_indx] .plot_msid,  s ); 


If  the  user  input  LOCAL_TIME,  clear  out  the  sample  and  source  fields. 
Set  a flag  so  the  user  will  not  tab  to  the  next  two  fields. 


D(printf("  Setting  Source  and  Sample  for  LOCAL  TIME\n") ) ; 
if  ( Stremp  ( s,  " LOCAL_T IME " ) ==  0 ) { 

local_time  = YES; 


XmTextSetString  { t_src,  "MTM”  ); 
strcpy  ( msid_rec  [ptr_msid]  .source,  "MTM”  ); 
tui_ radio_set_value  { r_sample,  11 L”  ) ; 
strcpy  ( msid_rec  [ptr__msid]  .sample,  ”LM  ) ; 


/* 

* Source. 
*/ 


D <printf (”  Checking  Source\n") ) ; 
if  ( local_time  “ NO  ) { 

strcpy  ( s,  p - XmTextGetString  ( t_src  ) ) ; 

free  { p ) ; 

if  ( val_src  ( 3,  real_src  ) — NO  ) { 

tui  msg  ( M_YELLOW,  "Invalid  source  name  %s",  s ); 
return  ( -1  ) ; 

1 

strcpy  ( msid_rec  [ptr_msid]  .source,  s ); 

} 

/* 

* If  not  local  time,  retrieve  the  selection. 

*/ 


D(printf("  Checking  Sample\n”) ) ; 
if  ( local_time  » NO  ) 

strcpy  { msid_rec  tptr_msid]  .sample,  tui_radio_get_value  ( resample  ) ); 


* Receive  the  user  input  for  X or  Y axis.  Match  the  axis  type  to  the  msid 

* type.  If  no  compatible  axis  types  are  defined  for  the  msid  and  axis  pair 

* then  reject  the  axis  type  input. 

*/ 


D{printf{"  Checking  X/Y  Axis\n")); 

strcpy  ( msid_rec [plot_indx] .axis,  tui_radio_get_value  ( r_xory  ) ); 
if  { msid_rec  [ptrjmsid]  .axis  [0]  — 'X'  ) { 

if  ( local_time  --  YES  ) { 

if  ( time_x  — YES  ) { 

strcpy  ( msid_j:ec  [plot_indx]  .axis,  "Y"  ); 
offset  - 0; 

} else  { 

tui  msg  { M_YELLOW,  "No  X axes  have  been  defined  as  time  scale"  ) ; 
return  ( -1  ) ; 

} 

} else  { 

if  ( nbr__x__axis  “ YES  ) { 

strcpy  ( msid_rec  [plot_indx]  . axis,  "Y"  ); 
offset  - 0; 

} else  { 

tui_msg  ( M_YELLOW,  "No  X axes  have  been  defined  as  number  scale"  ) 
return  { -1  ) ; 

} 

} 

/* 

* Y axis . 

*/ 

} else  { 

if  ( local_time  “ YES  ) { 

if  ( time_y  “ YES  ) { 

strcpy  ( msid__rec  [plot_indx]  . axis,  "X"  ); 
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offset  - MAX_AXES; 

} else  ( 

tui_msg  ( M_YELLOWr  "No  Y axes  have  been  defined  as  time  scale"  ) ; 
return  ( -1  ) ; 

} 

} else  { 

if  ( nbr_y_axis  — YES  ) { 

strcpy  { msid_rec  [plot_indx]  .axis,  "X"  ); 

Offset  - MAX_AXES; 

} else  { 

tui_msg  ( M_YELLOW,  "No  Y axes  have  been  defined  as  number  scale"  ) 
return  ( -1  ) / 

} 

} 

> 


Receive  the  user  input  for  the  axis  number.  Validate  that  the  axis  number 
is  within  range  for  the  number  of  x or  y axis.  Validate  also  that  the 
axis  type  ( number  or  time  ) is  compatible  with  the  msid  type. 


D (printf ("  Checking  Axis  Number \n") ) ; 
if  ( msid_rec [ptr_msid] .axis [0]  — • x'  ) 
cnt  ■ nbr__x; 

else 

cnt  ■ nbry ; 

strcpy  ( s,  p - XmTextGetString  ( s_axis_no  ) ) ; 
free  { p ) ; 

if  { strlen  ( s ) > 0 ) { 

new__axis_nbr  « atoi  ( s ) ; 

if  ( new_axis_nbr  > 0 &&  new_axis_nbr  <«  cnt  ) { 
new_axis_nbr  « atoi  { s ) ; 
if  ( local_time  » YES  ) { 

if  { scale^type [of f set  + new__axis_nbr  - 1]  [0]  ~~  't 9 ) { 
msid_jrec [ptr_msid] . axis_nbr  - new_axis  nbr; 

} else  { 

tui_msg  { M^YELLOW,  "Invalid  axis  - select  a time  scale  axis"  ) • 
return  ( -1  ) ; 

} 

} else  { 

if  ( scale_type  [of  f set  + new_axis__nbr  - 1]  [0]  fN'  ) { 
msid_rec  [ptr_msid]  .axis_nbr  - new_axis  nbr; 

} else  { 

tui_msg  ( M_YELLOW,  "Invalid  axis  - select  a number  scale  axis" 
return  ( -1  ) ; 

} 

> 

} else  { 

tur_msg  ( M_YELLOW,  "Invalid  axis  # specified  - input  between  1 and  %d", 
return  ( -1  ) ; ' 

} 

} else  { 

tui_msg  ( M_YELLOW,  "Invalid  axis  # specified  - input  between  1 and  %d"  cnt 
return  ( -1  ) ; 


/* 

* Receive  the  user  input  for  the  plot  MSID.  if  the  user  does  not  input 
anything  for  the  MSID,  then  set  the  MSID  to  "ZZZZZZZZZZ"  ( undefined  ) If 

* the  U3er  inPuts  "LOCAL_TIME",  then  check  to  see  if  the  msid  to  plot  against 
is  LOCAL_TIME . If  the  msid  is,  then  reject  the  input.  If  no  axis  types 


) ? 


cnt 


) ; 
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* are  defined  for  the  type  of  msid  defined,  then  the  msid  is  rejected. 
*/ 


D(printf("  Checking  Plot  MSID\n")); 
local_time  - NO; 

strcpy  ( s,  p * XmTextGetStrmg  ( t msid p ) ) ; 

free  ( p ) ; 


if  ( strlen  ( a ) <■  0 ) 

strcpy  ( s,  "ZZZZZZZZZZ"  ); 


if  ( strcmp  ( 3 , ” LOCAL  JT IME " ) “ 0 ) { 

if  ( strcmp  ( msid_rec  [ptrjmsid]  .msid_name,  " LOCALJT IME " ) 0 ) { 

tui  msg  ( MJYELLOW,  "Cannot  plot  time  against  time  - input  an  msid"  ) ; 

return  ( -1  ) ; 

} else  { 

if  ( msid_rec [plot_indx] .axis [0]  — 'X'  ) { 

if  ( time_x  ™ NO  ) { 

tui_msg  ( MJfELLOW,  "No  X time  axes  defined  - select  an  MSID"  ) ; 
return  ( -1  ) ; 

} 

} else  { 

if  ( time__y  — NO  ) { 

tui_msg  ( M_YELLOW,  "No  Y time  axes  defined  - select  an  MSID"  ) ; 
return  ( -1  ) ; 

} 


} 


} else 
if 


{ 


{ msid_rec [plot_indx] .axis [0]  --  9 Xf  ) { 

if  ( nbr_x_axis  — NO  ) { 

tui_msg  ( M_YELLOW,  "No  X number  axes  defined  - select  LOCALJTIME"  ) 

return  ( -1  ) ; 

} 

} else  { 

if  < nbr_y_axis  “ NO  ) { 

tui_msg  { M__YELLOW,  "No  Y number  axes  defined  - select  LOCALJTIME"  ) 
return  ( -1  ) ; 

) 

} 

} 

strcpy  ( msid_rec [ptr_msid] .plotjusid,  s ); 
strcpy  ( msid_rec  [plot_indx]  .msid_namef  s ); 


/* 

* If  the  user  input  LOCALJTIME,  clear  out  the  sample  and  source  fields. 

* Set  a flag  so  the  user  will  not  tab  to  the  next  two  fields. 

*/ 

D (printf  < " Setting  Source  and  Sample  for  LOCAL  TIME\n") ) ; 
if  ( Strcmp  ( S,  "LOCALJTIME"  ) — 0 ) { 

local_time  - YES; 

XmTextSetString  ( t_src_p,  "MTM"  ); 
strcpy  ( ms id_rec [plot_indx] . source,  "MTM"  ); 
tui_radio__set_value  ( r_sample_p,  "L"  ) ; 
strcpy  ( msid_rec [plot_indx] . sample,  "L"  ); 

} 

/* 

* Receive  the  user  input  for  the  axis  number  of  the  plot  msid.  The  axis  type 

* X or  Y was  determined  when  the  axis  type  was  input  for  the  main  msid. 

* Validate  that  the  axis  number  is  within  range  for  the  number  of  x or  y 

* axis.  Validate  also  that  the  axis  type  ( number  or  time  ) is  compatible 

* with  the  msid  type. 
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D (printf ("  Checking  Plot  Axis  Number  \n" ) ) ; 
if  ( msid_rec [plot_indx] .axis [0]  “ 'X'  ) { 
cnt  * nbr_x; 
offset  - 0; 

} else  { 

cnt  - nbr_jy; 
offset  - MAX_AXES ; 

} 

strcpy  ( s,  p * XmTextGetString  ( s__axis_no_p  ) ) ; 
free  ( p ) ; 

if  ( strlen  ( s ) > 0 ) { 

new_axis_nbr  - atoi  ( s ) ; 

if  ( new_axis_nbr  > 0 &&  new_axis_nbr  <»  cnt  ) { 
if  ( local_time  — YES  ) { 

if  ( scale_type [offset  + new_axis_nbr  - 1] [0]  — 'T'  ) { 

msid_rec [plot_indx] ,axis_nbr  * new_axis_nbr ; 

} else  { 

tui^jnsg  ( M__YELLOW,  " Invalid  axis  - select  a time  scale  axis*'  ) ; 
return  ( -1  ) ; 

} 

} else  { 

if  { scale_type [offset  + new_axis_nbr  - 1]  [0]  — ' n'  ) { 
msid^zec [plot_indx] .axis_ nbr  - new_axis_nbr; 

} else  { 

( M_YELL0W/  "Invalid  axis  — select  a number  scale  axis" 
return  ( -1  ) ; 

} 

> 

} else  { 

tui_msg  ( M_YELLOW,  "Invalid  axis  # specified  - input  between  1 and  %d”, 
return  < -1  ) ; 

} 

} else  { 

tui_msg  ( M_YELL0W,  "Invalid  axis  # specified  - input  between  1 and  %d",  cnt 
return  ( -1  ) ; 

} 


/* 

* Source  user  input  for  plot  msid  if  msid  is  not  local  time. 
*/ 


D (printf ( " Checking  Source\n")); 
if  ( loc airtime  — NO  ) { 

strcpy  ( s,  p - XmTextGetString  { t_src_p  ) ); 
free  < p ) ; 

if  ( val_src  < p,  3 ) --  NO  ) { 

tui_msg  ( M^YELLOW,  "Invalid  source  name  %s",  p ) ; 
return  { -1  ) ; 

} 

strcpy  ( msid_rec [plot_indx] .source,  p ); 


/* 

* Sample  number  input  for  plot  msid. 
*/ 


D (printf ("  Checking  Sample\n”) ) ; 

strcpy  ( m3id_rec[ptr_msid] .plot_samplef  tui_radio_get_value  < r_sample_p  ) ) 
D (printf ("END  SAVE_MSID\n") ) ; 


cnt 


) ; 
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return  ( 0 ) ; 


unv_plot.c 


/a****************************************************************************** 

* MODULE  NAME:  process_ok 

★ 

* This  function  processes  selection  of  the  OK  button, 

a*****************************************************************************/ 

static  int  process_ok  { ) 

{ 

register  int  i; 

int  x_cnt , 

y_cnt ; 

char  s [80] / 

D (pr int f ("START  PROCESS_OK\n" ) ) ; 

/* 

* If  no  error  has  occurred  and  the  user  has  not  selected  ESCAPE,  then  if  the 

* universal  plot  file  does  not  exist,  then  copy  the  .pit  to  .unv.  Open  the 

* file. 

*/ 

if  ( univ_f ile  !-  YES  ) { 

sprintf  ( s,  "cp  %s  %s",  plot_name,  unv_name  ) ; 
if  ( system  ( s ) !-  0 ) { 

tui_msg  ( M_YELLOW,  "Error  on  creating  the  universal  plot  file”  ) ; 
return  ( -1  ) ; 

} 

} 

fp  ■ fopen  ( unv_name,  ”r+"  ) ; 
if  { fp  — NULL  ) { 

tui_msg  ( M__YELLOW,  "Error  %d  on  opening  the  universal  plot  file"  ) ; 
return  ( -1  ) ; 

} 

/* 

* Write  the  user  defined  information  into  the  universal  file.  Skip  over  the 

* plot  file  header  and  write  the  axis  information  and  then  the  msid 

* information. 

*/ 

if  ( active  --  YES  ) { 

if  ( version  < 3 ) 


f seek 

else 

( fp,  105  + 

( nbr_msid_rec 

* 115  ), 

SEEK_ 

_CUR 

f seek 

} else  { 

( fp,  105  + 

( nb  r_ms  i d_r e c 

* 125  ), 

SEEK_ 

CUR 

/* 

* Count  the  number  of  plot  msids  and  call  routine  to  alphabetically  sort  the 

* MSID' s and  then  write  the  alphabetized  MSID's  out  to  the  universal  file. 


nbr_j>lot_msid  = 0; 

for  ( i * 0;  i < nbr_msid_rec;  i++  ) { 

if  ( strcmp  ( msid_rec [i] .msid_name,  " LOCAL_T IME " ) !=  0 ) 

nbr_j?lot_ms  id++ ; 

} 

sprintf  ( s,  "%2.2d"/  nbr_jDlot_msid  ); 

f seek  ( fpr  57,  SEEK CUR  );/*  skip  to  start  of  msid  * records  */ 

fprintf  ( fp,  "%-2s",  s ) ; 

f seek  ( fp,  46,  SEEK_CUR  ) ;/*  skip  to  start  of  msid  * records  */ 
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sort  ms id  ( msid_rec,  nbr plot  msid,  nbr_msid_rec  ) ; 

for  ( i - 0;  i < nbr_msid_rec;  i++  ) { 

f seek  ( fp,  3,  SEEK_CUR  );/*  skip  to  msid  name  */ 
fprintf  ( fp,  "%-10s  ",  msid_rec [i] .msid_name  ); 
fprintf  ( fp,  "%-3s  ",  msid_rec [i] . sample  ); 
fprintf  ( fp,  "%-3s  ",  msid_rec [i] . source  ); 
if  ( version  >“  3 ) 

f seek  ( fp,  10,  SEEK_CUR  );/*  skip  ppl  information  */ 
fprintf  ( fp,  "%-ls  ",  msid_rec [i] .axis  ); 
sprintf  ( s,  "%d",  msid_rec [i] .axis_nbr  ); 
fprintf  ( fp,  "%-ls  ",  s ) ; 

fprintf  ( fp,  "%-10s  ",  msid_rec [i] .plot_msid  ); 
f seek  ( fp,  78,  SEEK_CUR  );/*  skip  to  next  msid  * record  */ 

) 

) 

/* 

* Write  the  X and  Y axis  scale  information. 

*/ 

x_cnt  “ 0 ; 
y_cnt  “ 0 ; 

for  ( i - 0;  i < nbr_x  + nbr_y;  i++  ) { 

fscanf  ( fp,  "%s",  s ); 

f seek  ( fp,  19,  SEEK_CUR  );/*  skip  to  low  scale  value  */ 
if  ( s [0]  ===  'X'  ) { 

fprintf  ( fp,  "%-14s  ",  low_scale [x_cnt]  ); 
fprintf  ( fp,  "%-14s  ",  high_scale [x_cnt]  ); 
x_cnt++; 

) else  { 

fprintf  ( fp,  "%-14s  ",  low_scale [MAX_AXES  + y_cnt]  ); 
fprintf  ( fp,  "%-14s  ",  high_scale [MAX_AXES  + y_cnt]  ); 
y_cnt++; 

f seek  ( fp,  26,  SEEK_CUR  );/*  skip  to  next  record  */ 

} 

fclose  ( fp  ) ; 

strcpy  ( Dm_Address->plots .unv_plot,  sav_unv_name  ); 
for  ( i - 0;  i < MAX_DISP;  i++  ) { 

if  ( Dm_Address->display [i] .disp_init  — YES  ) { 

if  ( active  — YES  ) 

Dm_Address->display [i] . read  plot  ” NEW_SCALE; 

else 

Dm_Address->di3play [i] . read_plot  “ READ_PLOT; 

} 

} 


} 


D(printf ("END  PROCESS_OK\n" ) ) ; 
return  ( 0 ) ; 
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* MODULE  NAME:  upd_rate . c 


* This  function  allows  the  user  to  set  the  display  update  rate.  It  presents 

* a form  with  a scale  widget  which  allows  selection  of  values  in  the  range 

* of  1 to  60  seconds. 

* 

* 

* INTERNAL  FUNCTIONS: 

* 

* ° cb_upd_rate  - Callback  function  which  processes  all  callbacks 

* from  the  form. 

* 

o upd_r a t e_menu  - This  function  displays  the  popup  and  waits  for  the 

* user  to  enter  the  new  update  rate. 

* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* K.  Noonan  - Ford  Aerospace  Corporation 

★ 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 


* 

* 

* 

* 


Mark  D.  Collier  - 


Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


♦include  <X11/Intrinsic .h> 
♦include  <Xm/Scale.h> 
♦include  <constants ,h> 
♦include  <disp.h> 

♦include  <pf_key.h> 
♦include  <user_inter ,h> 
♦include  <wex/EXmsg . h> 


static  Widget 
static  int 
static  char 
♦define  NUM  LABELS 


scale; 
flag; 
^labels [ ] 
2 


t 


"60"  } ; 


extern  struct  dm_shmemory 
extern  short 
extern  Widget 


*Dm_Address;  /*  Shared  memory  area 

/*  Display  Manager  number 

Top; 


V 

*/ 


int  upd_rate  ( ) 

{ 

update_rate; 

D {print f ( "START  upd  rate\n") ) ; 

/* 

* Save  the  current  update  rate. 
*/ 


update_rate  - Dm_Addre ss->di splay  [Disp_Num]  . update_rate  / 1000; 

/* 

Call  the  menu  function  to  allow  the  user  to  update  the  rate. 
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upd_rate_menu  ( update_rate  ) ; 


/* 

* Return  the  status  of  the  popup. 
*/ 


D (printf ("END  upd_rate\n") ) ; 
return  ( flag  ) ; 
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* MODULE  NAME:  upd_rate__menu 

* 

* This  function  displays  the  form  and  waits  for  the  user  to  selecte  the  new 

* update  rate . 

* ★a******************************************************************^^^^^ 


static  int  upd__rate_menu  ( update_rate  ) 
int  update_rate; 

{ 


register  int 

Arg 

Widget 

XtCallbackProc 

XEvent 

D (print f ("START 

/* 

* Create  the  shel 
*/ 


i; 

args [10]  ; 

shell,  form,  f_data, 
cb_upd_rate  ( ) ; 
event ; 

upd_rate_menu\n" ) ) ; 

. widget . 


f cmd; 


i - 0; 

shell  - tui  create  trans  shell 


"Change  Update  Rate",  args,  i ) ; 


/* 

* Create  the  main  form. 
*/ 


i - 0; 


form 

■ tui_create_ 

form 

( 

shell. 

"form",  TRUE,  args. 

i 

) ; 

f_data 

* tui_create_ 

form 

( 

form, 

"f_data",  FALSE,  args. 

i 

) ; 

f_cmd 

* tui_create_ 

form 

< 

form. 

" f_cmd" , FALSE,  args. 

i 

) ; 

Create 

all  widgets. 

i - 0; 

t u i_c rea t e_l abe 1 ( f_data,  "label",  "Update  Rate  (In  seconds)",  args,  i ); 


i - 0; 

scale  - tui_create_scale  ( f_data,  "scale",  1,  60,  update_rate,  labels,  2,  args 
i « 0; 

XtManageChild  ( XmCreateSeparator  ( form,  "sepO”,  args,  i ) ) ; 


i - 0; 

tui_create_pushbutton  ( f_cmd, 
tui_create_pushbutton  ( f_cmd, 
tui_create_pushbutton  ( f_cmd, 


n 

n 

ti 


Cancel", 

cb_upd_r  ate. 

(caddr_ 

t)  0, 

args. 

i ) ; 

OK", 

cb_upd_rate. 

(caddr_ 

t)l. 

args, 

i ) ; 

Help", 

cb_upd_rate, 

(caddr_ 

t)  2, 

args. 

i ) ; 

/* 

* Realize  and  popup  the  shell. 
*/ 


XtRealizeWidget  ( 3hell  ) ; 
Xt Popup  ( shell.  None  ) ; 
aet_cmap  ( shell  ) ; 


Wait  until  the  user  finishes  with  the  popup. 


flag  - -1; 

while  ( flag  — -1  ) { 

XtNextEvent  ( Sevent  ) ; 

XtDispatchEvent  ( &event  ) ; 

1 

XtDestroyWidget  ( shell  ) ; 


Return  the  value  selected  by  the  user  (0  is  for  not  verified,  1 is  for 
verified. 


D (printf ("END  upd_rate_menu\n") ) ; 
return  ( flag  ) ; 


/*★**★*★★*★****★***  ******************************^^^ 

* MODULE  NAME:  cb_upd_rate 

* 

* This  callback  function  is  called  when  the  user  selects  one  of 

* on  the  form. 

* 

★A************************************************************** 


the  buttons 
★ * *** *★*  * ★*  * 


** 


/ 


/*  ARGSUSED  */ 

static  XtCallbackProc  cb_upd_rate  ( w,  closure,  calldata  ) 


Widget  w; 


/*  Set  to  widget  which  in  which  callback  originated 


caddr  t 


{ 


closure, 

*calldata; 


/*  Indicates  selected  command. 
/*  Widget-specific  information. 


int  update_rate; 

D (print f ( "START  cb_upd  rate\n") ) ; 

/* 

* Process  OK  button. 

*/ 


if  ( (int) closure  — 1 ) { 

XmScaleGetValue  ( scale,  &update_rate  ) ; 

Dm-_Address->display [Disp_Num] .update^rate  = update_rate  * 1000; 
flag  * (int ) closure; 

/* 

* Process  CANCEL  button. 

*/ 


) else  if  ( (int) closure  “ 0 ) { 

flag  - (int ) closure; 


/* 

★ 

*/ 


If  help  button  was  selected,  display  appropriate  help  text. 


) else  if  ( (int) closure  — 2 ) 
cb_help  (0,  8,  0 ); 

D (printf ("END  cb_upd_rate\n" ) ) ; 
return; 


. 4'-' 
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/**************★*************************** 

* MODULE  NAME:  update.c 

* 

* This  routine  calls  a routine  to  extract  data  from  the  data  buffer 

* using  the  information  in  the  decom  buffer  and  converts  that  data 

* into  the  proper  type  format  as  defined  at  display  build  time.  Each 

* dynamic  display  item  is  then  updated  via  a call  to  the  appropriate 

* routine. 

* 


★ ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 

★ 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

i k 

* Nancy  Martin  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
************************* ***************************************************** 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio . h> 
<fcntl .h> 
<sys/types .h> 
<sys/t imeb . h> 
<X11/Xlib.h> 
<constants . h> 
<disp ,h> 

<DDf  g__graph . h> 
<DDdisp.h> 
<DDplot . h> 
<wex/EXlog . h> 
<wex/EXmsg . h> 


extern 

struct 

dm_shmemo ry  *Dm_Addre  s s ; 

/* 

ptr  to  DM  shared  memory 

*/ 

extern 

struct 

data  info  *Dh_Address; 

/* 

ptr  to  DH  shared  memory 

*/ 

extern 

struct 

plot_ptrs  *Plot_info_ptr; 

/* 

ptr  to  plot  records 

*/ 

extern 

struct 

msid_ent  *Msid; 

/* 

ptr  to  Msid  entries 

*/ 

extern 

struct 

tabular_ent  *Tab; 

/* 

ptr  to  tabular  entries 

*/ 

extern 

struct 

timeb  Last_Update; 

/* 

last  ds_getparms  call  time 

*/ 

extern 

struct 

fg_recs  Fg_rec; 

/* 

foreground  record  structure 

*/ 

extern 

int 

errno; 

/* 

system  return  error  value 

*/ 

extern 

int 

Year; 

/* 

year  to  be  displayed 

*/ 

extern 

int 

Year_Cat ; 

/* 

entire  year  to  be  displayed 

*/ 

extern 

int 

Offset; 

/* 

offset  into  data  array 

*/ 

extern 

int 

Log_File__Id; 

/* 

WEX  logging  identifier 

*/ 

extern 

int 

Log_ Pid; 

/* 

PID  of  this  process 

*/ 

extern 

int 

Logging_On; 

/* 

logging  enabled  flag 

*/ 

extern 

short 

Nbr_of_plots; 

/* 

♦ of  plots  for  this  display 

*/ 

extern 

short 

Ovrlay_Drawn; 

/* 

overlay  change  flag 

*/ 

extern 

unsigned  char  New_Data [60000] ; 

/* 

New  Data  Array 

*/ 

extern 

unsigned  char  01d_Data [60000] ; 

/* 

Old  Data  Array 

*/ 

int  update  (disp_num) 
short  disp_num; 


/*  number  of  display  to  be  updated 


register  char  *ldata_buf fer ; 

register  struct  shm__decom 

*decom_buf  fer ; 
register  struct  msid_ent 

*msid_inf  o; 

register  struct  tabular_ent 

*tab_info; 

static  int  change  - 0; 

static  short  year__flag  - YES; 

struct  shm_decom  *decom_entry; 

struct  timeb  current_t ime; 

struct  plot_ptrs  *plot_ptr; 


double 

current_yearf 
before_t  ime, 
after_t  ime; 

long 

status; 

int 

i,  jr 
year, 

sample_size, 

retval, 

offset, 

skip_amt, 

error, 

update, 

bytes_logged; 

short 

f irst_ pass, 
index; 

unsigned  char  *start_of_s ample; 


/*  local  ptr  to  data  buffer  */ 

/*  local  ptr  to  decom  buffer  */ 

/*  local  ptr  to  msid  entries  */ 

/*  local  ptr  to  tabular  entries  */ 

/*  change  flag  for  buffer  switch  */ 

/*  convert  year  */ 

/*  ptr  to  decom  entry  for  msid  */ 

/*  current  system  time  */ 

/*  ptr  thru  plot  records  */ 

/*  holder  for  the  current  ftime  */ 

/*  holder  for  the  conv  before  ftime  */ 

/*  holder  for  the  conv  after  ftime  */ 

/*  status  of  the  msid  value  ★/ 

/*  loop  counters  */ 

/*  local  variable  for  year  ★/ 

/*  sample  size  of  one  sample  */ 

/*  return  value  of  memcmp  */ 

/*  offset  into  the  old  data  array  */ 

/*  # of  bytes  to  skip  in  data  buf  */ 

/*  error  return  value  */ 

/*  update  flag  for  buffer  switch  */ 

/*  # bytes  logged  by  EXlogwrite  */ 

/*  pass  count  through  MS IDs  */ 

/*  index  into  decom  buffer  */ 


/*  start  of  sample  in  data  buffer  */ 


/*  D (printf  ("START  update\n"));  */ 
/* 

* Get  the  current  system  time. 

V 


/* 

* 

*/ 


ftime (icurrent_time) ; 

Conversion  factor  for  the  year  to  be  displayed. 


if  (year_f lag  — YES)  { 

current_year  - cur rent_t ime . time  * SEC_YR  CONV; 

if  (current_year  < YEAR_DIFF) 

Year  « BASE_YEAR  + current  year; 

else 

Year  -=  current_year  - YEAR_DIFF; 

Year_Cat  - current_year  + COMP_BASE_YEAR; 
year_flag  = NO; 


/* 


} 
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* Check  to  see  if  it  is  time  to  update  the  msids.  If  the  current 

* system  time  minus  the  last  update  time  of  the  data  is  greater  than 

* update  rate,  update  the  msids. 

*/ 


before  time  — (Last_Update .time  * 1000)  + Last_Update .millitm; 
after  time  “ (current_time .time  * 1000)  + current_time .millitm, 

if  ( (after_time  - before_time)  >- 

(Dm_Address->display [disp_num] .update_rate  - 500.0))  { 

Last_Update.time  - current_time . time; 

Last_Update. millitm  - current_time .millitm; 


* If  need  decom  flag  is  set,  Data  Handler  is  updating  the 

* decom  buffer  so  return.  Otherwise  set  decom-in-use  flag. 
*/ 


if  (Dh_Address->need_decom  ~ YES)  { 

#ifdef  SUN 

usleep  ( 100000  ) ; 

♦else 

astpause  (0,  100) ; 

♦endif 

return  (0) ; 

> 

Dh_Address->decom_in_use [disp_num]  - YES; 

/* 

* Set  up  the  local  pointers.  The  decom  buffer  will  be 

* used  to  access  information  from  the  updated  data  buffer. 

*/ 

decom_buf fer  - (struct  shm_decom  *)  ((char  *)  Dh_Address  + 

Dh_Address->decom_buf ) 

ldata_buf fer  - (char  *)  ((char  *)  Dh_Address  + 

Dh  Address->buf fer [Dh  Address->buf_ready] ) 


/* 


★ 

★ 


★ 

*/ 


On  first  pass,  copy  the  data  from  the  data  buffer  in  Data 
Handler  shared  memory.  On  the  second  pass,  check  for  changes 
in  the  data  and  update  the  msids  if  changes  exist. 


for  (first_pass  - 0;  first_pass  < 2;  f irst_pass++)  ( 


/* 

* 

*/ 

/*nlm 


*/ 


Update  foreground  dynamic  primitives. 


Offset  * 0; 

for  (i  - 0;  i < Fg_rec . graph_num;  i++)  { 

error  - DDupdf gr (decom_buf fer,  ldata_buf fer,  first_pass) ; 
if  (error  “ -1) 
return  (-1) ; 

} 


/* 

* 

*/ 


Update  each  tabular  rosid. 
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msid_info  - Msid; 
offset  * 0; 

for  (i  - 0;  i < Dh_Address->nbr_msids  [disp_num]  ; i++)  { 

if  (msid__info->Tab_Index  > 0 &&  (msid_info->histJ.nd  <«  0)  ) { 
tab_info  * Tab  + msid_info->Tab_Index  - 1; 


rieved") ; 


/* 

★ 

★ 


*/ 


/* 

* 

* 

★ 

★ 

★ 


Get  index  into  decom  buffer.  If  index  is 
valid,  setup  ptr  to  this  msid's  decom  entry. 


index  = Dh_Address->msid_index  [disp_num]  [ i]  ; 
if  (index  >-  0)  { 

decom_entry  - decom__buf  fer  + index; 


Check  for  decom  error  in  local  decom  buffer  and 
calculate  number  of  bytes  that  have  to  be  skipped 
per  sample. 


if  ( (decom_entry->error  ««  NULL) 

&&  (decom_entry->num_samps  >0))  { 
sample_size  * decom_entry->sample_size; 

if  (msid_inf o->Sample  --  -1) 

3kip__amt  " ( dec om_entry->num_s amps  - l) 

* sample  size; 

else  { ~ 


) 


if  (ms  id_info->S  ample  > 

decom_entry->num_samps)  { 
tui_msg  (M_WHITEf  "Sample  requested  exceeds  numbe 


decom_entry->error  - YES; 

) else 

3kip_amt  - (msid__inf o->Sample  - 1) 

* samplers ize; 


if  (decom_entry->error  ~ NULL)  { 

start_of_s ample  - (unsigned  char  *) 

(ldata_buf fer  + decom_entry->of f set 

+ skip_amt)  ; 


If  first  pass  through  msids,  copy  data  from 
DH  shared  memory  data  buffer  to  the  local 
incoming  data  buffer. 

if  (first_pass  — 0)  { 

memcpy  (&New__Data  [offset] , 

start_of_sample,  sample_size)  ; 
offset  +«  sample_size; 


If  not  the  first  pass  through  the  msids, 
compare  the  incoming  data  buffer  with  the 
old  data  buffer.  If  there  are  changes, 
save  the  new  data  in  the  old  data  buffer 
and  set  the  change  flag. 


} else  { 

retval  — memcmp  (&New_Data  [of  f set  ] , 

&01d_Data [offset] , sample_size) ; 
if  (retval  !-  0)  { 

memcpy  (&01d_Data [of f set ] , 

&New_Data [offset] , sample_size) ; 
change  = 1; 


Save  the  offset  into  the  data  buffer 
for  this  ms id  in  shared  memory. 


msid  info->data  ind  - offset; 


Extract  the  data  value  into  the  type 
union  and  update  the  value  on  the 
display. 


} 


status  - extract (&New_Data [of fset] , 

decom_entry)  ; 

msid_info->Wid_Ind  * i; 
error  - updtfg (disp_num,  decom_entry, 
msid  info,  tab_info,  status) ; 


Increment  offset  into  data  buffer 
by  the  number  of  samples  of  this  msid. 


offset  +■»  sample_size; 

} 

} /*  end  of  decom  error  check  */ 

} /*  end  of  check  for  decom  error  and  # samples  */ 

} /*  end  of  index  validation  */ 

} /*  end  of  non-historical  tabular  msid  check  */ 

msid_inf o++; 

} /*  end  of  loop  through  msids  */ 

} /*  end  of  first_pass  loop  */ 


/* 

* If  the  log  enable  flag  is  set,  log  the  data. 

*/ 


if  (Logging_On  " YES)  { 

bytes_logged  - EXlogwrite (Log_File_Id,  "DATA  BUFFER  ", 

11,  Log_Pid,  LOG_BINARY) ; 

bytes__logged  * EXlogwrite  (Log_File_Id,  01d_Data,  offset, 

Log_Pid,  LOG_B INARY); 


} 


if  (bytes_logged  <=  0) 

tui__msg  (M__YELLOW,  "Displayer  logging  error  %d",  errno)  ; 


- /* 


★ 

*/ 


Update  all  active  plots. 


for  (j  - 0;  j 
plot_ptr 
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< Nbr_of_plot3;  j++)  { 
Plot__info_ptr  + j; 


) 


if  (plot_ptr->act_flg  — YES)  { 

update  * proc_plt  (disp_num,  plot_ptr)  ; 
if  (update  =*  YES) 
change  * YES; 

) 


/* 

* Check  overlay  flag  for  buffer  change 
*/ 

if  (Ovrlay__Drawn  “ YES)  { 

Ovrlay_Drawn  = NO; 
change  « YES; 

} 

/* 

* Reset  the  decom-in-use  flag. 

* Reset  before  time  to  current  time 
*/ 

Dh_Address->decom_in_use  [disp_num]  * NO; 
before_time  - after_time; 

/* 

* If  it  is  not  time  to  update  the  buffer, 

* pause  for  100  milliseconds. 

*/ 


) else  if  ( (after_time  - before_time)  < 1000)  { 

#ifdef  SUN 

usleep  ( 1000  *(int)(500  - (after_time  - before  time))); 
#else  “ 

astpause  (0,  (int) (500  - (after_time  - before  time))); 
#endif  ~ 

} else  { 

#ifdef  SUN 

usleep  { 1000000  ); 

#else 

astpause  ( 0,  1000  ); 

#endif 

} 

/* 

* If  an  update  to  history  tabs  is  needed, 

* update  history  tabs. 

*/ 

if  (Drn_Address->display  [disp_num]  .dd_htab  « YES)  { 
retval  * updthtO; 

if  (retval  < 0) 
change  - YES; 

Dm__Address->di  splay  [disp_num]  . dd_htab  = NO; 

/*  D (print f (nEND  update\nM) ) ; */ 


} 


return  (0) ; 


* MODULE  NAME:  updtbg . C 

★ 

* This  routine  displays  background  text  and  graphics  to  the  display. 

* Only  necessary  during  initialization,  reinitialization,  and  as  a 

* response  to  X expose  events  on  the  entire  display  window. 

* 


★ DEVELOPMENT  NOTES: 

★ 

* o Only  lines,  rectangles,  polygons,  and  circles  have  been  fully 

* converted.  Ellipses  have  not  been  tested.  Arcs  and  curves 

* need  more  work. 

* o Although  their  is  some  code  here  to  support  it,  background  fill 

* patterns  have  not  been  converted  to  X. 

* o Vector  text  records  have  been  implemented  as  normal  strings,  since 

* X does  not  directly  support  the  concept. 

* o Further  comments  are  embedded  in  the  code. 

* 


* 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 

* Richard  Romeo  - Ford  Aerospace  Corporation/Houston 

* 

* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 

* Ronnie  Killough  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************************************************************/ 


♦include  <stdio.h> 
♦include  <X11/Xlib.h> 
♦include  <constants .h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 
♦include  <wex/EXmsg.h> 


extern  struct 
extern  struct 
extern  float 
extern  float 
extern  float 


bg_rec  s Bg_Rec ; 
dm_s  hmemo  r y * Dm__Addr  e s s ; 
Font  6 5_height ; 

Font  8 0_height ; 

Font 1 0 0_he ight ; 


/*  ptr  to  background  records  */ 
/*  ptr  to  DM  shared  mem  */ 

/*  font  height  constants  */ 


updtbg  (disp_ num) 

short  disp__num;  /*  effective  display  number  */ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

static  unsigned  char  dashed [2]  * (4,  4}; 
static  unsigned  char  dotted [2]  * {3,  1}; 
static  unsigned  char  dot_dashed [ 4]  * {3,  4,  3,  1}; 


GC  gc ; 

XGCValues  *gc_val ; 
XPoint  points [100] ; 
Display  *xdisplay; 
Window  xwindow; 

Font  font; 


/*  graphics  context  ID  from  DM  shared  memory 
/*  ptr  to  gc  values  struct  in  DM  shared  memory 
/*  set  of  X points  for  polygon  drawing 
/*  ptr  to  X display  structures  for  display 
/*  XID  of  effective  display  window 
/*  vector  text  font  number 


*/ 


struct  rec_header  *bg_text _pt r ; 


/*  ptr  thru  bg  text  records 
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struct  graph_record  *bg_graph_pt r; 
struct  vtext_record  *vtextjptr; 
struct  graph_pts  *Poly_pts_ptr ; 
struct  graph_pts  *curve_ptsj>tr ; 
struct  line_record  *line_ ptr; 
struct  rectangle_record  *rect_ptr; 

struct  polygon__record  *poly_ptr; 

struct  circle_record  *circle_ptr; 

struct  arc_record  *arc_ptr; 

struct  ellipse_record  *ellipse_ptr 

struct  ell_arc_record  *ell_arc_ptr 

struct  curve_record  *curve_ptr; 

float  radius, 

angle 1,  angle2; 

unsigned  long  gc_mask; 

■int  xf  j , k , w, 

bb_x,  bb_y, 
mmajor,  mminor; 


/*  ptr  thru  bg  graphical  recs 
/*  ptr  to  vector  text  record 
/*  ptr  thru  array  of  polygon  pts 
/ * ptr  thru  array  of  curve  pts 
/*  ptr  thru  line  records 
/*  ptr  thru  rectangle  records 
/*  ptr  thru  polygon  records 
/*  ptr  thru  circle  records 
/*  ptr  thru  arc  records 
/*  ptr  thru  ellipse  records 
/*  ptr  thru  elliptical  arc  recs 
/*  ptr  thru  curve  records 

/*  temp  holder  for  radius 
/*  temp  holder  for  arc  angles 

/*  mask  for  gc  changes 

/*  loop  count  variables 
/*  coords  of  arc  bounding  box 
/*  arc  maj/min  axes  (width/hght) 


D (print f <" START  updtbg\n") ) ; 

/* 

★ Setup  local  display  and  window  variables 

V 


xdisplay  - Dm_Address~>xdisplay [disp_num] ; 
xwindow  - Dm_Address->window [disp_num] ; 
gc  * Dm_Address->gc  [disp__num] ; 
gc_val  m & Dm_Addre s s ->gc_va 1 [disp  num] ; 


/* 

* 

*/ 


Loop  through  graphical  records  in  memory  and  display  on 


screen 


bg_graph _ptr  - Bg_Rec  . graph_rec  ; 
for  (i  * 0;  i < Bg_Rec . graph_num;  i++)  { 

switch  (bg_graph_ptr->graph_typ)  { 
case  LINE: 


line_pt r * (struct  line_record  *)  bg  graph  ptr->qrraph_ptr ; 

/*  set  up  the  graphics  context  for  this  line  */ 

if  (gcjnask  *=  set_gc (xdisplay,  gc,  gc_val,  line_ptr->graph_col, 

line_ptr->line_type,  line_ptr->line_wdth, 
NO_CHANGE,  NO_CHANGE,  NO_CHANGE,  NO_CHANGE) ) 
XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) / 

/*  draw  the  line  */ 


XDrawLine (xdisplay,  xwindow,  gc, 

line_ptr->pointl_x,  line_ptr->pointl_y, 
line_ptr->point2_x,  line_ptr->point2_y)  ; 

break; 


case  RECTANGLE: 
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rect_ptr  » (struct  rectangle_record  *)  bg_graph_jptr->graph_ptr ; 
/*  set  up  the  graphics  context  for  this  rectangle  */ 


if  (gc_mask  “ set_gc (xdisplay,  gc,  gc_val,  rect_ptr->graph_col, 

rect_ptr->line_type,  rect_pt r->line_wdth, 
rect_ptr->pat_type,  rectjptr->pat_sizex, 
rect_ptr->pat__sizey,  NO__CHANGE) ) 

XChangeGC (xdisplay,  gcr  gc_mask,  gc_val) ; 


/ * draw  rectangle  regardless  even  if  have  fill  pattern,  since 
XFillRectangle  doesn't  draw  the  complete  path  */ 


XDrawRectangle (xdisplay,  xwindow,  gc, 

rect jptr->ul_x,  rectjptr->ul_y, 
rect_ptr->width,  rect _ptr->height ) ; 

/*  if  pattern  type  indicates  a fill  pattern,  fill  rectangle  */ 


if  ( rect_ptr->pat_type ) 

XFillRectangle (xdisplay,  xwindow,  gc, 

rect_ptr->ul_x,  rectjptr->ul _y, 
rect_ptr->width,  rectjptr->height ) ; 

break; 


case  POLYGON: 

poly_ptr  - (struct  polygon_record  *)  bg_graph_j?tr->graph_ptr; 

/*  set  up  the  graphics  context  for  this  polygon  */ 

if  (gcjmask  - set_gc (xdisplay,  gc,  gc_val,  polyjptr->graph_col, 

poly_ptr->line_type,  poly_ptr->line_wdth, 
poly_j>tr->pat_type,  poly_ptr->pat_sizex, 
poly_j>tr->pat_sizey,  NO_CHANGE) ) 

XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 

/*  copy  polygon  points  into  the  XPoint  structure  */ 

poly_j>ts_jptr  - poly_ptr->poly_pts _ptr; 

for  (w  * 0;  w < poly_ptr->nmbr_pts ; w++)  { 

points  [w]  .x  - poly_pts_ptr->point_x; 
points [w].y  - poly_pts_ptr->point _y; 
po  ly_j>t  s_p  t r ++ ; 

} 

/*  RLK  9/10/90  Assuming  all  points  are  relative  to  origin  (depends  on 

how  the  Display  Builder  generates  a polygon  record.  This 
polygon  code  was  tested  on  hand-generated  data  files,  so 
this  may  not  be  a correct  assumption  */ 

/*  draw  the  polygon  */ 

XDrawLines (xdisplay,  xwindow,  gc,  points, 

poly_j>tr->nmbr_pts,  CoordModeOrigin)  ; 

/*  rlk  9/10/90  Assuming  the  polygon  is  non-complex  so  will  use  faster  fill 
algorithm.  May  be  a bad  assumption.  */ 

/*  if  pattern  type  indicates  a fill  pattern,  fill  polygon  */ 

if  (poly_ptr->pat_type) 

XFillPolygon (xdisplay,  xwindow,  gc,  points. 


break; 
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Po1yjPtr->nxnbr_pts/  Nonconvex, 
CoordModeOrigin) ; 


case  CIRCLE: 


/*  setup  local  pointer  to  circle  record  */ 

circle_ptr  " (struct  circle_record  *)  bg_graph_j?tr->graph_ptr ; 

/*  setup  graphics  context  for  this  circle  */ 

if  {gc_mask  - set_gc (xdisplay,  gc,  gc_val, 

circle_ptr->graph_col,  circle_ptr->line_type, 
circle _j>tr->line_wdth,  circle_ptr->pat_jtype, 
circle_ptr->pat_sizex,  circle_ptr->pat  sizey, 
N0J3HANGE) ) ~ 

XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 

/*  calculate  the  major  and  minor  axes  of  the  circle 
(width  and  height  of  the  bounding  box)  */ 

/*  RLK  9/10/90  May  need  to  adjust  the  major/minor  axes  for  ratio  distortion 

using  ratio  of  size  of  screen  in  millimeters/size  in  pixels  */ 

mmajor  m mminor  m (int)  (2.0  * circle ptr— >radius) ; 

/*  draw  circle  */ 


XDrawArc (xdisplay,  xwindow,  gc, 

circle_jptr->bb_x,  circle _ptr->bb_y,  mmajor,  mminor, 
START_CIRCLE,  FULL_CIRCLE) ; 


/*  if  Pattern  type  indicates  a fill  pattern,  fill  the  circle  */ 


if 


(circle_ptr->pat_type) 
XFillArc (xdisplay,  xwindow, 
mmajor,  mminor, 


gc,  circle_ptr->bb_x,  circle_jDtr->bb y 
START_CIRCLE,  FULL_CIRCLE) ; “ 


break; 


case  ARC: 

/*  setup  local  pointer  to  arc  record  */ 

arc_ptr  “ (struct  arc_record  *)  bg_graph__ptr->graph_ptr; 

/*  setup  graphics  context  for  this  arc  */ 

(gc_mask  * set_gc (xdisplay,  gc,  gc_val,  arc_ptr->graph_col, 
arc_ptr->line_type,  arc_ptr->line_wdth, 
arc_ptr->pat_type,  arc_ptr->pat_sizex, 
arc_ptr->pat_sizey,  NO_CHANGE)  ) 

XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 

/*  RLK  10/22/90  The  major  and  minor  axes  may  need  to  be  adjusted  and  the 

angles  need  to  be  converted  from  radians  to  degrees • This 
should  be  done  in  readbgO  . */ 

/*  draw  arc  */ 

XDrawArc (xdisplay,  xwindow,  gc,  arc_ptr->bb_x,  arc_ptr->bb_y, 
arc_ptr->ma j_axis,  arc_ptr->min_axis. 
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arc_ptr->anglel,  arc_ptr->angle2) ; 

/*  if  pattern  type  indicates  a fill  pattern,  fill  arc  */ 

/*  RLK  9/11/90  Assuming  arc  fill  mode  is  ArcChord. . • see  gc  assignment  above  */ 


if  (arc_ptr->pat_type) 

XFillArc (xdisplay,  xwindow,  gc, 

arc_ptr->bb_x,  arc_ptr->bb_y, 
arc_ptr->ma j_axis,  arc_jptr->min— axis, 
arc_ptr->anglel,  arc_ptr->angle2) ; 


break; 

case  ELLIPSE: 

/*  setup  local  pointer  to  ellipse  record  */ 

ellipse_ptr  - (struct  ellipse_record  *) bg_graph_ptr->graph_ptr ; 

/★  setup  graphics  context  for  this  ellipse  */ 

if  (gc_mask  - set_gc (xdisplay,  gc,  gc_val, 
ellipse_jptr->graph_col, 

ellipse_ptr->line_type,  ellipse_ptr->line_wdth, 
ellipse_ptr->pat_ type,  ellipsejptr->pat_sizex, 
ellipse_ptr->pat_sizey,  NO_CHANGE) ) 

XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 

/*  draw  ellipse  */ 

XDrawArc (xdisplay,  xwindow,  gc, 

ellipse_ptr->bb_x,  ellipse_ptr->bb_y, 
ellipse_ptr->ma j_axis,  ellipse jtr->min_axis, 
START_CIRCLE,  FULL_CIRCLE) ; 

/*  if  pattern  type  indicates  a fill  pattern,  fill  ellipse  */ 

if  (ellipse_ptr->pat_type) 

XFillArc (xdisplay,  xwindow,  gc, 

ellip8e_ptr->bb_x,  ellipse^ ptr->bb__ y, 
ellipsejptr->ma j_axis,  ellipse_ptr->min_axis, 

START  CIRCLE,  FULL_CIRCLE) ; 


break; 
case  CURVE: 

/*  RLK  9/10/90  X10  had  a command  called  XDraw  which  drew  curves  using  a 

set  of  vertices  and  creating  the  curved  surface  with  a 
spline  algorithm.  Xll  has  no  such  command. . .will  need  to 
manually  implement  this  algorithm.  */ 

/*  setup  local  pointer  to  curve  record  */ 

curve_ ptr  =*  (struct  curve^record  *)  bg_graph_j>tr->graph_pt r ; 

/*  setup  graphics  context  for  this  curve  */ 

if  (gc_mask  * set_gc (xdisplay,  gc,  gc_val,  curve_pt r->graph_col, 

curve_ptr->line_type,  curve_ptr->line_wdth, 
NO_CHANGE,  NO_CHANGE,  NO_CHANGE,  NO_CHANGE) ) 
XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 
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/*  copy  curve  vertices  into  XPoint  structure  */ 


curve_pts_ptr  - curve_ptr->curve_pts_ptr; 

for  (k  - 0;  k < curve_jptr->rnnbr_pts;  k++)  { 
points [k].x  - curve_pts__ptr->point_x; 
points  [k]  .y  - curve__pts_ptr->point_y; 
curve_pts_ptr++; 

} 


/*  draw  curve  */ 


XDrawLines {xdisplay,  xwindow,  gc,  points, 

curve _j3tr->nmbr_pts,  CoordModeOrigin) ; 


/* 

* 

*/ 


break; 

case  VECT_TXT: 

/*  setup  local  pointer  to  vector  text  record  */ 

vtext_ptr  - (struct  vtext_record  *)  bg_graph_ptr->graph_ptr; 

Set  text  color  and  font 


gc_mask  — 0; 

if  (gc_val->foreground  !-  vtext_ptr->graph_col)  ( 
gc_mask  |-  GCForeground; 
gc_val->foreground  - vtext_ptr->graph_col; 

font  - f ont_num  (disp_num,  vtext_ptr->font_style, 

vtext_ptr->char_width,  vtext_ptr->vert_size) 

if  (gc_val->font  !=  font)  ( 
gc_mask  | - GCFont ; 
gc_val->font  - font; 


if  (gc_mask) 

XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 

/*  draw  string  to  screen  */ 

XDrawString (xdisplay,  xwindow,  gc, 

vtext_ptr->x_position,  vtext_ptr->y_position, 
vtext_ptr->record_item,  vtextjptr->char_len) ; 


default : 
break; 

) /*  End  of  switch (graph .. . */ 

bg_graph_j3tr++  ; 

) /*  End  of  for  (graphical  records)  */ 


/* 

★ 

*/ 


Loop  through  text  items  in  memory  and  display  on  screen 
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bg_text_ptr  - Bg_Rec . record; 

/*  set  gc  mask  to  GCForeground  only,  since  that's  all  that  might  change 
/*  RLK  9/11/90  The  stmt  above  won't  be  true  after  the  font  stuff  is  fixed 


* 


*/ 

/ 


/*  display  text  records  */ 

for  (i  - 0;  i < Bg_Rec .char_num;  i++)  { 


/* 

* Set  text  color  and  font 
*/ 

gc_mask  - 0; 

if  (gc_val->foreground  !-  bg_text_ptr->color)  { 
gc_mask  | - GCForeground; 

gc_val->foreground  » bg_text_ptr->color; 

} 

if  (gc_val->font  !=  bg_text_ptr->f ont_num)  { 
gc_mask  I-  GCFont; 

gc_val->font  ” bg_text_ptr->font_num; 

} 

if  (gc_mask) 

XChangeGC (xdisplay,  gc,  gc_mask,  gc_val) ; 

/* 

* Draw  string  on  screen 
*/ 

XDrawString (xdisplay,  xwindow,  gc, 

bg_text_pt r->x_jpos it ion , bg_text_pt r->y_pos it ion , 
bg_text_ptr->record_item,  bg_text_ptr->char_len) ; 

bg_text_pt  r++ ; 

) 

D (printf ( "END  updtbg\n" ) ) ; 
return  (0) ; 

} 
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* MODULE  NAME:  updtfg.c 


* Accepts:  the  local  decom  pointer,  the  msid  entry  table  pointer, 

* the  tabular  entry  table  pointer,  and  the  data  3tatus . 

* Purpose: 

* This  routine  converts  the  updated  extracted  data  and  formats 

* that  data  to  be  displayed  on  the  screen  as  dynamic  data.  This 

* routine  also  checks  the  limit  status  of  each  msid  and  displays 

* the  limit  symbol  and  it's  output  status  color. 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 


Richard  Romeo  - Ford  Aerospace  Corporation/Houston 


★ 

* 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Ronnie  Killough 

★ 


Software  Engineering  Section 
Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<X11/Xlib.h> 
<stdio.h> 
<sys/types ,h> 
<sys/timeb.h> 
<constants .h> 
<disp.h> 
<DDdisp.h> 
<wex/EXmsg . h> 
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( disp_num,  decomjpt 

r,  lmsidf  ta 

short 

disp  num; 

/* 

struct 

s hm_de c om  * decom _ptr;  /* 

struct 

msid_ent 

* 1ms  id; 

/* 

struct 

tabular^ 

ent  *tab  info;  /* 

long 

status; 

/* 

char 

*malloc 

( ) ; 

extern 

char 

Cdata [256] ; 

extern 

struct 

dm_s  hmemo  r y 

*Dm__Address 

extern 

union 

p_data 

Data; 

extern 

struct 

f ile_header 

*Filel ; 

extern 

struct 

msid_ent 

*Msid; 

extern 

struct 

limit_ent 

* Limit; 

extern 

struct 

limit_ent 

*limit_info( 

extern 

struct 

mtext  ent 

*Mtext ; 

struct 

mtext_ent 

*mtext_ptr ; 

struct 

val_txt 

*text_ptr; 

extern 

int 

Year; 

extern 

int 

Year_Cat ; 

extern 

long 

S_color ; 

extern 

struct 

bg_recs 

Bg_Rec ; 

int 

i; 

int 

k. 

1; 

unsigned  int 

idata; 

local  decom  pointer 


*/ 

*/ 

*/ 

*/ 

*/ 


/* 

;/* 

/* 

/* 

/* 

/* 

>/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


character  data  from  shared  memory 

pointer  to  DM  SHM 

local  pointer  for  union  structure 

pointer  for  file  header  structure 

local  pointer  for  msid  structure 

local  pointer  for  limit  structure 

local  pointer  for  limit  structure 

local  pointer  for  mtext  structure 

local  pointer  for  mtext  structure 

local  pointer  for  mtext  structure 

current  year  variable 

current  year  variable 

Last  color  used 

addr  for  background  records 


/ * local  increment  variable 

/*  local  increment  variable 
/*  division  for  binary  conversion 


*/ 

*/ 

V 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


int 

digit; 

long 

color; 

long 

limit_  ind; 

short 

f irst_status; 

short 

match; 

short 

truncate_f lag  = NO; 

short 

num^digits; 

short 

pad; 

char 

data_src [256] ; 

char 

data__src2  [256]  ; 

char 

temp_data_src [256] ; 

char 

stat_  char [3] ; 

int 

data  width; 
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/*  number  in  binary  conversion  */ 
/*  local  variable  for  text  color  */ 

/*  variable  for  status  of  msid  */ 
/★  variable  for  comparsion  match  */ 
/ * set  to  yes  when  truncated  */ 
/*  max.  nbr  of  binary  digits  */ 
/*  nbr  of  binary  zeros  for  an  even  4 */ 
/*  storage  for  screen  output  */ 
/*  storage  for  screen  output  */ 
/*  storage  for  screen  output  */ 
/*  status  character  appended  to  out  */ 
/*  working  data  width  */ 


Window  xwindow; 

Display  *xdisplay; 
int  screen; 

Font  fid; 

XGCValues  *gc_val ; 
unsigned  long  gc_mask; 
GO  gc; 
long  x, 

y; 


/*  true  coordinates  for  text  string  */ 


unsigned  long  days,  /*  number  of  days  in  sample  */ 

hours,  /*  number  of  hours  in  sample  */ 

minutes,  /*  number  of  minutes  in  sample  */ 

seconds,  /*  number  qf  seconds  in  sample  */ 

milliseconds;  /*  number  of  milliseconds  in  sample  */ 


double  real_min; 
double  real_  sec; 
double  real  hours; 


Determine  what  group  of  screen  types  to  used 


data_width  - tab_inf o->Data_Width; 
if  < lmsid->Stat_Flag  !-  0 ) 
data  width — ; 


switch  ( decom_ptr->at tribute  ) 

{ 

case 

'P'  : 

/* 

case 

'D'  : 

/* 

case 

' 1/  : 

/* 

case 

06: 

/* 

case 

11: 

/* 

case 

13: 

/* 

case 

15: 

/* 

case 

16: 

/* 

case 

17: 

/* 

case 

18: 

/* 

case 

19: 

/* 

case 

20: 

/* 

case 

21: 

/* 

switch  ( lmsid->Scrn_Type  ) { 

case  1:  /* 


Discrete  Parent  *f 
Double  Precision  Real  */ 
Natural  < Unsigned  ) */ 
Discrete  Parent  */ 
BCD  Time  Variable  */ 
BCD  Hex  Time  Variable  */ 
Bit  Weighted  Time  Variable  */ 
Bit  Weighted  Clock  Time  */ 
Bit  Weighted  Clock  Time  */ 
Bit  Weighted  GMT/MET  */ 
Spacelab  Floating  Point  */ 
Experiment  I/O  GMT  ( Type  X ) */ 
Experiment  I/O  GMT  ( Type  H ) */ 


Tabular  Float 


if  ( decom_jptr-> length  <-  32  ) { 

sprintf  ( dataware,  "%*.*f",  tab_info->Data_Width, 
tab_info->Dig_Right , Data . sf data [0]  ); 
sprintf  ( data_src2 , "%.*f",  tab_info->Dig_Right , Data . sf data [0]  ); 


} 
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else  { 

sprintf  ( data_src,  "%*.*f",  tab_info->Data_Width, 
tab_info->Dig_Right,  Data.ddata  ); 
sprintf  ( data_src2,  "%.*f",  tab_info->Dig_Right,  Data.ddata  ); 

if  ( strlen  ( data_src2  ) > tab_info->Data_width  ) 
truncate_f lag  - YES; 
break; 

case  2:  /*  Tabular  Integer  */ 

if  ( ( decom_j3tr->att ribute  **  fDr  ) ) | { decoiu_ptr->at tribute  ==*  19  ) ) { 
if  ( ( Data.ddata  < 2147483647.0  ) &&  ( Data.ddata  > -2147483648.0  ) ) 
digit  = Data.ddata; 

else 

digit  - 2147483647; 

sprintf  ( dataware,  "%*d",  data_width,  digit  ); 
sprintf  { data_src2,  "%d",  digit  ); 

} 

else  { 

if  ( decomjptr->length  <-  32  ) { 

^ sprintf  ( dataware,  "%*d",  data_width,  Data . sldata [0]  ); 
else  { 

^ sprintf  ( dataware,  "%*d",  data_width,  Data.ddata  ); 
sprintf  { data_src2,  "%d",  Data . sldata [0]  ); 

) 

if  ( strlen  { data_src2  ) > tab_inf o->Data_Width  ) 
truncate_f lag  - YES; 
break; 

case  21:  /*  Tabular  Unsigned  Integer  */ 

if  ( ( decom_j>tr->at tribute  ■■  rD'  ) | | ( decon\_ptr->at  tribute  **  19  ) ) { 
if  < < Data.ddata  < 2147483647.0  ) &&  < Data.ddata  > -2147483648.0  ) ) 
idata  » Data.ddata; 

else 

idata  * 2147483647; 

sprintf  ( data_src,  ”%*d",  data_width,  idata  ); 
sprintf  < data_src2,  "%d”,  digit  ); 

else  { 

if  ( decom_ptr->length  o 32  ) { 

sprintf  ( data_src,  "%*d",  data_width,  Data.uldata [0]  ); 

else  { 

sprintf  ( data_src,  "%*d",  data_width,  Data.ddata  ); 

sprintf  ( data_src2,  "%d",  Data.uldata 10]  ); 

if  ( strlen  ( data_src2  ) > tab_info->Data_Width  ) 
truncate_f lag  - YES; 
break ; 

case  3:  /*  Tabular  Scientific  Notation  */ 

if  ( decom_ptr->length  <=  32  ) { 

if  ( lmsid->Stat_Flag  !=  0 ) {/*  Display  msid  status  */ 

sprintf  ( data_src,  "%*.*E",  data_width, 

tab_info->Dig_Right  - 5,  Data . sldata [0]  ); 

else  { 

sprintf  ( data_src,  ”%*.*E",  data_width. 
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tab info->Dig_Right  - 4,  Data . sldata [0]  ); 


) 


} 

else  { 

if  ( lm3id->Stat_Flag  !-  0 ) {/*  Display  msid  status 

sprintf  ( data_src,  data_width, 

tab_info->Dig_Right  - 5,  Data.ddata  ); 

} 

else  { 

sprintf  ( data_src,  data_width, 

tab_info->Dig_Right  - 4,  Data.ddata  ); 


} 


} 


break; 

case  4:  /*  Tabular  Hexadecimal  */ 

sprintf  ( data_src,  "%*x",  data_width,  Data.ddata  ); 
sprintf  ( data_src2,  "%x",  Data.ddata  ); 
if  { strlen  ( data_src2  ) > tab_inf  o->Data_Width  ) 
truncate_f lag  * YES; 
break; 


*/ 


case  5:  /*  Tabular  Octal  */ 

sprintf  { dataware,  "%*o",  data_width,  Data.ddata  ); 
sprintf  ( data_src2,  n%on,  Data.ddata  ); 
if  ( strlen  ( data__src2  ) > tab_inf o->Data_Width  ) 
truncate_f lag  - YES; 
break; 


case  6:  /*  Binary  */ 

if  ( data_width  <-  32  ) { 

num_digits  - 1; 
idata  - Data . ldata [0] ; 

temp_data_src [0]  * 48;/*  convert  digit  to  character  */ 
while  { idata  !=  0 ) { 

digit  - idata  % 2; 
idata  >>-  1; 

temp_data_src [num_digits  - 1]  - digit  + 'O'; 

/* 

* convert  digit  to  character 
*/ 

if  { idata  !»  0 ) 
nuinjiigi  t s ++ ; 

} 

} 

else  { 

idata  - Data . Idata [1] ; 
for  ( k - 0;  k < 32;  k++  ) { 

digit  - idata  % 2; 
idata  » ■ 1; 

temp_data_src[k]  - digit  + '0';/*  convert  digit  to  character  */ 

} 

idata  * Data . Idata [0] ; 
for  ( k * 32;  k < data_width;  k++  ) { 

digit  *■  idata  % 2; 
idata  » ■ 1; 

temp_data_src [k]  * digit  + '0';/*  convert  digit  to  character  */ 

} 

} 

pad  - 4 - ( num_digits  % 4 ) ; 


48; 
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for  ( k - 0;  k < pad;  k++  ) 

temp_data_src  [num_digits  + k]  * 

num_digits  +«  pad; 

if  ( num_digits  > tab_info->Data_Width  ) 
truncate_flag  - YES; 


1 - 0; 

for  ( k « num__digit3  - 1;  k >■  0;  k — ) ( 
dataware  [k]  - temp__data_src  [1]  ; 

1++; 

> 

temp_data_src  [num_digits]  * NULL; 
dataware [data_width]  * NULL; 
break; 


case  9:  /*  Multilevel  Text  */ 

match  « NO; 

mtext _ptr  - Mtext  + lmsid->Txt_Index  - 1; 
if  ( lmaid->Txt_Index  > 0 ) { 

text_ptr  - mtext_jptr->text_ptr; 
for  < i » 1;  i <-  mtext j>tr->Num_Va lues;  i++  ) { 
if  ( Data  . sldata  [ 0 ] — text_jptr->  Value  ) { 

strepy  ( dataware,  text_ptr->Text  ); 
match  - YES; 
break; 

} 

text_ ptr++; 

} 

if  ( match  ~ NO  ) { 

atrepy  ( dataware,  mtext  jptr->Def_Text  ) ; 

} 

elae  { 

dataware [0]  * NULL; 

} 

break; 


case  10 
case  11 
case  12 
case  18 
case  19 
case  20 


/*  Tabular  time  1 
/*  Tabular  time  1 
/*  Tabular  time  1 
/*  Tabular  time  1 
/*  Tabular  time  1 
/*  Tabular  time  1 


( ddd:hh : mm: as . aas  ) 
( ddd: hh :mm: as . ssa  ) 
( ddd :hh: mm: as .ssa  ) 
( ddd:hh :mm: 33 . sss  ) 
( dddrhh :mm: S3 . sas  ) 
( ddd: hh :mm: ss . sss  ) 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


if  ( decom__ptr->at tribute  =*  'D'  ) { 
days  - Data .ddata  / 24.0; 

real_hours  » Data. ddata  - ( ( double  ) days  * 24.0  ) ; 
hours  * real_hours; 

real_min  - ( real_hours  - ( double  ) hours  ) * 60.0; 
minutes  - real_min; 

real_sec  ■ ( real^min  - ( double  ) minutes  ) * 60.0; 
seconds  * real^sec; 

milliseconds  * ( real_sec  - ( double  ) seconds  ) * 1000.0; 
if  ( lmsid->Scrn_Type  »»  10  ) { 

sprintf  ( dataware,  ”%G3d: %02d: %02d: %02d. %03d", 

^ days,  hours,  minutes,  seconds,  milliseconds  ); 

else  if  ( lmsid->Scrn_Type  — 11  ) { 

sprintf  ( data_src,  "%d: %03d: %02d: %02d: %02d. %03d", 

Year_^at/  days,  hours,  minutes,  seconds,  milliseconds  ) 
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else  if  ( lmsid->Scrn_Type  " 12  ) { 

sprintf  ( data_src,  M%d: %03d: %02d: %02d: %02d. %03d” , 

Year,  days,  hours,  minutes,  seconds,  milliseconds  ) ; 

} 

else  if  { lmsid->ScrnJType  — 18  ) { 

sprintf  ( data_ src,  ”%03d/%02d:%02d:%02d.%03d", 

days,  hours,  minutes,  seconds,  milliseconds  ) ; 

} 

else  if  ( lmsid->Scrn_Type  “ 19)  { 

sprintf  ( data_src,  "%d: %03d/%02d: %02d: %02d. %03d" , 

Year  Cat,  days,  hours,  minutes,  seconds,  milliseconds  ) 


else  { 

sprintf 


} 


( data_src, 
Year,  days, 


"%d: %03d/%02d: %02d: %02d. %03d", 

hours,  minutes,  seconds,  milliseconds  ) 


} 

else  { 

days  - Data .usdata [0]  » 6; 

hours  ■■  Data . usdata [ 0 ] £ 0x003F; 

minutes  - { Data .uldata [0]  & OxOOOOFEOO  ) » 9; 

seconds  - ( Data .uldata [0]  & OxOOOOOlFF  ) » 2; 

milliseconds  - ( Data . uldata [ 1]  & OxlFFF  ) » 3; 

if  ( lms id->Scrn— Type  — 10  ) { 

sprintf  { data_src,  ”%03d:  %02d:  %02d:  %02d.  %03d” , 

days,  hours,  minutes,  seconds,  milliseconds  ) ; 

} 

else  if  ( lmsid->Scrn_Type  — 11  ) { 

sprintf  ( dataware,  "%d: %03x: %02x: %02x: %02x. %03d", 

Year_Cat,  days,  hours,  minutes,  seconds,  milliseconds  ) 

} 

else  if  < lmsid->Scrn_Type  — 12  ) { 

sprintf  ( data_src,  "%d: %03x: %02x: %02x: %02x. %03d". 

Year,  days,  hours,  minutes,  seconds,  milliseconds  ) ; 

} 

else  if  ( lmsid->Scrn_Type  — 18  ) { 

sprintf  ( data_src,  "%03x/%02x: %02x: %02x. %03d", 

days,  hours,  minutes,  seconds,  milliseconds  ) ; 

) 

else  if  < lmsid->Scrn_Type  —19)  { 

sprintf  ( data_src,  "%d: %03x/%02x: %02x: %02x. %03d", 

Year  Cat,  days,  hours,  minutes,  seconds,  milliseconds  ) 

} 

else  { 

sprintf  ( data src,  "%03x: %02x: %02x: %02x. %03d”, 

days,  hours,  minutes,  seconds,  milliseconds  ) ; 

} 

) 

break; 

case  13:  /*  Tabular  time  4 { hhh  ) */ 

hours  * Data .usdata [0]  & 0x003F; 


sprintf  ( data_src,  t,%03x”,  hours  ); 
break; 

case  16:  /*  Tabular  time  4 ( hhh :mm: ss . sss  ) */ 

hours  * { Data . uldata [ 0 ] & Ox003FOOOO  ) » 16; 

minutes  = ( Data .uldata [0]  & OxOOOOFEOO  ) >>  9; 

seconds  - ( Data .uldata [0]  & OxOOOOOlFF  ) » 2; 

milliseconds  = ( Data . uldata [ 1]  & OxlFFF  ) >>  3; 
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sprintf  ( data_src,  "%02x: %02x: %02x. %03d", 
hours,  minutes,  seconds,  milliseconds  ) ; 
break; 

case  15:  /*  Tabular  time  5 { mm:ss.sss  ) */ 

minutes  «*  ( Data  .uldata  [0]  4 OxOOOOFEOO  ) » 9; 
seconds  - ( Data. uldata [0]  4 OxOOOOOlFF  ) » 2; 
milliseconds  - ( Data .uldata [1]  & OxlFFF  ) » 3; 

sprintf  ( data_src,  "%02x: %02x. %03d", 
minutes,  seconds,  milliseconds  ) ; 
break; 

case  17:  /*  Tabular  time  5 ( sssss.sss  ) */ 

days  - ( Data.usdata[0]  » 6 ) & OxOOOF; 

days  +-  ( ( Data .usdata [0]  » 10  ) & OxOOOF  ) * 10; 

days  +-  ( Data. usdata [0]  » 14  ) * 100; 

hours  - Data .usdata [0]  4 OxOOOF; 

hours  +-  ( ( Data .usdata [0]  » 4 ) 4 0x00000003  ) * 10; 

minutes  - < ( Data. uldata [0]  » 9 ) & 0x0 000 00 OF  ); 
minutes  +-  ( ( Data. uldata [0]  » 13  ) & 0x00000007  ) * 10; 

seconds  - ( Data. uldata [0]  » 2 ) 4 0x00 000 OOF; 
seconds  +-  ( ( Data. uldata [0]  » 6 ) 4 0x00000007  ) * 10; 

seconds  +-  < days  * 86400  ) + ( hours  * 3600  ) + 

( minutes  * 60  ) ; 

milliseconds  - ( Data. uldata [1]  4 OxlFFF  ) » 3; 

sprintf  ( data_src,  "%*d.%03d",  data_width  - 4, 
seconds,  milliseconds  ) ; 
break ; 

default : 
break; 


} 

break; 

/* 

End  of  screen  type  switch  case 

*/ 

case 

f E/  . 

/* 

Single  Precision  Real 

*/ 

case 

7 F'  : 

/* 

Integer  ( Signed  ) 

*/ 

case 

1: 

/* 

Real 

*/ 

case 

2: 

/* 

Integer  ( Signed  ) 

*/ 

case 

3: 

/* 

Integer  { No  Complement  ) 

case 

4: 

/* 

Integer  ( No  Complement /Overflow 

case 

5 : 

/* 

Natural  ( Unsigned  ) 

*/ 

case 

7 : 

/* 

BCD  ( Format  X ) 

*/ 

case 

8: 

/* 

BCD  ( Format  Y ) 

*/ 

case 

9: 

/* 

BCD  TACAN  Range 

*/ 

case 

10: 

/* 

BCD  TACAN  GMT 

*/ 

case 

12: 

/* 

BCD  Analog  Variable 

*/ 

case 

14: 

/* 

BC  Hex  Analog  Variable 

*/ 

switch  ( lmsid->Scrn_Type  ) { 
case  1:  /*  Tabular  Float  */ 

if  ( decom_ptr->length  <-  32  ) { 

sprintf  ( data_src,  "%*.*f",  tab_info->Data_Width, 
tab_info->Dig_Right,  Data . sfdata [0]  ); 
sprintf  ( data_src2,  "%.*f",  tab_info->Dig_Right,  Data . sfdata [0] 
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} 

else  { 

sprintf  ( dataware,  "%*.*f",  tab_info->Data_Width, 
tab_inf o->Dig_Right , Data.ddata  ); 
sprintf  ( data_src2,  tab_info->Dig_Right , Data.ddata  ); 

if  { strlen  ( data_src2  ) > tab_inf  o->Data_Width  ) 

truncate_f lag  * YES; 
break; 

case  2:  /*  Tabular  Integer  */ 

if  ( decom__ptr->attribute  “ ' E'  ) { 

digit  - Data. sf data [0] ; 

sprintf  ( data_src,  "%*d",  data_width,  digit  ); 
sprintf  ( data_src2,  "%d",  digit  ); 

) 

else  { 

if  ( decom_ptr->length  o 32  ) { 

sprintf  ( dataware,  "%*d",  data_width,  Data . sldata [ 0]  ); 

} 

else  { 

sprintf  ( data_src,  "%*d",  data_width,  Data.ddata  ); 

) 

sprintf  ( data_src2 , "%d".  Data . sldata [0]  ); 

} 

if  ( strlen  ( data__src2  ) > tab_inf o->Data_Width  ) 
truncate_f  lag  - YES; 
break; 

case  21:  /*  Tabular  Unsigned  Integer  */ 

if  ( decom_ptr->attribute  ~ 'E'  ) { 

if  ( ( Data.ddata  < 2147483647.0  ) &&  ( Data.ddata  > -2147483648.0  ) ) 
idata  - Data.ddata; 

else 

idata  - 2147483647; 

sprintf  { data_src,  "%*d",  data_width,  idata  ); 
sprintf  ( data_src2,  "%d",  digit  ); 

) 

else  { 

if  ( decom_ptr->length  <*  32  ) { 

sprintf  ( data— arc,  "%*d",  data_width,  Data .uldata  [0]  ); 

} 

else  { 

sprintf  ( data_src,  "%*d",  data_width,  Data.ddata  ); 

} 

sprintf  ( data_src2,  ”%d".  Data .uldata [0]  ); 

} 

if  < strlen  ( data_src2  ) > tab_info->Data_Width  ) 
truncate_f lag  - YES; 
break; 

case  3:  /*  Tabular  Scientific  Notation  */ 


if 


( decom_jptr-> length  O 32  ) { 

if  ( lmsid->Stat_Flag  !=  0 ) {/* 

sprintf  ( data_src,  "%*.*E", 
tab_inf o->Dig_Right  - 5, 

} 


else  { 

sprintf  ( dataware,  M%*.*E", 
tab_inf o->Dig_Right  - 4, 


Display  msid  status 
data_width, 

Data. sldata [0]  ); 


data_widthr 

Dat a. sldata [0]  ); 


*/ 


} 


updtfg.c 


} 

else  { 

if  ( lmsid->Stat_Flag  !-  0 ) {/* 

sprintf  ( data_src,  "%*.*E", 
tab_info->Dig_Right  - 5, 

} 

else  { 

sprintf  ( data_src,  "%*.*E", 
tab_info->Dig_Right  - 4, 

} 

} 

break; 


Display  msid  status 
data_width, 
Data.ddata  ); 


data_width, 
Data.ddata  ); 


case  4:  /*  Tabular  Hexadecimal  */ 

sprintf  ( data_src,  "%*x",  data_width,  Data.ddata  ); 
sprintf  ( data_src2,  "%x",  Data.ddata  ); 
if  ( strlen  ( data_src2  ) > tab_info->Data_Width  ) 
truncate_f lag  - YES; 
break; 


case  5:  /*  Tabular  Octal  */ 

sprintf  ( data_src,  "%*o",  data_width,  Data.ddata  ); 
sprintf  ( data_src2,  "%o",  Data.ddata  ); 
if  ( strlen  ( data_src2  ) > tab_info->Data_Width  ) 
truncate_f lag  - YES; 
break; 


*/ 


case  6:  /*  Binary  */ 

if  ( data_width  <»  32  ) { 
num_digits  - 1; 
idata  - Data . ldata [0] ; 

temp_data_src [0]  - 48;/*  convert  digit  to  character  */ 
while  ( idata  !-  0 ) { 
digit  - idata  % 2; 
idata  »«  1; 

temp_data_src [num_digits  - 1]  - digit  + 'O'; 

/*  convert  digit  to  character  */ 
if  ( idata  !-  0 ) 
num_digit s ++ ; 

> 

} 

else  { 

idata  - Data . Idata [1] ; 
for  ( k - 0;  k < 32;  k++  ) { 
digit  - idata  % 2; 
idata  » - 1; 

temp_data_src [k]  — digit  + '0';/*  convert  digit  to  character  */ 

idata  - Data . Idata [0] ; 
for  ( k - 32;  k < data_width;  k++  ) { 
digit  - idata  % 2; 
idata  » - 1; 

temp_data_3rc [k]  - digit  + '0';/*  convert  digit  to  character  */ 


pad  - 4 - ( num_digits  % 4 ) ; 

for  ( k - 0;  k < pad;  k++  ) 

temP_data_src [num_digits  + k]  - 48; 


num_digits  +*  pad; 
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if  ( num_digits  > tab_inf o->Data_Width  ) 
truncate^ f lag  - YES; 

1-0; 

for  ( k — num__ digits  - 1;  k >—  0;  k ) { 

data_src [k]  - temp_data_src  [1]  ; 

1++; 

} 

temp_data_src  [num__digits]  - NULL; 
dataware  [data_width]  - NULL; 
break; 

case  9 : /*  Multilevel  Text  */ 

match  - NO; 

mtext_ptr  - Mtext  + lmsid->Txt_Index  - 1; 
if  ( lmsid->Txt_Index  > 0 ) { 

text_ptr  - mt  ext_pt  r->text_pt  r ; 

for  ( i * 1;  i <*=  mtext_ptr->Num_Values ; i++  ) { 

if  ( Data . sldata [0]  — text _ptr->Value  ) { 
strepy  { dataware,  text_ptr->Text  ) ; 
match  * YES; 
break; 

} 

text_ptr++; 

} 

if  ( match  --  NO  ) { 

strepy  ( dataware,  mtext_ptr->Def _Text  ) ; 

} 

} 

else  { 

data  src[0]  * NULL; 

} 

break; 

default : 

break; 

} 

break; 
case  'B' : 
case  24: 

match  * NO; 

sprintf  ( dataware,  "%d"r  Data . sldata [0]  ); 
if  ( lmsid“>Scrn— Type  — 9 ) { 

mtext_ptr  ™ Mtext  + lmsid->Txt Index  - 1; 

if  { lmsid->Txt_Index  > 0 ) { 

textjptr  - mtext_ptr->text_ptr; 

for  ( i - 1;  i <-  mtext_ptr->Num__Values;  i++  ) { 

if  ( Data. sldata [0]  --  text_ptr->Value  ) { 

strepy  ( data_src,  text_ptr->Text  ) ; 
match  - YES; 
break; 

} 

text_ptr++; 

} 

if  ( match  “ NO  ) { 

strepy  { data_src,  mtext_ptr->Def_Text  ) ; 

} 

} 

else  { 

data  src[0]  * NULL; 


/*  End  of  screen  type  switch  case  */ 

/*  Discrete  */ 

/*  Discrete  */ 


} 
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} 


break; 

case  'A' : 

/* 

ASCII  Character  String 

*/ 

case  22: 

/* 

EBCDIC  Character  String 

*/ 

case  23: 

/* 

ASCII  Character  String 

*/ 

if  ( lmsid->Scrn_Type  — 8 ) { 

strncpy  ( dataware,  Cdata,  data_width  ); 
data_src [data_width]  - '\0'; 

} 

break; 
default : 

sprint f ( data_src,  "%*x",  data_width,  Data.ddata  ); 
break; 

} /*  End  of  attribute  switch  case  */ 


Display  updated  value  and  status  to  the  screen  and  return. 


Get  X info 

/ 


xwindow  — Dm_Address->window [disp_num] ; 
xdisplay  - Dm_Address->xdisplay [disp_num]  ; 
screen  - DefaultScreen  (xdisplay) ; 
gc  - Dm_Address->gc [disp_num] ; 

9c_va^  " &Dm_Address->gc_val  [disp_num]  ; 
x - tabjlnfo->X_XC;  ” 

y - tab_info->Y  XC; 


Decide  which  status  and  color  will  be  xdisplayed 


We  can  probably  leave  most  of  the  color  stuff  in  place,  and  then  just 
before  actually  doing  the  XDrawImageString,  select  the  GC  based  on 
the  -color-  variable.  If  the  color  happens  to  be  an  uncommon  one,  i e 
no  GC  was  sent  to  the  server  for  it  during  init,  then  generate  fi  send 
a GC  for  it.  Or  better,  create  a static  GC  which  is  used  for 
non-allocated  colors.  ( Will  that  work?  ) 


color  - lmsid->Nom_Color; 

limit_ind  - lmsid->Limit_Ind; 
f irst_status  - NO; 

if  ( status  & DEAD_DATA  ) { /*  Dead  Data  */ 

color  - lmsid->Dead_Color; 
stat_char[0]  - 'D'; 
strncpy  ( data_src,  " 

",  data  width  ); 

f irst_status  - YES;  - 

} 

else  if  ( status  & M I S S I NG_D ATA  ) {/*  Missing  */ 

strncpy  ( data_src,  " 

",  data  width  ) ; 

color  » lmsid->Sta_Color;  ~ 

stat_char[0]  = 'W  ; 
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first  status  - YES; 


else  if  ( status  & STATIC_DATA  ) {/*  Static  */ 

color  * lmsid->Sta__Color ; 
stat_char[0]  - 'S'; 
f irst__status  - YES; 

else  if  ( status  & OFF_SCALE_H IGH  ) {/*  Out  of  crit.  high 

if  ( limit_ind  > 0 ) 

color  * ( Limit  + limit xnd  — 1 ) *">Cr Hcolor, 

stat_ char[0]  “ 'H'; 
first_status  * YES; 

else  if  ( status  & OFF_SCALE_LOW  ) (/*  Out  of  crit.  low  */ 

if  ( limit_ind  > 0 ) 

color  - ( Limit  + limit_ind  - 1 ) ->Cr_Lcolor; 
stat_char[0]  - ' L' ; 
first  status  * YES; 


else  if  ( status  & CRITICAL_HIGH  ) {/*  Out  of  crit.  high  * 

if  < limit_ind  > 0 ) 

color  - ( Limit  + limit_ind  - 1 ) ->Cr_Hcolor; 
stat_char[0]  - 'H'; 
first_status  * YES; 

else  if  ( status  & CRITICAL_LOW  ) {/*  Out  of  crit.  low  */ 

if  ( limit_ind  > 0 ) 

color  * ( Limit  + limit__ind  * 1 ) “>Cr__LcolQr; 
stat_char[0]  - 'L'; 
first_status  - YES; 

else  if  ( status  & LIMIT_HIGH  ) {/*  Out  of  limits  high  */ 

if  ( limit_ind  > 0 ) 

color  * ( Limit  + limit ind  - 1 )“>Hi_Color; 

stat_char[0]  - 'H'; 
first_ status  - YES; 

else  if  ( status  & LIMIT_LOW  ) {/*  Out  of  limits  low  */ 

if  ( limit__ind  > 0 ) 

color  - { Limit  + limit_ind  - 1 )->Lo_ Color; 
stat_char[0]  = ' L' ; 
first_status  * YES; 

} 

if  { truncate_f lag  — YES  ) { /*  Truncation  */ 

stat_char[0]  * 'T'; 
truncate_f lag  * NO; 
first_status  * YES; 

} 


/* 

★ If  an  unknown  status  occurs  xdisplay  a nominal  color 
*/ 


if  ( first_status  ==  NO  ) { 

color  =»  lmsid->Nom_Color; 
stat_char[0]  355  ' 

} 

data_src [data_width]  * NULL; 
stat_char[l]  = NULL; 

if  ( lmsid->Stat__Flag  !»  0 ) 

strncat  ( data_src,  stat_char,  2 ) ; 
else  { 


stat_char [0]  - ' ' 
st  meat  (data_src. 


stat 
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char,  2)  ; 


if  (gc_mask  - set_gc (xdisplay,  gc,  gc_val,  (short) 
-1.0,  NO_CHANGE,  NO_CHANGE,  NO_CHANGE, 
XChangeGC (xdisplay,  gc,  gc_mask,  gc  val)  ; 

) 


XDrawImageString (xdisplay,  xwindow,  gc,  x,  y,  data 
return ( 0 ) ; 


color,  NO_CHANGE, 
tab_info->font_num) ) { 


sre,  data_width+l)  ; 
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/★A******************************************************* 

* MODULE  NAME:  updtht.c 

* 

* This  function  updates  the  history  table  entries  in  the  display 

★ 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Tod  Milam  - Ford  Aerospace  Corporation/Houston 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

★ Mark  D.  Collier  - Software  Engineering  Section 

★ Data  Systems  Department 

★ Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 

.★.a**************************************************************************/ 


♦include  <stdio.h> 
♦include  <constants . h> 
♦include  <disp.h> 
♦include  <DDdisp.h> 
♦include  <wex/EXmsg .h> 


extern  struct  dm_shmemory 
extern  struct  ht_files 
extern  struct  hist_tab 
extern  struct  msid_ent 
sxtern  struct  tabula r_ent 
extern  short 


*Dm_Address;  /*  Display  Manager  shared  mem.  */ 
★Ht  files;  /*  the  array  of  file  names  and  pointers  */ 
*Htab;  /*  the  array  of  history  tab  information  */ 
*Msid;  /*  msid  structure  pointer  */ 
★Tab;  /*  Tabular  entry  table  local  ptr  */ 
Disp_Num;  /*  display  number  */ 


int  updtht  ( ) 


struct  ht_files  *f ile_struct ; /* 

struct  hist_tab  *htab;  /* 

struct  msid_ent  *msidjptr;  /* 

struct  tabular_ent  *tab_ptr;  /* 

short  flag,  /* 

version,  /* 

access,  /* 

i;  /* 

char  flighted [5] , /* 

strm_type [3] , /* 

ht_f  ile__name  [50] , /* 

*value,  /* 

*f ile,  /* 

msid[MSID_LENGTH] , /* 

sample [5] , /* 

source [3],  /* 

attribute,  /* 

error;  /* 

int  size,  /* 

length,  /* 

num_samps ; /* 

long  status;  /* 


local  pointer  to  file  array  */ 
local  pointer  to  history  tab  array  */ 
local  msid  pointer  */ 
local  tabular  pointer  */ 

loop  exit  flag  */ 
version  read  from  the  history  tab  file  */ 
access  rest  code  from  the  hist  tab  file  */ 
loop  counter  */ 

flight  id  read  from  the  hist  tab  file  */ 
stream  type  read  from  the  hist  tab  file  */ 
local  history  tab  file  name  to  open  */ 
value  read  from  the  hist  tab  file  */ 
holds  the  file  name  from  shared  memory  */ 
msid  name  read  from  the  hist  tab  file  * / 
sample  read  from  the  hist  tab  file  */ 
source  read  from  the  hist  tab  file  */ 
attribute  read  from  the  hist  tab  file  */ 
error  read  from  the  hist  tab  file  */ 

size  read  from  the  hist  tab  file  */ 
length  read  from  the  hist  tab  file  */ 
number  of  samples  read  from  the  file  */ 

status  variable  */ 


double  lo limit, 

hilimit ; 


D (printf ("START  updtht\n") ) ; 

/* 

* Set  up  the  local  variables. 
*/ 
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/* 

/* 


low  limit  read  from  the  hist  tab  file 
high  limit  read  from  the  hist  tab  file 


file  - Dm_Address->display [Disp_Num] .htab_file; 
file_struct  - Ht_files; 
htab  - Htab; 


/* 

★ 

*/ 


If  there  aren't  any  history  tabs  on  the  display  then  exit. 


if  ( htab  --  NULL  ) ( 

tui_msg  ( M_YELLOW,  "No  history  tabs  in  this  file"  ) ; 
return  ( -1  ) ; 

> 


/* 

* Find  the  first 
*/ 


occurrance  of  file  in  the  hist  tab  list. 


while  ( htab->next_ptr  !-  NULL  &£  strcmp  ( htab->file  name,  file  ) 0 ) 

htab  “ htab->next  ptr; 

/* 

* If  the  file  is  not  used  then  exit. 

*/ 


if  ( strcmp  ( htab->f ile_name,  file  ) !-  0 ) { 

tui_msg  ( M.YELLOW,  "This  htab  file  <%s>  not  used  in  this  display",  file  )• 
return  ( 0 ) ; F ' ' J-J--Le  > > 

} 


/* 

* If 
*/ 


the  list  of  open  files  is  not  empty. 


flag  = NO; 

if  ( file_struct  !-  NULL  ) { 


/* 

* Lo°P  through  to  see  if  the  file  is  already  open. 

* / 

while  ( file_struct->next_ptr  !-  NULL  &&  flag  !«  YES  ) ( 
if  ( strcmp  ( f ile_struct->f ile_name,  file  ) — 0 ) 
flag  - YES; 

else 

file_struct  « f ile_struct->next_ptr; 

/* 

See  if  exited  the  loop  because  found  the  file. 

*/ 

if  ( strcmp  ( f ile_struct->f ile_name,  file  ) — o ) 
flag  - YES; 

/* 

if  the  file  is  not  already  in  the  open  file  li3t . 


*/ 
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if  ( flag  “ NO  ) { 

file  struct->next_ptr  - 

(struct  ht_f iles  *)calloc  ( 1,  sizeof  ( struct  ht_files  ) ) 
if  ( f ile_struct->next_ptr  ==  NULL  ) ( 

tui_msg  ( M_YELLOW,  "Error  allocating  history  tab  file  struct"  ) ; 
return  ( -1  ) ; 

} 

file_struct  - f ile_struct->next _ptr; 
file_struct->ht_rec_ptr  - htab; 

> 

} 


* There  are  no  open  files  in  the  list. 


e 1 3 e { 

Ht  files  “ ( struct  ht_files  * ) calloc  ( 1/  sizeof  ( struct  ht files  ) ) , 

file_struct  “ Ht_files; 
if  ( file_struct  ““  NULL  ) { 

tui_msg  ( M_YELLOW,  "Error  allocating  history  tab  file  struct"  ) ; 
return  ( -1  ) ; 

> 

file_struct->ht_rec_ptr  - htab; 

> 


/* 

* If  the  file  is  not  in  the  open  list . 

*/ 

if  ( flag  — NO  ) { 

/* 

* Build  the  file  name  to  open. 

*/ 

strcpy  ( f ile_struct->f ile_name,  file  ) ; 
if  ( file [0]  !-  '/'  ) ( 

strcpy  ( ht_file_name,  Dm_Address->display [Disp_Num] ,plot_path  ) ; 
strcat  ( ht_f ile_name,  file  ) ; 

} else  { 

strcpy  ( ht_f ile_name,  file  ) ; 

) 

strcat  ( ht_f ile_name,  ".htb"  ); 

/* 

* Open  the  file  to  read. 

*/ 

file  struct->f ile  ptr  m fopen  ( ht file name/  "rb"  ) ; 

if  ( f ile_struct->f ile_ptr  ==  NULL  ) { 

tui_msg  ( M_YELLOW,  "Error  opening  history  tab  file  %s",  ht_file_name  ) 
return  ( -1  ) ; 

} 

/* 

* Read  the  header  of  the  file. 

*/ 


fread  ( (void  * ) Sversion,  2,  1,  f ile_struct->f ile_ptr  ) ; 
fread  ( (void  *)  flight_id,  5,  1,  f ile_struct->f ile_ptr  ); 
fread  ( (void  *)  strm_type,  3,  1,  file_struct->file_ptr  ); 


fread  ( (void  *) 
fread  ( (void  *) 
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&file_3truct->num_entries,  4,  1,  f ile_3truct->f ileptr 
iaccess,  2,  1,  f ile_struct->f ile_ptr  ) ; ~ 1 


) ; 


/* 

* 

*/ 


Check  the  version  of  the  file  against  the  software  version. 


if 


} 


( version  > VERSION  ) { 

^ YELLOW,  "Version  %hd  of  the  history  tab  file  is  not 

version  ) ; 

return  ( -1  ) ; 


supported”. 


/* 

★ 

*/ 


Check  the  flight  id  against  the  display  flight  id 


} 


/* 

* For  each  msid  in  the  history  tab  data  file 
*/ 


for  ( i — 0;  i < f ile_struct->num_entries;  i++  ) { 


/* 

* Read  the  msid,  sample,  and  source. 

*/ 


fread  ( (void  *)  msid,  MS ID_LENGTH , 1,  f ile_struct->f ile  ptr  ) • 
fread  ( (void  *)  sample,  5,  1,  f ile_struct->f ile _ptr  ); 
fread  ( (void  *)  source,  3,  1,  f ile_struct->f ile_ptr  ) ; 

/* 

* Read  the  decom  information. 

*/ 

fread  ( (void  *)  &size,  4, 

fread  ( (void  *)  ilength,  4, 

fread  ( (void  *)  4num_samps,  4, 

fread  ( (void  *)  Sattribute,  1, 

fread  ( (void  *)  Serror,  1, 

/* 

* Read  the  limits  and  value. 

*/ 


fread  ( (void  *)  filolimit,  8,  1,  f ile_struct->f ile  ptr  ); 
fread  ( (void  *)  ihilimit,  8,  1,  f ile_struct->file  ptr  ); 
value  = (char  *)malloc  ( size  ); 

fread  ( (void  *)  value,  size,  1,  f ile_struct->f ile_ptr  ) ; 

/* 

* Check  to  see  if  the  msid  is  in  the  history  tab  list. 


1,  file_struct->file_ptr  ); 
1,  file_struct->file_ptr  ) ; 
If  file_struct->file_ptr  ) ; 
1,  f ile_struct->file_ptr  ) ; 
1,  f ile_struct->f ile_ptr  ) ; 


htab  - f ile_struct->ht_rec_ptr; 

while  ( htab  !=  NULL  &&  strong  ( msid,  (Msid  + htab->msid_index  - 1)->MSID  ) ! 

( strcmp  ( htab->f ile_name,  file  ) ==  0 ) ) 
htab  * htab->next_ ptr; 


If  the  msid  is  found  in  the  history  tab  list. 
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*/ 


if  ( htab  ! * NULL  &&  ( strcmp  { htab->f ile_name,  file 


0 


/* 

★ 

*/ 


Move  values  along  the  sequence  of  hist  tab  entries. 


while  ( htab->next_ptr  !~  NULL  && 

strcmp  ( msid,  (Msid+htab->next _j>tr->msid_index-l) ->MSID  ) ~ 0 && 
htab->time_ cntr  > 1 && 

strcmp  ( htab->file_name,  file  ) — 0 ) { 


/* 

★ 

*/ 


/* 

★ 

*/ 

/* 

it 

*/ 


/* 

it 

*/ 


/* 

★ 

*/ 


If  the  value  exists  then  free  up  this  memory. 


if  ( htab->value  !~  NULL  ) 
free  ( htab->value  ) ; 


If  the  previous  value  exists  then  copy  it  to  current. 


if  ( htab->next_ptr->value  !«  NULL  ) { 


Allocate  space  for  value  and  copy  it. 


htab->value  - (char  *)malloc  ( htab->next_ptr->decoin_ent . size  ); 
memcpy  ( htab->value,  htab->next_ptr->value, 
htab->next_jptr->decom_ent . size  ) ; 


Copy  the  decom  information  into  current  struct. 


htab->decom_ent . length 
htab->decom_ent .size 
htab->decom_ent .offset 
htab->decom_ent . num^samps 
htab->decom_ent . attribute 
htab->decom_ent . error 
htab->decom_ent . sample_size 


htab->next_ ptr->decom_ent . length; 
htab->next_ptr->decom_ent .size; 
htab->next j>tr->de  comment . offset ; 
htab->next_ptr->decom_ent . num_samps ; 
htab->next_ptr->decom_ent . attribute; 
htab->next_jptr->decom_ent  .error; 
htab->next_ptr->decom_ent . sample_size; 


if  ( htab->htab_entr  !**  INVALID  ) { 


Extract  the  information  from  value. 


status  * extract  ( htab->value,  &htab->decom_ent  ) ; 


/* 

* Display  value  to  the  screen. 

*/ 


msid_ptr  - Msid  + htab->msid_index  - 1; 
tab_ptr  * Tab  + msidjptr->Tab_Index  - 1; 
updtfg  ( Disp_Num,  &htab->decom_ent , 

Msid  + htab->msid_index  - 1,  tabjptr,  status) ; 


/* 

★ 

*/ 


/* 

* 

*/ 


/* 

4c 

*/ 


/* 

* 

*/ 


Update  the  most  recent  history  tab  value. 


htab->value  - (char  *)malloc  ( size  ); 
memcpy  ( htab->value,  value,  size  ) ; 
free  ( value  ) ; 


Update  the  most  recent  history  tab  decom  buffer. 


htab->decorn__ent  .size 
htab->decom_ent . length 
htab->de comment . offset 
htab->de comment . num_samps 
htab->decom__ent . attribute 
htab->decom__ent . error 
htab->decom_ent . samplers ize 


size; 

length; 

0; 

num_samps; 

attribute; 

error; 

size  / num__samps; 


if  ( htab->htab_entr  !*  INVALID  ) { 


Extract  value  to  be  displayed. 

status  - extract  ( htab->value,  &htab->decom_ent  ) ; 
Display  value  to  the  screen. 


msid_j>tr  - Ms  id  + htab->msid_index  - 1; 
tab_ptr  * Tab  + msid_ptr->Tab_Index  - 1; 

^ updtfg (Disp_Num,  &htab->decom_ent , msid_jptr,  tab__ptr,  status); 

while  ( htab->next __ptr  !«*  NULL  &&  htab->next__ptr->time  cntr  “ 0 ) { 
htab  - htab->next_ptr; 
if  ( htab->value  !-  NULL  ) 
free  ( htab->value  ) ; 
htab->value  - (char  *)malloc  ( 20  ) ; 
if  ( htab“>value  — NULL  ) { 

tui_ni3g  ( M_YELLOW,  "Error  allocating  space  for  history  tab  value"  ) 
return  ( -1  ) ; ' 

> 

if  ( htab->llimit_f lag  ' y'  ) 

sprintf  ( htab->value,  "%f",  lolimit  ); 
else  if  { htab->ulimit_flag  — ' Y'  ) 

sprintf  ( htab->value,  "%f",  hilimit  ) ; 


) 


} 


} 


D(printf ("END  updtht\n") ) ; 
return  ( 0 ) ; 
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/<,+**************************************************************************** 

* MODULE  NAME:  val_dt.C 

★ 

* This  function  validates  a data  stream  type. 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* K.  Noonan  - Ford  Aerospace  Corporation 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

if 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
*********************************************** ********************* **********/ 


♦include  <ctype.h> 
♦include  <constants . h> 
♦include  <disp.h> 
♦include  <wex/EXmsg . h> 


extern  struct  dm_shmemory  *Dm_Address; 


extern  short  Good_Strm, 
Disp_Num; 


/*  YES,  if  data  type  is  valid 
/*  Display  Manager  number 


*/ 

*/ 


int  short  val  dt  ( strm_type  ) 


{ 


char 

st  rm_type  [ ] ; 

/* 

strm/data  type 

*/ 

union  mixed_ 

^values  { 

short 

datatype; 

char 

ascii_str [2 ] 

/ 

} 

ascii_val; 

/* 

union  of  2 ASCII  characters  and  a 

short  */ 

char 

new_char; 

/* 

contains  upper  case  letter 

*/ 

short 

i; 

/* 

array  index 

*/ 

D(printf ("START  val_dt\n" ) ) ; 

★ 

* Initialize  the  ASCII  variable  to  blanks.  Convert  lower  case  letters  to 

* upper  case  and  move  into  the  ASCII  variable. 

*/ 


ascii_val . datatype  * TWO_BLANKS; 

for  ( i * 0;  i < 2;  i++  ) { 

if  ( ( islower  ( strm_type[i]  ) ) !■  0 ) { 

new_char  = toupper  ( strm_type[i]  ); 
st rm_type [ i]  = new_char; 

} 

ascii  val. ascii  str[i]  - strm_type [i] ; 


Copy  the  stream  type  into  the  the  display  information  table. 


strncpy  ( Dm_Address->di splay [Disp_Num]  . strm_type,  3trm_type,  2 ); 
Dm_Address->display [Disp_Num] . strm_type [2]  - 0; 


/* 

* Validate  the  data  type  and  set  a flag  if  the  data  type  is  good.  If  the 

* data  type  is  invalid,  then  advise  and  set  a flacr. 

*/ 


switch  ( ascii_val  .datatype  ) { 

case  RR: 

case  Rl: 

case  R2 : 

case  SR: 

case  SI: 

case  S2 ; 

Good_Strm  - YES; 

break; 
default : 

tui_msg  ( M_YELLOW,  "Invalid  data  type  <%s>",  atrm  type  ); 

Good  Strm  = NO; 


D(printf ("END  val_dt\n") ) ; 
return  ( Good  Strm  ) ; 


» 


* MODULE  NAME:  val  fn.C 


★ 

* The  Validate  Filename  routine  validates  the  length  of  a filename  without 

* a path  specified.  In  addition,  if  the  mode  is  in  operational  and  the 

* filename  has  a path  specified,  then  validation  is  done  to  see  if  the 

* path  starts  with  "/WEX/"  or  "/user/display/ . " 

* 


★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* K.  Noonan  - Ford  Aerospace  Corporation 

* 


* 


* MODIFIED  FOR  X WINDOWS  BY: 


•k 


* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 


★ Southwest  Research  Institute 

*************************************************************** 


/ 


♦include  <constants .h> 
♦include  <disp.h> 
♦include  <wex/EXmsg.h> 


extern  struct 

dm  shmemory  *Dm_Address; 

/* 

ptr  to  Display  Manager  shared  memory 

★ 

int  val_fn  { 

file_name,  chk__wex  ) 

char 

*f  ile_name; 

/* 

pointer  to  the  filename  to  validate 

*/ 

short 

chk_wex; 

/* 

YES  to  chk  for  OPS  mode  and  WEX 

*/ 

{ 

int 

len; 

/* 

length  of  the  filename 

*/ 

short 

valid; 

/* 

return  flag 

*/ 

char 

no_path_fn[DNAME_LEN]  ; 

/* 

filename  without  a directory 

*/ 

D (printf  {’’START  val_f n\n" ) ) ; 

★ 

* Check  to  see  if  the  length  of  the  filename  is  greater  than  zero.  If  it  is,  then 

* check  to  see  if  a directory  ha3  been  associated  with  it.  If  no  directory  then  the 

* length  of  the  filename  must  be  less  than  equal  to  NO_DISP_PATH. 

*/ 


valid  - NO; 

len  * strlen  ( file_name  ) ; 
if  ( len  > 0 ) { 

if  ( *file_name  !*  '/'  ) { 

if  { len  > NO_PATH_DISP  ) 

tui_msg  { M__YELLOW,  "Invalid  filename  - name  too  long”  ) ; 
else  { 

valid  = YES; 

} 

} 

/* 

* Filename  has  a path  associated  with  it.  Check  the  length  of  the  filename 

* without  the  path.  If  the  name  is  greater  than  NO_DISP_PATH,  set  the  file 


* 

★ 

★ 

★ 

* 

*/ 


val  fn.c 


to  invalid.  Check  to  see  if  an  ops  mode  check  needs  to  be  made.  If  mode 
is  OPS,  then  check  to  see  if  the  path  starts  with  "/WEX".  If  no  ops  mode 
is  to  be  check  then  verify  whether  the  file  is  located  in  "/WEX."  If  it  is 
then  set  the  file  to  invalid. 


else  { 

if  ( len  > DNAME_LEN  - 1 ) 

tui_msg  ( M_YELLOW/  "Invalid  filename  - name  too  long”  ) ; 
else  { 

get_fn  ( file_name,  nojpath_fn  ) ; 
if  ( strlen  ( no_path_fn  ) > NO_PATH__DISP  ) { 
valid  - NO; 

tui_msg  { M_YELLOW,  "Invalid  filename  - name  too  long"  ) ; 

} else  { 

if  ( Dm_Address->process . wex_mode  *»  OPS  ) { 
if  { chk_wex  ) { 

if  ( ( strncmp  { file_name,  "/WEX/",  5 ) ) ! — 0 ) { 
tui_msg  ( M_YELLOW, 

"Invalid  filename  - must  be  located  in  /WEX"  ) ; 

} else 

valid  - YES; 

} else  { 

if  ( ( strncmp  ( file^name,  "/user/display/",  14  ) ) )~  0 ) 

tui_msg  ( M__YELLOW, 

"Invalid  filename  - must  be  located  in  /user/display 

else 

valid  - YES; 

} 

} else  { 

if  ( ! chk__wex  ) 

if  ( { strncmp  ( file_name,  "/WEX/",  5 ) ) — 0 ) 
tuijmsg  ( M_YELLOW, 

"Invalid  filename  - cannot  be  located  in  /WEX"  ) ; 

else 

valid  * YES; 

else 

valid  - YES; 

} /*  end  check  for  no  ops  validation  */ 

} /*  end  chk  filename  length  validation  */ 

} /*  end  chk  on  filename  length  */ 

} /*  end  chk  on  directory  */ 

) else  { 

tui_msg  { M__YELLOW,  "Invalid  filename"  ); 


D (print f ("END  val_fn\n") ) ; 
return  ( valid  ) ; 


val_msid.c 


s****************************************************************************** 

* MODULE  NAME:  val_msid.c 

* This  function  scans  the  list  of  active  MSID's  for  a specified  MSID. 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* Mark  D . Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
**********^*************^^*************^*******************,lr*****1,r************ 


♦include  <stdio.h> 

♦include  <X11/Intrinsic .h> 
♦include  <Xm/PushB.h> 
♦include  Cconstants . h> 
♦include  <disp.h> 

♦include  <DDdisp.h> 
♦include  <wex/EXmsg . h> 


extern  struct  msid_ent  *Msid; 

extern  struct  fg_f ilejieader  *Ffile; 


int  val_msid  ( list,  count,  ms id  ) 

char  **list, 

*msid; 

int  count; 

{ 

register  int  i; 

D (printf ("START  val_msid\n")  ) ; 

/* 

it  Save  pointer  to  first  MSID  in  valid  list  and  then  scan  the  list  for  a match 
* with  (msid) . 

*/ 


for  ( i * 0;  i < count;  i++  ) 

if  ( strcmp  ( *list,  msid  ) “ 0 ) 
break; 

else 

list++; 


/* 

* If  no  match  is  found,  generate  an  error  and  return  0. 
*/ 

if  ( i “ count  ) { 

tui_msg  ( M_YELLOW,  "Invalid  MSID  specified"  ) ; 
return  ( -1  ) ; 

} 

/* 

* Search  the  complete  list  of  MSID's  to  return  index. 

*/ 


" 0 ) 


for  ( i = 0;  i < Ff ile->Entry_Num;  i++  ) 
if  ( strcmp  ( (Msid+i) ->MSID,  msid  ) 


/* 

* Return  index  at  which  MS ID  was  matched. 
*/ 


D (print f ("END  val_msid\n") ) ; 
return  ( i ) ; 


val_ppl.c 


/****************************************************************************** 

* MODULE  NAME:  val_ppl.c 

★ 

* The  Validate  Filename  routine  validates  the  length  of  a filename  without 

* a path  specified.  In  addition,  if  the  filename  has  a path,  then  the  file 

* is  checked  to  see  if  it  is  under  /WEX. 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


* K.  Noonan 

★ 


Ford  Aerospace  Corporation 


* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
******************************* ***************** ************* *********** ******/ 


# include  <constants . h> 
♦include  <wex/EXmsg.h> 


int  val_ppl  ( file_name  ) 


char 

*f ile_name; 

/* 

pointer  to  the  filename  to  validate 

*/ 

int 

len; 

/* 

length  of  the  filename 

*/ 

short 

valid; 

/* 

return  flag 

*/ 

char 

no— path_fn  [DNAME__ 

LEN];  /* 

filename  without  a directory 

*/ 

D (printf ("START 

val_ppl\n")  ) ; 

Check  to  see  if 

the  length  of  the 

filename 

is  greater  than  zero.  If  it  is. 

* then  check  to  see  if  a directory  has  been  associated  with  it.  If  no 

* directory  then  the  length  of  the  filename  must  be  less  than  equal  to 

* PPL_NAME_LEN. 

*/ 

valid  = NO; 

len  * strlen  ( file_name  ) ; 
if  ( len  > 0 ) { 

if  ( *file_name  !=  '/'  ) { 

if  ( len  > PPL_NAME_LEN  ) 

tuijnsg  ( M_YELLOW,  "Invalid  filename  - name  too  long"  ) ; 

else 

valid  - YES; 

} 

/* 

* Filename  has  a path  associated  with  it.  Check  the  length  of  the  filename 

* without  the  path.  If  the  name  is  greater  than  PPL_NAME_LEN,  set  the 

* file  to  invalid.  Check  to  see  if  the  file  is  in  "/WEX". 

*/ 


else  { 

get_fn  ( filename,  no_path_fn  ) ; 

if  ( strlen  < no_path_fn  ) > PPL_NAME_LEN  ) 

tuijnsg  { M_YELLOW,  "Invalid  filename  - name  too  long"  ); 


val_ppl.c 


else  { 

if  ( ( strncmp  ( file_name,  "/WEX/",  5 ) ) !-  0 ) 

tui_msg  ( M_YELLOW,  "Invalid  filename  - mu3t  be  located  in  /WEX"  ) 

else 


valid  = YES; 

} 

} 

} else 

tui_msg  ( M_YELLOW,  "Invalid  filename"  ); 


) 


D (printf ("END  val_ppl\n" ) ) ; 
return  ( valid  ) ; 


val  src.c 


/****************************************************************************** 

* MODULE  NAME:  val_src.c 

* 

* This  function  validates  a data  source. 

★ 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

★ 

* K.  Noonan  - Ford  Aerospace  Corporation 

★ 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

* Data  Systems  Department 

* Automation  and  Data  Systems  Division 

* Southwest  Research  Institute 
*****★********★**★*****★**★***************************************************/ 


#include  <ctype.h> 
♦include  <constants .h> 
♦include  <wex/EXmsg .h> 


int  val  src  ( data_src,  real_src  ) 


char 

dataware [4] , 

/* 

data  source  to  be  validated 

*/ 

realms  rc [4] / 

/* 

actual  data  source  - PPM  or  EVN 

*/ 

int 

valid; 

/* 

YES,  if  the  data  source  is  valid 

*/ 

char 

new^char; 

/* 

return  value  character 

*/ 

short 

if 

/* 

index  counter 

*/ 

number; 

/* 

YES,  if  source  is  numeric 

*/ 

D(printf ("START 

val_src\nn)  ) ; 

Clear  the  real 

source  variable. 

*/ 

real_src[0]  - 0; 

/* 

* Convert  the  data  source  to  upper  case  if  the  data  source  is  not  a User  Comp 

* or  numeric.  If  the  first  letter  is  a f,U",  then  do  not  convert  the  other 

* characters. 

*/ 


number  - YES; 
valid  - YES; 
i - 0; 

while  ( ( i < 3 ) &&  ( valid  ==  YES  ) ) { 

if  ( isalnum  ( data_src[i]  ) !=  0 ) { 

if  ( i — 0 ) { 

if  { isdigit  ( data_src[i]  ) “ 0 ) { 

number  - NO; 

new_char  * toupper  ( dataware [i]  ); 

data_src[i]  * new_char; 

} 

} else  { 

if  ( data  src[0]  !=  'U'  ) { 


if  ( isdigit  ( data_src[i]  ) ■»-  0 ) { 
number  - NO; 

new_char  - toupper  ( data_src[i]  ) 
data_src[i]  - new_char; 

} 

} 

} 

} else 

valid  - NO; 


i++; 


Compare  th6  dat a source  with  the  valid  data  sources . 


if  ( valid  ) { 

valid  - NO; 

if  ( ! strncmp  ( data_src,  "PTM" , 3 ) ) 
valid  = YES; 

else  if  ( ! strncmp  { data_src,  "N",  3 ) ) 
valid  - YES; 

else  if  ( number  =-  YES  ) { 

valid  - YES; 


strcpy 

( realms rc. 

"PPM"  ) ; 

} else  if  ( 

'strncmp  ( 

dataware , 

"DSC" f 

3 

) 

) 

{ 

valid  * 

YES; 

strcpy 

( realms rc. 

"EVN"  ) ; 

} else  if  ( 

! strncmp  ( 

data_src. 

"MOC" , 

3 

) 

) 

{ 

valid  - 

YES ; 

strcpy 

( realms  rc. 

"EVN”  ) ; 

} else  if  ( 

! strncmp  ( 

dataware , 

"GDR", 

3 

) 

) 

valid  - 

YES; 

else  if  ( ! 

strncmp  { data  src,  " 

MTM” , 3 

) 

) 

valid  * 

YES; 

else  if  ( !; 

strncmp  ( data  src,  ” 

DBM" , 3 

) 

) 

valid  - 

YES; 

else  if  { data_src[0]  »■  '[)'  ) 
valid  - YES; 


D (printf ("END  val_src\n" ) ) ; 
return  ( valid  ) ; 


valmsid.c 


/******************************+*********************************************** 

* MODULE  NAME:  valmsid.c 

* 

* This  function  validates  an  MSID  by  examining  each  letter  or  digit  making 

* up  a string. 

* 


* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 


- Ford  Aerospace  Corporation 


* K.  Noonan 

* 

★ 

* MODIFIED  FOR  X WINDOWS  BY: 

★ 

* Mark  D.  Collier  - Software  Engineering  Section 

★ Data  Systems  Department 

* Automation  and  Data  Systems  Division 

★ Southwest  Research  Institute 
****************************************************************************** 


♦include  <const.h> 
♦include  <wex/EXmsg . h> 


int  valmsid  { ms id  ) 


char  msid[ll]; 

{ 

short  valid; 

D (printf {"START  valmsid\n") ) ; 

/* 

★ Validate  msid/  An  example  of  a valid  msid:  A11A1111A  or  B22B2222BB 
*/ 


valid  - YES; 


/*  assume  msid  is 


valid  at  this  point  */ 


if  ( ( msid [0 ] < 'Ar  ) I I ( msid[0]  > 'Z'  ) ) 
valid  - NO; 

if  ( { msid [1]  < 'O'  ) II  < msid[l]  > ' 9'  ) ) 

valid  * NO; 

if  { { msid[2]  < 'O'  ) II  ( msid[2]  > ' 9'  ) ) 

valid  - NO; 

if  ( ( msid [3]  < 'A'  ) I I ( msid[3]  > 'Z'  ) ) 

valid  * NO; 

if  ( ( msid [ 4]  < '0'  ) II  ( msid(4]  > ' 9'  ) ) 

valid  - NO; 

if  ( ( msid [5]  < '0'  ) II  ( msid[5]  > ' 9'  ) ) 

valid  * NO; 

if  ( { ms id [ 6 ] < '0'  ) II  ( msid[6]  > ' 9'  ) ) 

valid  311  NO; 

if  ( ( msid [7 ] < '0'  ) ||  ( msid[7]  > '9'  ) ) 

valid  = NO; 

if  ( ( msid [8 ] < 'A'  ) II  ( msid[8]  > 'Z'  ) ) 

valid  - NO; 

if  { ( ms id [ 9 ] < 'A'  ) ||  ( msid[9]  > 'Z'  ) ) 

if  { msid[9]  !-  0 ) 
valid  * NO; 


} 


D (printf ("END  valmsid\n") ) ; 
return  ( valid  ) ; 


zoom.c 


/ ************************ *********i 

* MODULE  NAME:  zoom.c 


* This  function  is  called  when  the  user  selects  the  "Zoom"  or  "Reset  Zoom" 

* menu  option.  It  adds  an  input  callback  routine  for  all  plot  widgets  in 

* the  effective  display  which  effects  the  zoom  as  soon  as  the  user  selects 
a zoom  focus  point.  If  the  user  selects  a zoom  focus  point  outside 

any  plot  window,  the  cb  pbi ( ) callback  routine  (set  up  in  init  disp()) 

* be  called  and  will  issue  an  advisory  (only  plots  may  be  zoomed) 

* If  the  command  is  "Zoom"  (not  "Reset  Zoom"),  the  cursor  is  changed  to 

* a cross-hairs  to  signal  focus  point  selection  needed. 

* 

★ 

* ORIGINAL  AUTHOR  AND  IDENTIFICATION: 

* 


* K.  Noonan  - Ford  Aerospace  Corporation 


* 

* MODIFIED  FOR  X WINDOWS  BY: 

* 


* Ronnie  Killough  - 


Software  Engineering  Section 
Data  Systems  Department 
Automation  and  Data  Systems  Division 
Southwest  Research  Institute 


♦include  <stdio.h> 

♦include  <X11/ Intrinsic. h> 
♦include  <Xll/cursorfont .h> 
♦include  <Xm/Xm.h> 

♦include  <constants .h> 
♦include  <disp.h> 

♦include  <DDplot.h> 

♦include  <wex/EXmsg . h> 


extern  Widget  Top; 

/*  Top  level  widget 

*/ 

extern  struct  dm_shmemory  *Dm  Address; 

extern  struct  plot_ptrs  *Plot_info _ptr; 

/*  Ptr  to  DM  shared  memory 
/*  Ptr  to  list  of  plots 

*/ 

*/ 

extern  short  Nbr_of_plots; 

/*  # of  plots  in  plot  list 

*/ 

int  zoom  (disp  num) 

short  disp_num; 

( 

static  Cursor 

/*  effective  display  number 

*/ 

cursor  « NULL; 

/*  cross-hair  cursor 

*/ 

XtCallbackProc 

cb_zoom()  ; 

/*  zoom  callback  procedure 

*/ 

struct  plot_j3trs 

*plot__ptr; 

/*  ptr  thru  list  of  plots 

*/ 

int  i; 

/*  loop  counter 

*/ 

D (printf ("START  zoom\n")); 

/* 

* RLK  11/14/90 

★ 

* For  zoom: 


•k 

* 1.  Setup  callbacks  for  all  plot  window  widgets. 

* 2.  Change  the  cursor  to  a cross-hair. 


* 

* For  reset  zoom: 

★ 

* 1.  Setup  callbacks  for  all  plot  window  widgets. 

* 2.  Change  the  cursor  to  a cross-hair. 

*/ 


* Add  a callback  for  each  plot  window  widget. 

*/ 

for  (i=0;  i<Nbr_of_plots;  i++)  { 

plot  ptr  - Plot_info_ptr  + i; 

XtAddCallback (plot ptr— >draw win,  XmNinputCallback,  cb zoom,  disp num) , 

} 


* jf  the  cross-hair  cursor  has  not  yet  been  defined,  define  it. 
*/ 


if  (cursor  =“  NULL) 

cursor  - XCreateFontCursor (XtDisplay  (Top),  XC_crosshair) ; 


/* 

* Set  the  cursor  on  the  top  level  shell 
*/ 

XDef ineCursor  ( XtDisplay  ( Top  ) , XtWindow  ( Top  ) , cursor  ) ; 

if  (Dm_Address->shell [disp_num] ) 

XDef ineCursor (XtDisplay (Top) , 

XtWindow (Dm  Address->shell [disp_num] ) , cursor); 


/* 

* Synchronize  the  display  to  cause  the  new  cursor  to  appear. 
*/ 

XSync (XtDisplay (Top) , FALSE) ; 

D (printf ("END  zoom\n")); 
return (0) ; 


) 
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Workstation  Executives 


Makefile 


fBINDIR  - /home/project/2984/db/dm 

BINDIR  - /WEX/Exec 

TARGET  - $ {BINDIR} /pdt_feed 

INCLUDE  - -I.  -I/home/pro ject/2984/db/include 
CFLAGS  = -DDEBUG  -g 


all:  pdt_feed.o 

cc  -o  ${ TARGET}  pdt_feed. o -g 


pdt__f  eed.  o : 

cc  ${ CFLAGS)  ${ INCLUDE}  -c  pdt_feed.c 


Makefile.sun 


- /home/project/2984/db/dm 
BINDIR  - /WEX/Exec 
TARGET  - ${ BINDIR }/pdt_feed 

INCLUDE  - -I.  -I/home/pro ject/2984/db/include 
CFLAGS  “ -misalign  -DDEBUG  -g 

all:  pdt_feed.o 

cc  -o  ${ TARGET}  pdt_feed.o  -g 

pdt_feed.o: 

cc  $ {CFLAGS}  ${ INCLUDE}  -c  pdt_feed.c 


#BINDIR 


mk_pdt.c 


* mk_pdt 


This  program  generates  a plot  data  file  for  use  by  the  Data  Displayed 


* Development  Notes : 


* o Not  functional  for  time  plots  (low/high^scale^^^^^^^^^^^^^ 


# include  <stdio.h> 

#include  <X11/Xlib.h> 

♦include  <fcntl.h> 

♦include  <signal.h> 

♦include  <sys/types . h> 

♦include  Cconstants . h> 

♦include  <disp.h> 

♦include  <DDdisp.h> 

♦include  <DDplot.h> 

♦include  <wex/EXmsg .h> 

♦define  DATA^DIR  "/WEX/Dataf iles/display/ SWRITEST/" 
♦define  X 0 

♦define  Y 1 

♦define  CYCLES  400 

extern  int  errno; 


int  plot_fp; 

struct  msid_inf o *Pmsids; 
struct  axis_info  Paxis[2] [10]; 
struct  plot_hdr  *Pheader; 
char  Overscale_axis ; 
int  Overscale  num; 


read_plot_f ile  (plot_name) 
char  *plot_name; 
t 

FILE  *fp; 


struct 

struct 

struct 

struct 

struct 

struct 

struct 


plot_hdr 

axis_inf o 

msid_inf o 

lim__lines 

lim_lines 

plot_pts 

plot_pts 


*header_ptr ; 

*axis__ptr  ; 
*msid_jptr; 
*nline_ptr; 
*lline_ptr; 
*nline_pts_ptr; 
*11  ine  _j>  t s_pt  r ; 


/*  plot  hdr  file 

/*  plot  axis  infomation 

/*  plot  msid  infomation 

/★  plot  nominal  line  infomation 

/*  plot  limit  line  infomation 

/*  plot  nominal  point  pairs  pointer 

/*  plot  limit  point  pairs  pointer 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


short 

upd_rate; 

/* 

short 

version; 

short 

xaxes_num; 

/* 

short 

yaxes_num; 

/* 

short 

plot_hori ; 

/* 

short 

plot_vert ; 

/* 

short 

match; 

short 

restricted; 

short 

color; 

/* 

unsigned  size; 

/* 

int  i. 

j,  k,  w,  m,  n. 

p; 

local  variable  for  software  version 
nbr  of  xaxes  records 
nbr  of  yaxes  records 
the  horizontal  font  size 
the  vertical  font  size 


*/ 

*/ 

*/ 

*/ 

*/ 


int  access_rs;  /* 

int  graph_num; 

int  char_num; 

int  msid_num; 

int  actual  msids; 


/*  temp  holder  for  color  ♦ read  from  DDF  file  */ 

size  for  memory  allocation  */ 

/*  loop  count  variable  for  rec.  header  */ 
<ju«ss  restriction  code  */ 

/*  local  variable  for  total  nbr  of  graph,  rec  */ 
/*  local  variable  for  total  nbr  of  char  */ 

/*  nbr  of  msid  records  */ 

/*  nbr  of  actual  msid  records  */ 
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int  nline_num;  /*  nbr  of  nominal  line  records  */ 

int  lline_num;  /*  nbr  of  limit  line  records  */ 

int  total_nbr_records;  /*  total  nbr  of  plot  records 

int  total_nbr_axes ; 

int  name_len; 

int  x,  y; 

char  temp [15];  /*  use  to  try  out  character  stuff  */ 

char  sample [4]; 

char  plot_style [5] ; /*  the  character  style  */ 

char  plot_f n [ 50 ] ; 

D (printf  ("START  read__plot_f  ile\nn ) ) ; 

strcpy  (plot_f n,  plot_name)  ; 
strncat (plot_fn,  ".plt\0",  5) ; 

if  ((fp  - fopen (plot_fn, "r" ) ) =«  NULL)  { 

fprintf (stderr, "Error  %d  on  reading  plot  file  %s", errnof plot  fn); 
return (-1) ; ~ 

) 


/* 

* Read  the  software  version.  If  correct  version  continue  processing  by  read- 

* ing  in  the  plot  file  information. 

*/ 


fscanf  (fp,  "%hd",  iversion) ; 


fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp. 


"%*51c") ; 

"%hd",  &xaxes__num)  ; 
"%hd",  &yaxes_num)  ; 
"%d",  &msid_num) ; 
”%d",  &actual_msids) ; 
n%d",  &nline_num)  ; 
"%d",  &lline_num)  ; 
"%hd",  &upd_rate) ; 
"%d",  fiaccess  rs); 


if  (version  >-  3) 

fscanf  (fp,  "%*5c") ; 

total_nbr_records  » 

xaxes__nura  + yaxes_num  + actual_msids  + nline_num  + lline  num 

if  (total_nbr_records  » 0)  { 

fprintf (stderr,  "There  are  no  plot  records  ") ; 
fclose  (fp); 
return  (-1)  ; 


/* 

* Reassign  pointer  to  beginning  of  file 
*/ 


rewind  (fp) ; 

★ 

Set  up  local  pointer  to  beginning  of  plot  header  file  and  read  header 
* f 

headerjptr  - (struct  plot_hdr  *)  calloc  (1,  sizeof  (struct  plot_hdr) ) ; 
if  (headerjptr  =*=  NULL)  { 


mk_pdt.c 

fprintf (stderr,  "Error  %d  allocating  plot  header  memory",  errno) ; 

fclose  (fp) ; 
return  (-1) ; 


P header  =*  header_ptr; 


fscanf  (fp , 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp. 


"%hd",  Aversion) ; 

"%*51c") ; 

"%d",  &header_ ptr->xaxes_nuin)  ; 
"%d",  &header-ptr->yaxe3_num) ; 
”%d",  &header_ptr->msid_num) ; 
"%d",  &header_ptr->actual_msids) ; 
”%d”,  &header_jptr->nline_num)  ; 
"%d",  &header_ptr->lline_num) ; 
M%hdM,  &header_ptr->upd__rate)  ; 
"%hd",  &header_ptr->access_rs) ; 


if  (version  >-  3) 

fscanf  (fp,  "%*5c") ; 


/* 

if  (msid_num  >0)  ( 

plot  info  ptr->plt_decom  - (struct  shm_decom  *) 

calloc (plot_info_ptr->header->msid_num,  sizeof (struct  shm_decom) ) 

if  (plot_info_ptr->plt_decom  NULL)  ( 

fprintf (stderr,  "Error  on  allocating  memory  for  plot  decom"); 
fclose (fp); 
return  (-1) ; 

) 

} 

*/ 

/* 

* Read  in  the  plot  definition  file  msid  records  and  store  them  into  memory. 
*/ 


if  (actual  jmsids  >0)  { 

msid_pt r — (struct  msid_info  *) 

calloc (actualjmsids,  sizeof (struct  msid_info) ) ; 

if  (msid_ptr  — NULL)  { 

fprintf (stderr,  "Error  %d  allocating  plot  msid  memory”,  errno); 
fclose  (fp) ; 
return  (-1); 


Pmsids  - msidjptr; 

for  (j  * 0;  j < actual_msids;  j++)  ( 

fscanf  (fp,  "%hd",  &msidjPtr->msid_indx) ; 
msidjptr->msidjindx  - j; 
fscanf  (fp,  "%s",  msid_jDtr->msid_name)  ; 
fscanf  (fp,  "%s",  sample); 

if  (sample[0]  !-  'L') 

ms id_j3tr->s ample  “ atoi  (sample)  ; 

j else 

ms id_j3tr-> sample  =*  -1; 
fscanf  (fp,  "Is",  msidjptr->data_src) ; 
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/*  skip  the  ppl  file  and  occr  numbers  */ 

if  (version  >«  3) 

fscanf  <fp,  "%*10c") ; 


fscanf  (fp,  "%s",  temp); 

msid_ptr->xory_axis  - temp[0]; 

fscanf  <fpf  "%d",  &msid_ptr->axis_num) ; 

fscanf  <fp,  "%s",  msid_jptr->plot_msid)  ; 

fscanf  (fp,  "%s",  temp); 

msid _ptr->plot_type  - temp[0]; 

fscanf  (fp,  "%d",  &msid_j>tr->line_type)  ; 

fscanf  (fp,  "%f",  &msid_ptr->line_width) ; 

fscanf  (fp,  ” % s ” , msid_jDtr->plot_char)  ; 

fscanf  (fp,  " % s ” , plot_style) ; 

fscanf  (fp,  " %hd",  &plot_hori) ; 

fscanf  (fp,  "%hd”,  &plot_vert) ; 

/*  RLK  9/12/90  More  font  stuff  to  fix. 

DBfontnum  (plot_style,  plot_hori,  plot vert,  &msid_pt r->plot  font) 


fscanf 

fscanf 

msid^pt 

fscanf 

fscanf 

fscanf 

fscanf 

fscanf 

fscanf 

fscanf 

fscanf 

fscanf 

fscanf 

fscanf 

fscanf 

msid_j)t 

msid_pt 


(fp,  "%hd",  &msid_j?tr->icon_indx)  ; 
(fp,  ” % s ” , temp) ; 
r->plot_conn  - temp[0]; 

(fp,  "%hdw,  &color) ; 

(fp,  "%d",  &msid_ptr->stat_f lag) ; 
(fp,  "%d",  &msid_ptr->miss_flag) ; 
(fp,  "%hdw,  icolor); 

(fp,  "%hd",  Scolor) ; 

(fp,  "%hd",  &color) ; 

(fp,  "%hd",  ficolor) ; 

(fp,  "%hd”,  &color) ; 

(fp,  "%d",  &msid— ptr->oper_type) ; 
(fp,  "%f",  &msid_ptr->oper_width)  ; 
(fp,  "%d",  &msid_ptr->crit_type)  ; 
(fp,  "%f",  &msid_ptr->crit_width)  ; 
r->pair_ptr  - NULL; 
r->f  irst_j>t  * YES; 


msid_j>tr++; 

/*  End  of  -for-  (total  nbr  of  msids)  */ 


/* 

★ 

*/ 


Set  the  pair  index  pointers 


msid_j>tr  - Pmsids; 

for  (i  • 0;  i < actualjmsids;  i++)  { 

/*  the  current  msid  is  represented  by  msid^pt r + i */ 

if  ( (msid_ptr  + i)->pair_ptr  — NULL)  { 
match  - NO; 
k - i + 1; 

while  (match  — NO  &&  k < actualjmsids)  { 

if  ((msid jptr  + k) ->pair_ ptr  NULL)  { 

^ t • strcmp ( (msid  ptr  + i) ->msid_name, 
(msid_j>tr  + k)  ->plot_msid) 
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&&  ! strcmp ( (msid_ptr  + i) ->plot_msid, 

(msid_ptr  + k) ->msid_name) ) { 

(msid_ptr  + i) ->pair _ptr  - msid_ptr  + k; 

(ms id_pt r + k) ->pair_ptr  - msid_ptr  + i? 
match  “ YES; 

} 

else 

k++; 

} 

else 

k++; 

} /*  end  while  */ 

} /*  end  of  if  ” NULL  */ 

} /*  end  of  -for-  (i)  */ 

/*  end  -if-  (actual  maid  > 0)  */ 

Read  in  the  plot  definition  file  axis  records  and  store  them  into  memory 


total_nbr_axes  - xaxes_num  + yaxes_num; 
if  (total_nbr_axes  >0)  ( 


axis  Ptr  - (struct  axis_info  *)  . . _ 

calloc  (total_nbr_axes,  s a. zeof  (struct  axis_info) ) 

if  (axisptr  — NULL)  { . 

tui  msg (M_YELLOW,  "Error  %d  allocating  plot  axis  memory  , errno) 

f close  (fp) ; 
return  (-1) ; 


x = 0; 
y = 0 ; 

for  (m  - 0;  m < total_nbr_axes;  m++)  ( 

fscanf  (fp,  "%s",  temp) ; 

if  (temp [0]  --  'X')  { 

axis_ptr  “ SPaxis [X] [x] ; 
x++; 

) else  { 

axis_ptr  - SPaxis [Y] [y] ; 
y++; 

) 

axis_ptr->axis_xory  - temp[0]; 
fscanf  (fp,  "%d",  &axisjptr->axis_num)  ; 

fscanf  (fp,  "%hd",  &axis_ptr->axis_type) ; 
fscanf  (fp,  "%s",  temp) ; 

axis_ptr->scal_type  - tert^>[0]; 
fscanf  (fp,  "%d",  &axisjptr->end_code) ; 

fscanf  (fp,  "%hd",  Saxisjptr->axis_pos) ; 
fscanf  (fp,  "%hd",  Scolor) ; 

fscanf  (fp,  "%s",  axis_ptr->low_scale) ; 


/* 


*/ 


/* 


*/ 


if  (axis_ptr->scal_type  --  'T') 

axis_ptr->low_value  - (double)  DBp_atimei (axis_ptr->low  scale); 
else  ~ 

sscanf (axis_ptr->low_scale,  "%lf",  &axis_ptr->low_value) ; 

axis_ptr->org_low_val  - axis_ptr->low_value; 

fscanf  (fp,  "%s",  axis_ptr->high_scal) ; 


if  (axis_ptr->scal_type  --  'T') 

axis_ptr->high_value  “ (double)  DBp_atimei (axis_ptr->high  seal) 
else  ~ 


sscanf  (axis_ptr->high_scal,  "%lf",  saxis_ptr->high_value) ; 

axis_ptr->org_high_val  - axis_ptr->high_value; 

fscanf  (fp,  "%sn,  temp); 

axis_ptr->auto_flag  - temp[0]; 

fscanf  (fp,  "%hd",  4axis_ptr->grad_vals) ; 

fscanf  (fp,  "%a",  temp) ; 

axis _ptr->vis_f lag  - temp[0]; 

fscanf  (fp,  "%s",  temp); 

axis_ptr->grid_f lag  - temp[0]; 

fscanf  (fp,  "%hd",  4axis_ptr->grid_gran) ; 

fscanf  (fp,  "%hd",  £axis ptr— >grid  type) ; 

fscanf  (fp,  "%hd",  icolor) ; ~ 

fscanf  (fp,  "%hd",  (axis ptr— >maj ticks) ; 

fscanf  (fp,  "%hd",  4axis_ptr->min~ticks) ; 

axis _ptr->axis_active  - YES; 


f close (fp) ; 

D (printf ("END  read_plot_f ile\n") ) ; 
return (actual_ms ids) ; 


* Function:  gen_and__write_data 

* Purpose : ~~ 

* To  generate  random  data  based  on  the  axis  scale  values  and 

* write  it  to  the  plot  data  file. 


double  gen_and_write_data(msid_jptr,  axis_ptr,  increment) 
struct  msid_info  *msid_jptr; 
struct  axis_info  *axis_ptr; 
double  increment; 

{ 

long  low,  high,  tmp; 

do  ub 1 e d_va 1 ; 

long  status; 

static  short  indx  - 0; 

int  low_flag; 

float  mod_factor; 
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low  - (long)  axis_ptr->low_value; 
high  * (long)  axis_ptr->high_value; 

low_flag  * 0; 
if  (low  > high)  { 
tmp  - low; 
low  - high; 
high  = tmp; 
low_flag  * 1; 

) 

status  - 0; 

if  (axis_ptr->axis_xory  “ Overscale_axis 

&&  axis_ptr->axis__num  ~ Overs cale_num) 
mod_factor  * 1 . 5 * ((high  - low)  / (double) (CYCLES  * .60)); 

else 

mod_ factor  - 1.5  * ((high  - low)  / (double)  CYCLES); 
if  (mod_factor  > 1.0) 

increment  +■  (double)  (random!)  % (long) mod_ factor) ; 

else 

increment  +-  (double)  (randomO  % (long) (mod_factor  * 1000.0))  / 1000.0 


/* 

* plot  low  value  to  high  value 
*/ 


if  (low  > 0)  { 

if  (low_f lag) 

d_val  - (double)  high  - increment; 

else 

d_val  - (double)  low  + increment; 

) else 

d_val  - (double)  low  + increment; 

/* 

d_val  « (double)  (random!)  % (high  - low  + 1)  + low); 

*/ 


write (plot_fp,  (char  *)&indx,  sizeof (short )) ; 
write (plot_fp,  (char  *)&status,  sizeof (long) ) ; 
write (plot_fp,  (char  *)& d_val,  sizeof (double) ) ; 

return (increment ) ; 

} 

/★a*************************************************************************** 

* FP  interrupt  handler 

*****************************************************************************  j 

int  control_f pe ( ) 

{ 

signal (SIGFPE,  control_fpe) ; 

} 

main(argc,  argv) 
int  argc; 
char  **argv; 

! 

int  x,y; 
int  num_msids ; 
char  plt_file  [50]  ; 
char  plot_data [50]  ; 


char  buffer [100]; 
int  size, length; 
short  num_samps ; 
char  attribute,  error; 
int  i,  j; 

struct  msid_info  *msid_ptr; 
struct  axis__info  *axis__ptr; 
double  increment [2] [20] ; 
int  idx; 
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signal (SIGFPE,  control_fpe) ; 


/* 

* Extract  pit  file  name  and  prefix  path 
*/ 

argv++; 

sprintf  {plt_f  ile,  "%s%s",  DATA_DIR,  *argv)  ; 
strcpy  (plot_data,  plt_f  ile)  ; 

printf  ("Processing  plot  file  %s\n",  plt__file)  ; 

/* 

* If  overscale  args  are  present,  extract  it,  else 

* set  to  overscale  axis  to  'N'  (no  axis  should  be  overscaled) . 

* If  an  axis  is  specified  for  'overscale',  that 

* means  data  for  that  axis  will  be  generated  intentionally 

* high  to  test  rescaling  of  axes. 

*/ 

if  (argc  > 3)  { 
argv++; 

Overscale_num  - atoi(*argv); 
argv++; 

Overscale_axis  * **argv; 

} else  { 

Overs cale_num  - 0; 

Overscale— axis  * 'N' ; 

) 

/* 

* Read  plot  description  file  (.pit) 

*/ 

num_msids  » read_plot_f ile (plt_f ile) ; 

if  (num_msids  — -1) 
return (-1) ; 

/* 

* Open  plot  data  file  (.pdt) 

*/ 

strcat (plot_data,  ".pdt") ; 

printf ("Processing  data  plot  file  %s\n",  plot_data) ; 

plot f p = open (plot_data,  0_RDWR  | 0_CREAT  | OJTRUNC,  0666); 

if  (plot_fp  “ -1)  ( 

fprintf (stderr, "Error  %d  on  creating  the  plot  data  file”,errno) 
return (-1) ; 


/* 


} 


* Just  put  in  blanks  for  header 


*/ 
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strcpy (buffer,  " 

") ; 

write (plot_fp,  buffer,  80); 


♦ 

★ 

Assume  all  data  is 

double  and  write  decom  info 

* 

all  non-time  msids, 

* 

size  - 12  (4 

for  status) 

★ 

length  - 8 

* 

number  samples 

- 1 

* 

attribute  - D 

it 

*/ 

error  * 0 

size  “ 12; 
length  “8; 
num_samps  - 1; 
attribute  ” 'D' ; 
error  “ NULL; 

msid_ptr  - Pmsids; 

for  (i-0;  i<num_msids;  i++)  ( 

if  (strcmp  (msid_ptr->msid_naine,  LOCAL_TIME) ) { 

write (plot_fp,  (char  *)&size,  4); 
write (plot_fp,  (char  *)4length,  4); 
write (plot_fp,  Snum_samps,  2); 
write (plot_fp,  Sattribute,  1); 
write (plot_fp,  terror,  1)  ; 
write (plot_fp,  buffer,  12); 

) 

) 

/* 

* Generate  random  data  for  each  ms id  -n-  times 
*/ 


for  (i-0;  iCCYCLES;  i++)  < 
msid_ptr  “ Pmsids; 

for  (j-0;  j<num_msids;  j++)  { 

if  (strcmp (ms id_ptr->msid_name,  LOCAL_TIME) ) ( 

if  <msid_ptr->xory_axis  — 'X')  { 

axis_ptr  - tPaxis [X] [ (msid_ptr->axis_mam-l) ] ; 
idx  - X; 

} else  ( 

axis_ptr  - tPaxis [Y] [ (msid_ptr->axis_num-l) ] ; 
idx  - Y; 


increment [idx] [ j]  - gen_and_write_data (msid_ptr,  axis_ptr,  increment [idx] [ 

j]); 


) 


) 

msid_ptr++; 
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/* 

* Close  plot  data  file 
*/ 

close (plot_fp) ; 

} 


* mk_jpdt 

* 

* This  program  continuously  generates  plot  data  for  use  by  the  Data  Displayer. 

* It  is  invoked  by  the  Display  Manager  immediately  after  the  Data  Handler  is 

* invoked,  and  halts  itself  when  the  DH  halt  flag  is  detected.  It  is  virtually 

* inactive  until  it  detects  a plot  start  flag  in  Display  Manager  shared 

* memory.  This  program  handles  all  plot -related  flags  that  would  be  handled 

* by  a fully  functional  Data  Handler.  It  attaches  to  the  Display  Manager 

* shared  memory  only. 


★ 


* 


* Development  Notes  2 

★ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio ,h> 
<X11/Xlib.h> 
<fcntl .h> 
<signal .h> 
<sys/types .h> 
<sys/timeb.h> 
<sys/ipc.h> 
<sys/shm.h> 
<constants .h> 
<disp.h> 
<DDdisp.h> 
<DDplot . h> 
<wex/EXmsg . h> 


♦define  DATA_DIR  "/WEX/Dataf iles/display/SWRITEST/** 

♦define  X 0 

♦define  Y 1 

♦define  CYCLES  1000 


extern  int  errno; 

struct  dm_shmemory  *Dm_Addre3s; 

char  Plot_name  [MAX_PLOTS]  [50] ; 

int  Plot_fp(MAX_PLOTS] ; 

struct  msid_info  *Pms ids [MAX_P LOTS] ; 

struct  axis_info  Paxis [MAX_PLOTS] [2]  [10]  ; 

struct  plot_hdr  *P header  [MAX_P LOTS]  / 

char  Overscale_axis; 

int  Overscale^num; 

int  Nunwnsids  [MAX_PLOTS  ] ; 

/★★★★a************************************************************************ 

* Function:  start_plot 

* Purpose: 

* To  read  the  plot  file  and  initialize  plot  data  file 

★★a**************************************************************************/ 


start_ plot  (disp_ num) 
short  disp_num; 

{ 

struct  msid— info  *plot_ptr; 
int  i,  empty^  matchl; 
char  plot_data  [50]  ; 
char  buffer [100]; 
int  size/ length; 
short  num_samps; 
char  attribute,  error; 
struct  msid—  info  *msid_jptr; 
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struct  axis_info  *axis_ptr; 
int  plot_fp; 


/* 

* Make  sure  plot  isn't  already  active. 

* If  it  is,  issue  advisory  and  exit. 

* Else,  retain  index  of  an  empty  plot  slot. 

*/ 

for  <i-0;  i<MAX_PLOTS;  i++)  { 

if  <Plot_name  [i]  [0]  — 0) 
empty  - i; 

else  if  < ! strcmp (Plot_ name [i] , 

Dm_Addres3->display  [disp_num]  ,plot_name)  ) { 
printf ("Plot  %s  already  active", Dm_Address->di splay [disp_num] .plot_name) 
return (0) ; 

} 

} 

strcpy  (Plot_name  [empty] , Dm_Addres3->display  [disp_num]  .plot_name)  ; 


/* 

* Locate  the  plot  in  the  active  plot  list 

* in  DM  shared  memory. 

*/ 


mat chi  - NO; 
i - 0; 

while ( (i  < MAX_PLOTS)  &&  (matchl  — NO))  { 

if  ( ! strcmp  (Dm_Address->display [disp_num]  .plot_name, 

Dm_Address->plots  .act_jplots  [i] ) ) 

matchl  - YES; 

else 

i++; 

} 

if  (matchl  — NO)  { 

printf("Plot  <%s>  not  found  in  active  plot  list", 

Dm_Address->display  [disp_num]  . plot_name)  ; 

return (-1) ; 

} 

/* 

* Read  the  plot  information  file  (.pit).  If  no  error, 

* place  the  new  plot  record  in  the  list  of  plots. 

*/ 


Num_msids [empty]  - 

read _j3lot_ file  (Dm_Address->di3play  [disp_num]  .plot_name,  empty); 

/* 

* Open  plot  data  file  (.pdt) 

*/ 

/* 

sprintf (plot_data,  "%s%s .pdt",  DATA_DIR, 

Dm_Address->display [disp  num] .plot  name) ; 

*/  ~ 

strcpy (plot_data,  Dm_Address->display [disp_num] .plot_name) ; 
strcat (plot_data,  ".pdt"); 


pdt_feed.c 

printf ("Processing  data  plot  file  %s\n",  plot_data) ; 

plot f p - Plot_fp [empty]  -open (plot_data,  0_RDWR  | 0_CREAT  | 0_TRUNC,  0666); 

if  (plot_fp  ” -1)  { 

fprintf (stderr, "Error  %d  on  creating  the  plot  data  file  ,errno); 
return (-1) ; 

} 


/* 

* Just  put  in  blanks  for  header 
*/ 

strcpy (buffer , " 

")  ; 

write  (plot_fp,  buffer,  80); 


/* 

double  and  write  decom  info  for 

* 

Assume  all  data  is 

* 

all  non-time  msids 

. 

* 

size  - 12  (4 

for  status) 

* 

length  - 8 

* 

number  samples 

- 1 

* 

attribute  - D 

* 

error  - 0 

*/ 

size  - 12; 
length  - 8; 
num_samps  * 1; 
attribute  - 'D'; 
error  * NULL; 


msid_ ptr  - Pmsids [empty] ; 
for  (i-0 ; i<Num_insids [empty] 


write (plot_fp, 
write (plot_fp, 
write (plot_fp, 
write (plot_fp, 
write (plot_fp, 
write (plot_fp. 


(char 

(char 


i++)  ( 

*)&size,  4); 
*)&length,  4) 


&num_samps, 
^attribute, 
fcerror,  1) ; 
buffer,  12) 


2) 

1) 


return (0) ; 


/a-**************************************************************************** 

* Function:  stop_j)lot 

* Purpose: 

* To  find  the  effective  plot  name  in  the  plot  name  list, 

* clear  the  plot  name,  and  free  any  allocated  memory  for 

* that  plot  record. 

* 

* Notes : 

* This  routine  does  not  check  to  see  if  any  other  DM  task  is  using 

* the  plot. 

a****************************************************************************/ 


stop_ plot (disp_num) 
short  disp_num; 


{ 


int  i ; 


i-0; 

while  (i<MAX_PLOTS  && 

strcmp (Plot_name [i] , Dm_Address->display [disp_num] .plot_name) ) 

i++; 

if  (i  < MAX_PLOTS)  ( 

Plot_name [i] [0]  - 0; 
free (Pmsids [i] ) ; 

Pmsids [i]  - NULL; 
free (Pheader [i] ) ; 

Pheader [i]  - NULL; 
close (Plot_fp [i] ) ; 

Plot_fp[i]  - -1; 

} 

return ( 0 ) ; 


* Function:  read_plot_f ile 

* Purpose: 

* To  read  the  plot  file  into  memory  for  use  by  the 

* random  generator. 


read— plot_f  ile  (plot— name,  empty) 
char  *plot_name; 
int  empty; 

{ 

FILE  *fp; 


struct  plot_hdr  *header_ptr;  /*  plot  hdr  file  */ 
struct  axis_info  *axis_ptr;  /*  plot  axis  information  */ 
struct  msid_info  *msid_ptr;  /*  plot  msid  information  */ 
struct  lim_lines  *nline jptr;  /*  plot  nominal  line  infomation  */ 
struct  1 inclines  *lline_ptr;  /*  plot  limit  line  infomation  */ 
struct  plot_pts  *nline pts _ptr;  /*  plot  nominal  point  pairs  pointer  */ 
struct  plot j>ts  * 1 1 ine_jDt 3j)t r ; /*  plot  limit  point  pairs  pointer  */ 


short 

upd_rate; 

short 

version; 

/* 

local  variable  for  software  version 

*/ 

short 

xaxes_num; 

/* 

nbr  of  xaxes  records 

*/ 

short 

yaxes_num; 

/* 

nbr  of  yaxes  records 

*/ 

short 

plot_hori; 

/* 

the  horizontal  font  size 

V 

short 

plot_vert ; 

/* 

the  vertical  font  size 

*/ 

short 

match; 

short 

restricted; 

short 

color; 

/* 

temp  holder  for  color  # read  from  DDF 

file  */ 

unsigned  size; 

/* 

size  for  memory  allocation 

*/ 

int  i,  j,  k,  w , m, 
int  access_rs; 

int  graph_num; 

int  char^num;  /* 

int  msid_num;  /* 

int  actual_msids;  /* 

int  nline_num;  /* 

int  lline_num;  /* 

int  total__nbr_records; 

int  total  nbr  axes; 


n,  p;  /*  loop  count  variable  for  rec.  header  */ 

/*  access  restriction  code  */ 

/*  local  variable  for  total  nbr  of  graph,  rec  */ 
local  variable  for  total  nbr  of  char  */ 


nbr  of  msid  records 
nbr  of  actual  msid  records 
nbr  of  nominal  line  records 
nbr  of  limit  line  records 
/*  total  nbr  of  plot  records 


*/ 


*/ 

*/ 


V 
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int  name_len ; 

int  x,  y; 

char  temp [15] ; /*  use  to  trY  out  character 

char  sample  [4]; 

char  plot_style [5] ; /*  the  character  style  */ 

char  plot_  fn[50]; 


stuff 


*/ 


D(printf ("START  read_plot_f ile\n" ) ) ; 


/* 

strcpy (plot_f n,  DATA_DIR) ; 
st rcat  (plot_f  n,  plot_name)  ; 

*/ 

strcpy  (plot_fn,  plot_name)  ; 
strncat (plot_fn,  ".plt\0",  5); 

if  <(fp  ■ f open (plot_fn, "r") ) ■■  NULL)  { 

fprintf (stderr, "Error  %d  on  reading  plot  file  %s",errno,plot_fn) ; 
return  (-1) ; 

) 

printf ("Reading  plot  file  %s\n"/  plot_fn) ; 

/* 

* Read  the  software  version.  If  correct  version  continue  processing  by  read 

* ing  in  the  plot  file  information. 

*/ 


fscanf 

up, 

"%hd", 

Aversion) ; 

fscanf 

(fp. 

"%*51c 

")  ; 

fscanf 

(tp, 

"%hd", 

*xaxes_num)  / 

fscanf 

(fp. 

"%hd". 

4yaxes_num)  ; 

fscanf 

(fp, 

"%d", 

&msid_nuin)  ; 

fscanf 

(fp, 

"%d", 

tactual_msids) ; 

fscanf 

(fp, 

"%d", 

£nline_num)  ; 

fscanf 

(fp, 

"%d", 

tlline— num) ; 

fscanf 

<fp. 

"%hd". 

&upd_rate)  ; 

fscanf 

(fp. 

"%d", 

& accessors)  ; 

if  (version  >*  3) 

fscanf  (fp,  "%*5c") ; 

tot  al_nb  rerecords  - 

xaxes num  + yaxes_num  + actual^jnsids  + nline_num  + lline^num; 

if  ( tot a l_nb rerecords  — 0)  { 

fprintf (stderr,  "There  are  no  plot  records  ") ; 
fclose  (fp) ; 
return  ( — 1 > / 

) 

/* 

* Reassign  pointer  to  beginning  of  file 
*/ 


rewind  (fp) ; 

/* 

* Set  up  local  pointer  to  beginning  of  plot  header  file  and  read  header 
*/ 

header_ptr  - (struct  plot_hdr  *)  calloc  (1,  sizeof  (struct  plot_hdr) ) ; 


if  (header_ptr  --  NULL)  { 

fprintf (stderr,  "Error  %d  allocating  plot  header  memory",  errno) ; 
fclose  (fp); 
return  (-1) ; 

} 


Pheader [empty]  - header_ptr; 


fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp. 


"%hd",  Aversion) ; 

"%*51c") ; 

"%d",  &header_ptr->xaxes_num)  ; 
"%d",  &header_ptr->yaxes_num)  ; 
"%d",  &header_ ptr->msid_num)  ; 
"%d",  &header_ptr->actual— msids)  ; 
"%d",  &header_ ptr->nline_num)  ; 
"%d",  ^header _ptr->lline_num)  ; 
"%hd",  &header___ptr->upd_rate)  ; 
"%hd",  &header_j?tr->access— rs)  ; 


if  (version  >-  3) 

fscanf  (fp,  "%*5c") ; 


/* 

if  (msid_num  >0)  ( 

plot_info_ ptr->plt_decom  - (struct  shm_decom  *) 

calloc  (plot_inf  o_ptr->header->msid_num,  sizeof  (struct  shm_decom)  ) 


if  (plot_info_jptr->plt_decom  — NULL)  { 

fprintf (stderr,  "Error  on  allocating  memory  for  plot  decom") ; 
fclose (fp) ; 
return  (-1) ; 


*/ 


/* 

* Read  in  the  plot  definition  file  msid  records  and  store  them  into  memory. 
*/ 


if  (actual_msids  > 0)  ( 

msid_ ptr  - (struct  msid_info  *) 

calloc (actual^ maids,  sizeof (struct  msid_info) ) ; 

if  (msidjptr  — NULL)  { 

fprintf (stderr,  "Error  %d  allocating  plot  msid  memory",  errno); 
fclose  (fp) ; 
return  (-1) ; 

1 

Pmsids  [empty]  - msid_ptr; 

for  (j  - 0;  j < actual_msids;  j++)  { 

fscanf  (fp,  "%hd",  &rasid_j3tr->msid_indx) ; 
msid__pt r->msid_indx  - j; 
fscanf  (fp,  "%s",  msid_jptr->msid_name)  ; 
fscanf  (fp,  "%s",  sample); 

if  (sample [0]  !-  ' L' ) 

ms id_ptr-> sample  - atoi  (sample) ; 

else 


msid_ ptr->sample  - -1; 
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fscanf  (fp,  "%s",  msid_ptr->data_src) ; 

/*  skip  the  ppl  file  and  occr  numbers  */ 

if  (version  >“  3) 

fscanf  (fp,  "%*10c") ; 

fscanf  (fp,  "%s",  temp) ; 
msid_ptr->xory_axis  “ temp[0]; 
fscanf  (fp,  "%d",  imsid_ptr->axis_num)  ; 
fscanf  (fp,  "%s",  msidj?tr->plot_msid) ; 
fscanf  (fp,  "%s",  temp); 
msid_ptr->plot_type  - temp[0]; 
fscanf  (fp,  "%d",  imsid_ptr->line_type) ; 
fscanf  (fp,  "%f",  imsid_ptr->line_width) ; 
fscanf  (fp,  "%s",  msid _ptr->plot_char) ; 
fscanf  (fp,  "%s",  plot_style) ; 
fscanf  (fp,  "%hd" , iplot_hori) ; 
fscanf  (fp,  "%hd",  iplot_vert) ; 


/*  RLK  9/12/90  More  font  stuff  to  fix. 

DBfontnum  (plot_style,  plot_hori, 

*/ 


plot_vert. 


imsid_ptr->plot_font) 


fscanf  (fp,  "%hd",  imsid_ptr->icon_indx) 
fscanf  (fp,  "%s",  temp) ; 
msid_ptr->plot_conn  ” temp[0]; 


fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 
fscanf  (fp, 


"%hd",  ficolor) ; 

"%d",  smsid_ptr->stat_flag) ; 
"%d",  smsid_ptr->miss_f lag) ; 
"%hd",  icolor) ; 

"%hd",  icolor); 

"%hd",  icolor); 

"%hd",  icolor); 

"%hd",  icolor); 

"%d",  tmsidjptr->oper_type) ; 
"%f",  imsid_ptr->oper_width) 
"%d",  imsid_ptr->crit_type) ; 
"%f",  imsid_ptr->crit_width) 


msid_ptr->pair_ptr  - NULL; 
msid_ptr->f irst_pt  ” YES; 


msid_ptr++; 

) /*  End  of  -for-  (total  nbr  of  maids)  */ 


/* 

* Set  the  pair  index  pointers 

*/ 


msid_ptr  - Pmsids [empty] ; 

for  (i  - 0;  i < actual_msids;  i++)  ( 

/*  the  current  msid  is  represented  by  msid_ptr  + i */ 

if  ( (msid_ptr  + i) ->pair_ptr  — NULL)  ( 
match  ” NO; 
k - i + 1; 

while  (match  --  NO  it  k < actual_msids)  ( 

if  ( (msid_ptr  + k) ->pair_ptr  --  NULL)  ( 


if  < 
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! atrcinp  ( (msid_ptr  + i)  ->msid_name, 
(maid_ptr  + k) ->plot_msid) 

&&  ! strcmp ( (msid_ptr  + i) ->plot_msid, 

(msid_ptr  + k) ->msid_name) ) { 
,(msid_jptr  + i)  ->pair_ptr  - m3id_ptr  + k; 
(msid_ptr  + k)->pair_ptr  - ms id__pt r + i; 
match  - YES; 

) 

else 

k++; 

} 

else 

k++; 

> /*  end  while  */ 

) /*  end  of  if  ...  — NULL  */ 


) /*  end  of  -for-  (i)  */ 

} /*  end  -if-  (actual  msid  > 0)  */ 

/* 

* Read  in  the  plot  definition  file  axis  records  and  store  them  into  memory. 

total_nbr_axes  - xaxes_num  + yaxes_num; 
if  (total_nbr_axes  >0)  { 

/* 

axis_ptr  - (struct  axis_info  *) 

calloc (total_nbr_axea,  sizeof (struct  axis_info) ) ; 

if  (axis_ptr  — NULL)  { 

tui_msg (M_YELLOW,  "Error  %d  allocating  plot  axis  memory",  errno) ; 
f close  (fp) ; 
return  (-1); 

} 

*/ 

x - 0; 
y - 0; 


for  (m  - 0;  m < total_nbr_axes;  m++)  { 
fscanf  (fp,  "%s",  temp) ; 

if  (temptO]  — 'X')  { 

axis_ptr  - tPaxis  [enqpty]  [X]  (x]  ; 
x++; 

} else  ( 

axis _ptr  - iPaxis [empty] [Y] [y] ; 
y++; 

) 

axis_ptr->axis_xory  - temp[0]; 
fscanf  (fp,  "%d",  4axis_ptr->axis_num) ; 
fscanf  (fp,  "%hd",  &axis_ptr->axis_type) ; 
fscanf  (fp,  "%s”,  temp) ; 
axis_ptr->scal_type  - temp[0]; 
fscanf  (fp,  "%d",  4axis_ptr->end_code) ; 
fscanf  (fp,  "%hd",  4axis_ptr->axis__pos)  ; 
fscanf  (fp,  "%hd",  ficolor) ; 


fscanf  (fp,  "%s",  axis_ptr->low_scale) ; 


/* 


*/ 


/* 


*/ 


if  (axis_ptr->scal_type  --  'T') 

axis _ptr->low_value  - (double)  DBp_atimei (axis_ptr->low_scale) ; 

else 

ascanf (axis_ptr->low_scale,  "%lf",  Saxis_ptr->low_value) ; 
axis__ptr->org_low_val  - axis_ptr->low_value; 
fscanf  (fp,  "%s",  axis_ptr->high_scal)  ; 


if  (axis_ptr->scal_type  — 'T') 

axi s_pt r - >h igh_va lue  - (double)  DBp_atimei (axis_ptr->high_scal) 

else 


sscanf  ( axis_pt r->high_scal , "%lf",  Saxis_ptr->high_value) ; 

axis_ptr->org_high_val  - axis_ptr->high_value; 

fscanf  (fp,  "%s",  temp) ; 

axis_ptr->auto_flag  ■ temp[0]; 

fscanf  (fp,  "%hd",  iaxis_ptr->grad_vals) ; 

fscanf  (fp,  "%s",  temp) ; 

axis_ptr->vis_f lag  ■ temp[0]; 

fscanf  (fp,  "%s",  temp) ; 

axis_ptr->grid_f lag  - temptO]; 

fscanf  (fp,  "%hd",  &axis_ptr->grid_gran) ; 

fscanf  (fp,  "%hd",  Saxis_ptr->grid_type) ; 

fscanf  (fp,  "%hd",  ficolor) ; 

fscanf  (fp,  "%hd",  iaxis_ptr->ma j_ticks) / 

fscanf  (fp,  "%hd",  Saxis_ptr->min_ticks) ; 

axis_ptr->axis_active  ” YES; 


fclose (fp) ; 

D(printf ("END  read_plot_file\n") ) ; 
return (actual_msids) ; 


/***************************************************************************** 

* Function:  gen_and_write_data 

* Purpose : 

* To  generate  random  data  based  on  the  axis  scale  values  and 

* write  it  to  the  plot  data  file. 

************************************* r****************************************/ 

double  gen_and_write_data (msid_ptr,  axis_ptr,  increment,  plot) 
struct  msid_info  *msid_ptr; 
struct  axis_info  *axis_ptr; 
double  increment; 
int  plot; 

( 

long  low,  high,  tmp; 
double  d_val; 
long  status; 
static  short  indx  - 0; 
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int  low_flag; 
float  mod_factor; 

low  - (long)  axia_ptr->low__valu©; 
high  - (long)  axia_ptr->high_value; 

low_flag  - 0; 
if  (low  > high)  { 
tmp  - low; 
low  - high; 
high  - tmp; 
low_flag  - 1; 

) 

atatua  *0; 


/* 

if  (axia_ ptr->axia_xory  — Overacale_axia 

&&  axia_ptr->axia_num  --  Ov©racale_num) 
mod_factor  - 1.5  * ((high  - low)  / (double) (CYCLES  * .60)); 

©la© 

mod_f actor  » 1.5  * ((high  - low)  / (double)  CYCLES); 
if  (mod_f actor  > 1.0) 

increment  +-  (double)  (randomO  % (long)mod_factor) ; 

©la© 

increment  +■  (double)  (randomO  % (long) (mod_f actor  * 1000.0))  / 1000.0; 

*/ 


/* 

* plot  low  value  to  high  value 

if  (low  > 0)  { 

if  (low^flag) 

d_val  - (double)  high  - increment; 

ela© 

d_val  - (double)  low  + increment; 

} ela© 

d_val  - (double)  low  + increment; 

*/ 

/* 

*/ 

d_val  - (double)  (randomO  % (high  - low  + 1)  + low); 

write (Plot_fp [plot] , (char  *)&indx,  aizeof (ahort) ) ; 
write (Plot_fp [plot] , (char  *)&atatua,  aizeof (long) ) ; 
write (Plot^fp (plot ] , (char  *)&d_val,  aizeof (double) ) ; 

return (increment) ; 

) 

* FP  interrupt  handler 

************************************************************ *****************/ 

int  control^  fpe  () 

{ 

signal (SIGFPE,  control_fpe) ; 


* Function:  main 


**************** 
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/nain  () 

^ { 

int  x,y; 
int  i,  j; 

struct  msid_info  *msid _jptr; 
struct  axis_info  *axis_ptr; 
double  increment  [MAX_P LOTS]  [2]  [20]; 
int  idx; 
int  dm_shm_id; 

struct  timeb  cur_time,  update;  /*  current  system  time  */ 

double  new  time;  /*  holder  for  the  conv  after  ftime*/ 

double  last_time;  /*  holder  for  the  conv  of  last_upd*/ 

int  error; 
short  disp_num; 


* Set  up  floating  point  exception  handler 


signal (SIGFPE,  control_fpe) ; 

printf ("Plot  Data  Feed  task  starting\n") ; 

/* 

* Initialize  timer 
*/ 


update. time  - 0; 

/* 

* Attach  to  DM  shared  memory 
*/ 

dm_shm_id  - shmget (DM_SHM_KEY, sizeof (struct  dm_shmemory) , 0666); 
if  (dm_shm_id  — -1)  ( 

printf ("There  was  an  error  %d  on  the  DM  SHM  get",errno); 
return (-1) ; 

) 

Dm_Address  _ (struct  dm_s hmemo r y *)  shroat (dm_shm_id,  0,  0) ; 
if  ( (int) Dm_Address  ~ -1)  { 

printf ("There  was  an  error  %d  on  the  DM  SHM  attach",errno); 
return (-1) ; 

) 

/* 

* While  the  DH  halt  flag  is  not  set,  loop 
*/ 

while  ( !Dm_Address->process .dh_not_halted)  ( 

/* 

* Loop  through  display  numbers  to  check  plot  flags  in  DM  shared  memory . 

* If  detect  command  flag,  branch  to  command  processing  routine. 

*/ 

for  (disp_num  — 0;  disp_num  < MAX_DISP;  disp_num++)  ( 

if  (Dm_Address->display [disp_num] .disp_active 

&&  Dm_Address->display [disp_num] .dh_plot)  ( 


if  (Dm_Addres3->display  [diap^num]  .action  — STRT_P LOT)  { 
error  - starts plot (disp_num) ; 
if  (error  " 0) 

Dm_Address->display  [disp_num]  .dh_ plot_ack  - YES; 


} else  { 

error  - stop_plot  (disp_num)  ; 
if  (error  — 0) 

Dm_Addre33->display  [disp_num]  .dh_jDlot_ack  * YES; 

} 


} 


Dm_Address->di3play [disp_num] .dh^plot  * NO; 


/* 

* 

*/ 


Update  the  current  time. 


ftime  <&cur_time)  ; 

last_time  - (update. time  * 1000)  + update .millitm; 
new_time  - (cur_time . time  * 1000)  + cur  time  .millitm; 


If  time  to  update  the  plot  data  files,  generate  random 
data  for  each  msid  for  each  plot. 

if  ((new_time  - last_time)  >-  UPDATE_RATE)  ( 


for  (i-0;  i<MAX_PLOT$;  i++)  ( 

msid_ptr  - Pmaidsfi]; 

if  (msid_jptr  !-  NULL)  { 

for  (j-0;  j<Numjnsid3 [i] ; j++)  ( 

if  (m3id_j>tr->xory_axis  » ' X' ) { 

axis_ptr  - fiPaxia [i] [X] [ (msid_ptr->axi3_num-l) ] ; 
idx  - X; 

} else  { 

axia_ptr  - fiPaxia [i] [Y] [ <msidjptr->axis_num-l) ] ; 
idx  - Y; 

) 

increment  [i]  [idx]  [j]  ■ gen__and_write_data 

(msid_j>tr,  axis_ptr,  increment  [i]  [idx]  [j],  i); 

msid_ptr++; 

} 


} 

update. time  ” cur_time.time; 
update. millitm  ■ cur_time. millitm; 


/* 


/*  end  of  time  check  */ 


/* 

* 

*/ 


Sleep  for  a few  seconds 


sleep (1) ; 

) /*  end  of  while  (not  halted)  loop  */ 

Detach  from  shared  memory,  close  plot  data  files 


for  (i-0;  i<MAX_P LOTS;  i++)  ( 

if  (Plot_name [i] [0]  !-  0)  { 

close (Plot_fp [i] ) ; 

) 

) 

shmdt (Dm_Address) ; 

printf ("Plot  Data  Feed  exiting\n")  ; 


